首页 >软件教程 >办公软件 >VB代码实现控制EXCEL文字格式化的方法

VB代码实现控制EXCEL文字格式化的方法

WBOY
WBOY转载
2024-01-23 18:09:13568浏览

VB代码实现控制EXCEL文字格式化的方法

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

以上是VB代码实现控制EXCEL文字格式化的方法的详细内容。更多信息请关注PHP中文网其他相关文章!

声明:
本文转载于:docexcel.net。如有侵权,请联系admin@php.cn删除