Kod VB untuk merealisasikan kaedah mengawal pemformatan teks EXCEL

Cara menggunakan kod VB untuk mengawal format teks apabila memasukkan teks ke dalam EXCEL

Untuk mengakses EXCEL dengan VB, anda perlu merujuk perpustakaan jenis Microsoft Excel terlebih dahulu dalam projek:

Pilih lajur "Rujukan" daripada menu "Projek" pilih Perpustakaan Objek Microsoft Excel 11.0 (EXCEL2003), dan kemudian pilih "OK". Menunjukkan bahawa perpustakaan jenis EXCEL harus dirujuk dalam projek.

Kemudian kod untuk mengakses dan menetapkan fon adalah seperti berikut:

Malapkan xlApp Sebagai Excel.Application

Malapkan xlBook Sebagai Excel.WorkBook

Malapkan xlHelaian Sebagai Excel.Lembaran Kerja

Malapkan Nama Fail, Nama Helaian Sebagai Rentetan

FileName = "d:data.xls" 'jalan dan nama buku kerja excel

SheetName = "sheet1" 'Nama lembaran kerja yang perlu ditetapkan

Tetapkan xlApp = CreateObject(＂Excel.Application＂) 'Buat objek EXCEL

Tetapkan xlBook = xlApp.Workbooks.Open(FileName) 'Buka fail buku kerja EXCEL sedia ada

xlApp.Visible = Benar 'Tetapkan objek EXCEL untuk kelihatan (atau tidak kelihatan)

Tetapkan xlSheet = xlBook.Worksheets(SheetName) 'Tetapkan lembaran kerja aktif

Dengan xlSheet.Julat(＂C13:D19＂).Fon 'Pilih kawasan yang ditetapkan.

.Name = "skrip rasmi" 'Tugasan khusus ini boleh ditetapkan mengikut keperluan anda sendiri.

.FontStyle = "Tebal"

.Saiz = 16

.Strikethrough = Palsu

.Superskrip = Palsu

.Subskrip = Palsu

.OutlineFont = Palsu

.Bayang = Palsu

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatik

Tamat Dengan

xlBook.Tutup (Benar) 'Tutup buku kerja

xlApp.Keluar 'Keluar objek EXCEL

Tetapkan xlApp = Tiada apa-apa 'Lepaskan objek xlApp

Masalah VB mengehadkan kotak teks kepada hanya 10 aksara dan secara automatik memasuki setiap dua aksara

sub teks peribadi1_onchange()

jika len(text1.text)>14 '10 aksara + 4 asterisk kemudian text1.text=left(text1.text,14)

netstring=replace(text1.text,"*","") 'Alih keluar asterisk

sementara len(netstring)>2 kemudian

paparan=paparan & ＂*＂ & kiri(netstring,2)

netstring = pertengahan(netstring,3)

wend

paparan = paparan & "*＂ & kiri(netstring,2)

text1.text=display

tamat sub

Atas ialah kandungan terperinci Kod VB untuk merealisasikan kaedah mengawal pemformatan teks EXCEL. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!