如何用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
本文档主要讲述的是Matlab语言的特点；Matlab具有用法简单、灵活、程式结构性强、延展性好等优点，已经逐渐成为科技计算、视图交互系统和程序中的首选语言工具。特别是它在线性代数、数理统计、自动控制、数字信号处理、动态系统仿真等方面表现突出，已经成为科研工作人员和工程技术人员进行科学研究和生产实践的有利武器。希望本文档会给有需要的朋友带来帮助；感兴趣的朋友可以过来看看
.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
