VBA wendet das Schlüsselwort J auf die Stapeländerung von Farben mehrerer CAD-Texte an

Verwenden Sie VBA, um mehrere CAD-Textfarben stapelweise zu ändern und nach Schlüsselwörtern für jeden CAD-Text zu suchen J hh4232

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

Farbtransformation in der VBA-Programmierung

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!