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中文網其他相關文章！