用vba批量修改多個(gè)cad文字顏色每個(gè)cad文字搜索關(guān)鍵字Jhh4232
SubtxtGSssssssssssss()
'OnErrorResumeNext
DimsSetAsAcadSelectionSet,eVAsAcadText,i
Dimtj1()AsInteger,tj2()AsVariant
ReDimtj1(0),tj2(0):tj1(0)=0:tj2(0)=＂Text＂
SetsSet=ThisDrawing.SelectionSets.Add(＂pl1＂)
sSet.SelectacSelectionSetPrevious,,,tj1,tj2'已選擇的
'sSet.SelectacSelectionSetAll,,,tj1,tj2'選擇全部
ForEacheVInsSet'在選擇集中進(jìn)行循環(huán)
IfInStr(eV.TextString,＂J＂)>0TheneV.color=acRed
Next
sSet.Update
sSet.Delete
EndSub
VBA編程中的顏色變換
1.首先請(qǐng)到網(wǎng)上下個(gè)VBAtimer控件并把里面的“.ocx”文件放到C盤-windows-system32文件夾下，然后開始-運(yùn)行-“regsvr32VBAtimer.ocx”-確定（注：這里假設(shè)你下的的OCX文件名為“VBAtimer.ocx”）。
2.然后打開excel，按照你自己的要建立窗體，然后在工具欄上點(diǎn)右鍵-“附加控件”-找到剛剛裝的VBAtimer控件然后在窗體任意地方畫一個(gè)timer控件。
3.然后在新建的窗體上右鍵-“查看代碼”，并輸入以下代碼：
PrivateSubCommandButton1_Click()
UserForm1.Label1.Font.Bold=True
UserForm1.Label1.Font.Italic=True
Timer1.Interval=500
Timer1.Enabled=True
EndSub
Subtimer1_timer()
DimaAsLong,bAsLong,cAsLong
Randomize
a=Int(256*Rnd)
b=Int(256*Rnd)
c=Int(256*Rnd)
UserForm1.Label1.ForeColor=RGB(a,b,c)
EndSub
PrivateSubCommandButton2_Click()
UserForm1.Label1.Font.Bold=False
UserForm1.Label1.Font.Italic=False
Timer1.Enabled=False
EndSub
4.最后在在工程管理窗口上雙擊Thisworkbook，在彈出的代碼框輸入以下代碼：
PrivateSubWorkbook_Open()
UserForm1.Show
EndSub
5.附：如果2、3、4步不知道做的話，做完第一步然后把郵箱留給我。
以上就是VBA將關(guān)鍵字J應(yīng)用于多個(gè)CAD文字的顏色批量修改的詳細(xì)內(nèi)容，！
