VB-Code zur Realisierung der Methode zur Steuerung der Excel-Textformatierung

So verwenden Sie VB-Code, um das Textformat bei der Texteingabe in EXCEL zu steuern

Um mit VB auf EXCEL zuzugreifen, müssen Sie zunächst auf die Microsoft Excel-Typbibliothek im Projekt verweisen:

Wählen Sie im Menü „Projekt“ die Spalte „Referenz“ aus; wählen Sie „Microsoft Excel 11.0-Objektbibliothek“ (EXCEL2003) und dann „OK“. Gibt an, dass im Projekt auf die EXCEL-Typbibliothek verwiesen werden soll.

Dann lautet der Code zum Aufrufen und Festlegen der Schriftart wie folgt:

XLApp als Excel-Anwendung dimmen

XLBook als Excel.WorkBook dimmen

XLSheet als Excel-Arbeitsblatt dimmen

Dim FileName, SheetName As String

FileName = "d:data.xls" 'Pfad und Name der Excel-Arbeitsmappe

SheetName = "sheet1" 'Der Name des Arbeitsblatts, das festgelegt werden muss

Set xlApp = CreateObject(＂Excel.Application＂) 'EXCEL-Objekt erstellen

Set xlBook = xlApp.Workbooks.Open(FileName) 'Öffnen Sie die vorhandene Excel-Arbeitsmappendatei

xlApp.Visible = True 'Legen Sie das EXCEL-Objekt so fest, dass es sichtbar (oder unsichtbar) ist

Set xlSheet = xlBook.Worksheets(SheetName) 'Aktives Arbeitsblatt festlegen

Mit xlSheet.Range(＂C13:D19＂).Font 'Wählen Sie den festgelegten Bereich aus.

.Name = "offizielles Skript" 'Diese spezifischen Zuweisungen können nach Ihren eigenen Bedürfnissen festgelegt werden.

.FontStyle = "Bold"

.Größe = 16

.Durchgestrichen = Falsch

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = Falsch

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

Ende mit

xlBook.Close (True) 'Arbeitsmappe schließen

xlApp.Quit 'EXCEL-Objekt beenden

Set xlApp = Nothing 'XLApp-Objekt freigeben

Das VB-Problem begrenzt das Textfeld auf nur 10 Zeichen und trägt automatisch alle zwei Zeichen ein

privater Untertext1_onchange()

Wenn len(text1.text)>14 '10 Zeichen + 4 Sternchen, dann text1.text=left(text1.text,14)

netstring=replace(text1.text,"*","") 'Entferne das hinzugefügte Sternchen

while len(netstring)>2 then

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

netstring = mid(netstring,3)

wend

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

text1.text=display

Untertitel beenden

Das obige ist der detaillierte Inhalt vonVB-Code zur Realisierung der Methode zur Steuerung der Excel-Textformatierung. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!