Code VB pour réaliser la méthode de contrôle du formatage du texte EXCEL

Comment utiliser le code VB pour contrôler le format du texte lors de la saisie de texte dans EXCEL

Pour accéder à EXCEL avec VB, vous devez d'abord référencer la bibliothèque de types Microsoft Excel dans le projet :

Sélectionnez la colonne « Référence » dans le menu « Projet » ; sélectionnez Bibliothèque d'objets Microsoft Excel 11.0 (EXCEL2003), puis sélectionnez « OK ». Indique que la bibliothèque de types EXCEL doit être référencée dans le projet.

Ensuite, le code pour accéder et définir la police est le suivant :

Dim xlApp comme Excel.Application

Dim xlBook comme Excel.WorkBook

Dim xlSheet comme Excel.Worksheet

Dim FileName, SheetName As String

FileName = "d:data.xls" 'chemin et nom du classeur Excel

SheetName = "sheet1" 'Le nom de la feuille de calcul qui doit être définie

Set xlApp = CreateObject(＂Excel.Application＂) 'Créer un objet EXCEL

Définissez xlBook = xlApp.Workbooks.Open(FileName) 'Ouvrez le fichier de classeur EXCEL existant

xlApp.Visible = True 'Définit l'objet EXCEL pour qu'il soit visible (ou invisible)

Set xlSheet = xlBook.Worksheets(SheetName) 'Définir la feuille de calcul active

With xlSheet.Range(＂C13:D19＂).Font 'Sélectionnez la zone définie.

.Name = "official script" 'Ces missions spécifiques peuvent être définies en fonction de vos propres besoins.

.FontStyle = "Gras"

.Taille = 16

.Barré = Faux

.Superscript = Faux

.Indice = Faux

.OutlineFont = False

.Ombre = Faux

.Souligné = xlUnderlineStyleNone

.ColorIndex = xlAutomatique

Fin avec

xlBook.Close (True) 'Ferme le classeur

xlApp.Quit 'Quitter l'objet EXCEL

Définir xlApp = Nothing 'Libérer l'objet xlApp

Le problème VB limite la zone de texte à seulement 10 caractères et saisit automatiquement tous les deux caractères

sous-texte privé1_onchange()

si len(text1.text)>14 '10 caractères + 4 astérisques alors text1.text=left(text1.text,14)

netstring=replace(text1.text,"*","") 'Supprimez l'astérisque ajouté

while len(netstring)>2 alors

display=affichage & ＂*＂ & gauche(netstring,2)

netstring = milieu(netstring,3)

wend

display = display & "*＂ & left(netstring,2)

text1.text=affichage

fin du sous

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!