VBA はキーワード J を適用して複数の CAD テキストの色を一括変更します

vba を使用して、複数の CAD テキストの色を一括変更し、各 CAD テキストのキーワードを検索します。 J hh4232

サブ txtGSssssssssssss()

'エラー時は次へ再開

Dim sSet As AcadSelectionSet、eV As AcadText、i

Dim tj1() を整数、tj2() をバリアントとして使用

ReDim tj1(0), tj2(0): tj1(0) = 0: tj2(0) = "テキスト"

Set sSet = ThisDrawing.SelectionSets.Add(＂pl1＂)

sSet.Select acSelectionSetPrevious, , , tj1, tj2 '選択済み

'sSet.Select acSelectionSetAll, , , tj1, tj2 'すべて選択

For Each eV In sSet '選択セット内でループします

If InStr(eV.TextString, "J") > 0 then eV.color = acRed

sSet.Update

s設定.削除

エンドサブ

VBA プログラミングでの色変換

1. まず、VBA タイマー コントロールをオンラインでダウンロードし、その中の「.ocx」ファイルを C ドライブ-windows-system32 フォルダーに配置し、start-run-「regsvr32 VBAtimer.ocx」-OK してください (注:ここでは、ダウンロードする OCX ファイルの名前が「VBAtimer.ocx」であると仮定します)。

2. 次に Excel を開き、必要に応じてフォームを作成し、ツールバーの [追加コントロール] を右クリックして、インストールしたばかりの VBAtimer コントロールを見つけて、フォーム上の任意の場所にタイマー コントロールを描画します。

3. 次に、新しく作成したフォーム - [コードの表示] を右クリックし、次のコードを入力します:

プライベートサブコマンドボタン1_Click()

UserForm1.Label1.Font.Bold = True

UserForm1.Label1.Font.Italic = True

タイマー1.間隔 = 500

Timer1.Enabled = True

エンドサブ

サブタイマー1_timer()

a を同じ長さ、b を同じ長さ、c を同じ長さで調整

ランダム化

a = Int(256 * Rnd )

b = Int(256 * Rnd )

c = Int(256 * Rnd )

UserForm1.Label1.ForeColor = RGB(a, b, c)

エンドサブ

プライベートサブコマンドボタン2_Click()

UserForm1.Label1.Font.Bold = False

UserForm1.Label1.Font.Italic = False

Timer1.Enabled = False

エンドサブ

4. 最後に、プロジェクト管理ウィンドウで Thisworkbook をダブルクリックし、ポップアップ コード ボックスに次のコードを入力します。

以上がVBA はキーワード J を適用して複数の CAD テキストの色を一括変更しますの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。