Sub txtGSssssssssssss()
'Bei Fehler Fortsetzung fortsetzen
Dim sSet As AcadSelectionSet, eV As AcadText, i
Dim tj1() als Ganzzahl, tj2() als Variante
ReDim tj1(0), tj2(0): tj1(0) = 0: tj2(0) = ＂Text＂
Set sSet = ThisDrawing.SelectionSets.Add(＂pl1＂)
sSet.Select acSelectionSetPrevious, , , tj1, tj2 'Ausgewählt
'sSet.Select acSelectionSetAll, , , tj1, tj2 'Alles auswählen
Für jedes eV In sSet 'Schleife im Auswahlsatz
Wenn InStr(eV.TextString, "J") > 0, dann ist eV.color = acRed
Weiter
sSet.Update
sSet.Delete
End Sub
1. Laden Sie zunächst die VBA-Timer-Steuerung online herunter und legen Sie die darin enthaltene Datei „.ocx“ im Ordner „Windows-System32“ ab. Starten Sie dann „regsvr32 VBAtimer.ocx“ und klicken Sie auf „OK“. dass die heruntergeladene OCX-Datei den Namen „VBAtimer.ocx“ trägt.
2. Öffnen Sie dann Excel, erstellen Sie ein Formular entsprechend Ihren eigenen Anforderungen, klicken Sie dann mit der rechten Maustaste auf die Symbolleiste – „Zusätzliche Steuerelemente“ – suchen Sie das VBAtimer-Steuerelement, das Sie gerade installiert haben, und zeichnen Sie ein Timer-Steuerelement an einer beliebigen Stelle im Formular.
3. Klicken Sie dann mit der rechten Maustaste auf das neu erstellte Formular – „Code anzeigen“ und geben Sie den folgenden Code ein:
Private Sub CommandButton1_Click()
UserForm1.Label1.Font.Bold = True
UserForm1.Label1.Font.Italic = True
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Sub timer1_timer()
Dim a As Long, b As Long, c As Long
Randomisieren
a = Int(256 * Rnd )
b = Int(256 * Rnd)
c = Int(256 * Rnd )
UserForm1.Label1.ForeColor = RGB(a, b, c)
End Sub
Private Sub CommandButton2_Click()
UserForm1.Label1.Font.Bold = False
UserForm1.Label1.Font.Italic = False
Timer1.Enabled = False
End Sub
4. Doppelklicken Sie abschließend im Projektverwaltungsfenster auf Thisworkbook und geben Sie den folgenden Code in das Popup-Codefeld ein:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
5. Anhang: Wenn Sie nicht wissen, wie Sie die Schritte 2, 3 und 4 ausführen, schließen Sie den ersten Schritt ab und hinterlassen Sie mir Ihre E-Mail-Adresse.
Das obige ist der detaillierte Inhalt vonVBA wendet das Schlüsselwort J auf die Stapeländerung von Farben mehrerer CAD-Texte an. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!
