如何用VB代码实现往EXCEL中录入文字时控制文字的格式
VB访问EXCEL 先需要在工程中引用Microsoft Excel类型库：
从＂工程＂菜单中选择＂引用＂栏；选择Microsoft Excel 11.0 Object Library(EXCEL2003)，然后选择＂确定＂。表示在工程中要引用EXCEL类型库。
然后访问和设置字体的代码如下：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = ＂d:\data.xls＂ 'excel工作簿路径和名称
SheetName = ＂sheet1＂ '需要设置的工作表名称
Set xlApp = CreateObject(＂Excel.Application＂) '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
With xlSheet.Range(＂C13:D19＂).Font '选择设置的区域。
.Name = ＂隶书＂ '这些具体的赋值根据自己的需要进行设置。
.FontStyle = ＂加粗＂
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
VB问题限制文本框只能输入10个字符并且每输入两个字符就自动
private sub text1_onchange()
if len(text1.text)>14 '10个字符+4个星号 then text1.text=left(text1.text,14)
netstring=replace(text1.text，＂*＂，＂＂) ' 去掉加的星号
while len(netstring)>2 then
display=display & ＂*＂ & left(netstring,2)
netstring = mid(netstring,3)
wend
display = display & ＂*＂ & left(netstring,2)
text1.text=display
end sub
