Rumah > Artikel > Tutorial perisian > VBA menggunakan kata kunci J untuk mengubah suai batch warna beberapa teks CAD
Sub txtGSssssssssssss()
'Pada Ralat Sambung semula Seterusnya
Malapkan sSet Sebagai AcadSelectionSet, eV Sebagai AcadText, i
Malapkan tj1() Sebagai Integer, tj2() Sebagai Varian
Malapkan semula tj1(0), tj2(0): tj1(0) = 0: tj2(0) = "Teks"
Set sSet = ThisDrawing.SelectionSets.Add("pl1")
sSet.Select acSelectionSetPrevious, , , tj1, tj2 'Selected
'sSet.Select acSelectionSetAll, , , tj1, tj2 'Pilih semua
Untuk Setiap eV Dalam sSet 'Gelung dalam set pemilihan
Jika InStr(eV.TextString, "J") > 0 Maka eV.color = acRed
Seterusnya
sSet.Update
sSet.Delete
Tamat Sub
1. Mula-mula, sila muat turun kawalan pemasa VBA dalam talian dan letakkan fail ".ocx" di dalamnya ke dalam pemacu C - folder windows-system32, kemudian mulakan - jalankan - "regsvr32 VBAtimer.ocx" - OK (Nota: di sini Anggapkan bahawa fail OCX yang anda muat turun dinamakan "VBAtimer.ocx").
2. Kemudian buka excel, buat borang mengikut keperluan anda sendiri, kemudian klik kanan pada bar alat - "Kawalan Tambahan" - cari kawalan VBAtimer yang baru anda pasang dan lukis kawalan pemasa di mana-mana sahaja pada borang.
3 Kemudian klik kanan pada borang yang baru dibuat - "Lihat Kod" dan masukkan kod berikut:
Button Sub Perintah Peribadi1_Klik()
UserForm1.Label1.Font.Bold = Benar
UserForm1.Label1.Font.Italic = Benar
Pemasa1.Selang = 500
Pemasa1.Didayakan = Benar
Tamat Sub
Sub pemasa1_pemasa()
Malapkan a Selagi, b Selagi, c Selagi
Rawakkan
a = Int(256 * Rnd )
b = Int(256 * Rnd)
c = Int(256 * Rnd )
UserForm1.Label1.ForeColor = RGB(a, b, c)
Tamat Sub
Sub Perintah Butang2_Klik()
UserForm1.Label1.Font.Bold = Palsu
UserForm1.Label1.Font.Italic = False
Pemasa1.Didayakan = Palsu
Tamat Sub
4 Akhir sekali, klik dua kali Buku Kerja ini pada tetingkap pengurusan projek dan masukkan kod berikut dalam kotak kod timbul:
.Sub Buku Kerja Peribadi_Buka()
Borang Pengguna1.Tunjukkan
Tamat Sub
5 Lampiran: Jika anda tidak tahu cara melakukan langkah 2, 3 dan 4, lakukan sahaja langkah pertama dan serahkan e-mel anda kepada saya.
Atas ialah kandungan terperinci VBA menggunakan kata kunci J untuk mengubah suai batch warna beberapa teks CAD. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!