VBA applique le mot-clé J à la modification par lots des couleurs de plusieurs textes CAO

Utilisez VBA pour modifier par lots plusieurs couleurs de texte CAO et rechercher des mots-clés pour chaque texte CAO J hh4232

Sub txtGSssssssssssss()

'En cas d'erreur, reprendre ensuite

Dim sSet As AcadSelectionSet, eV As AcadText, i

Dim tj1() comme entier, tj2() comme variante

ReDim tj1(0), tj2(0) : tj1(0) = 0 : tj2(0) = ＂Texte＂

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

sSet.Select acSelectionSetPrevious, , , tj1, tj2 'Selected

'sSet.Select acSelectionSetAll, , , tj1, tj2 'Sélectionner tout

Pour chaque eV In sSet 'Boucle dans l'ensemble de sélection

Si InStr(eV.TextString, "J") > 0 Alors eV.color = acRed

Suivant

sSet.Update

sSet.Delete

Fin du sous-marin

Transformation des couleurs dans la programmation VBA

1. Tout d'abord, veuillez télécharger le contrôle de minuterie VBA en ligne et placez le fichier ".ocx" dans le lecteur C - dossier windows-system32, puis démarrez - exécutez - "regsvr32 VBAtimer.ocx" - OK (Remarque : ici, supposons que le fichier OCX que vous avez téléchargé s'appelle "VBAtimer.ocx").

2. Ensuite, ouvrez Excel, créez un formulaire selon vos propres besoins, puis cliquez avec le bouton droit sur la barre d'outils - "Contrôles supplémentaires" - recherchez le contrôle VBAtimer que vous venez d'installer et dessinez un contrôle de minuterie n'importe où sur le formulaire.

3. Faites ensuite un clic droit sur le formulaire nouvellement créé - "Afficher le code" et entrez le code suivant :

Sous-CommandButton1_Click() privé

UserForm1.Label1.Font.Bold = Vrai

UserForm1.Label1.Font.Italic = True

Timer1.Interval = 500

Timer1.Enabled = Vrai

Fin du sous-marin

Sub timer1_timer()

Dim a aussi longtemps, b aussi longtemps, c aussi longtemps

Randomiser

a = Int(256 * Rnd )

b = Int(256 * Rnd)

c = Int(256 * Rnd )

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

Fin du sous-marin

Sous-CommandButton2_Click() privé

UserForm1.Label1.Font.Bold = Faux

UserForm1.Label1.Font.Italic = False

Timer1.Enabled = Faux

Fin du sous-marin

4. Enfin, double-cliquez sur Thisworkbook dans la fenêtre de gestion de projet et saisissez le code suivant dans la zone de code contextuelle :

Sous-classeur privé_Open()

UserForm1.Show

Fin du sous-marin

5. Pièce jointe : Si vous ne savez pas comment effectuer les étapes 2, 3 et 4, terminez la première étape et laissez-moi votre adresse e-mail.

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!