首頁  >  文章  >  軟體教學  >  VB程式碼實作控制EXCEL文字格式化的方法

VB程式碼實作控制EXCEL文字格式化的方法

WBOY
WBOY轉載
2024-01-23 18:09:13537瀏覽

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刪除