EXCELのテキスト書式を制御する方法を実現するVBコード

EXCEL にテキストを入力するときに VB コードを使用してテキストの形式を制御する方法

VB から EXCEL にアクセスするには、まずプロジェクトで Microsoft Excel タイプ ライブラリを参照する必要があります。

[プロジェクト] メニューから [参照] 列を選択し、[Microsoft Excel 11.0 Object Library (EXCEL2003)] を選択して、[OK] を選択します。プロジェクト内で EXCEL タイプ ライブラリを参照する必要があることを示します。

次に、フォントにアクセスして設定するコードは次のとおりです:

xlApp を Excel.Application としてディムする

xlBook を Excel.WorkBook としてディムする

xlSheet を Excel.Worksheet としてディム

Dim ファイル名、文字列としてのシート名

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 = "太字"

.サイズ = 16

.取り消し線 = False

.上付き文字 = False

.下付き文字 = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

で終わる

xlBook.Close (True) 'ワークブックを閉じます

xlApp.Quit 'EXCEL オブジェクトの終了

Set xlApp = Nothing 'xlApp オブジェクトを解放します

VB の問題により、テキスト ボックスには 10 文字しか入力できず、2 文字ごとに自動的に入力されるという制限があります。 プライベートサブテキスト1_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)

ネットストリング = Mid(ネットストリング,3)

週末

display = ディスプレイ & "*" & left(netstring,2)

text1.text=display

エンドサブ

以上がEXCELのテキスト書式を制御する方法を実現するVBコードの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。