淺談Excel 的VB編程.txt

1、淺談 Excel 的 VB 編程作者：蔣云鵬 ---- Excel 是一個(gè)優(yōu)秀的電子表格軟件，如果你編的程序需要以報(bào)表的形式顯示最終結(jié)果，它會(huì)是個(gè)不錯(cuò)的選擇。你可以通過(guò) VB 控制 Excel 顯示數(shù)據(jù)表格。如果你不愿意深入了解 Excel 這些瑣碎的細(xì)節(jié)，也不是沒(méi)有權(quán)宜之計(jì)：你可以打開(kāi) Excel 中的工具→宏→錄制新宏，然后進(jìn)行手工操作，結(jié)束后把所錄的宏代碼貼進(jìn)你的 VB 程序就行。這樣得到的程序一般都能正常運(yùn)行，但其中的宏代碼往往

2、不夠簡(jiǎn)潔，效率和可讀性都不高。---- Excel 編程碰到的第一個(gè)問(wèn)題是表頭。有時(shí)表頭的形式比較復(fù)雜，需要橫向或縱向合并單元格。請(qǐng)放心，只要沒(méi)有斜杠，Excel 都能應(yīng)付得了。---- 例如合并 A2~A5 這 4 個(gè)單元格，你錄制的宏代碼會(huì)是這樣：Range(“A2:A5“).SelectWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlBotto

3、m.WrapText = False.Orientation = 0.AddIndent = False.ShrinkToFit = False.MergeCells = FalseEnd WithSelection.Merge---- 而自己編程只要一句 Range.(“A2:A5”).mergecells=True 就可以解決問(wèn)題。---- 表頭形式定了，再就是表頭的內(nèi)容。如果單元格中的文本長(zhǎng)度超過(guò)了列寬，往往只能顯示部分內(nèi)容，行尾

4、那一格的內(nèi)容則會(huì)“越境”進(jìn)入右邊那個(gè)空白單元格，很不美觀。這個(gè)問(wèn)題可以通過(guò)在程序中設(shè)置列寬加以解決。---- Columns(14).columnwidth=12 ‘設(shè)置第 14 列列寬為 12（缺省列寬為 8.38）---- 如果你不愿意勞神去逐列估計(jì)實(shí)際所需的列寬，干脆來(lái)一行---- Columns(“a:i”).autofit ‘a(chǎn) 到 i 列自動(dòng)調(diào)整列寬---- 讓 Excel 隨機(jī)應(yīng)變吧。---- 但也許你不喜歡這種方法，認(rèn)為

5、表頭撐大了列寬，弄得瀏覽一張小表格還得向右滾動(dòng)，太不方便了。要是能保持默認(rèn)列寬，讓文本自動(dòng)換行就好了。沒(méi)問(wèn)題，Excel 包你滿意。---- Rows(3).WrapText=True ‘讓第三行各單元格中的文本自動(dòng)換行---- 不過(guò)你最好再加一句 Rows(3) .VerticalAlignment = xlTop 讓表頭自動(dòng)向上對(duì)齊，這樣比較符合習(xí)慣。---- 你還可以給表頭打上底色，讓你的讀者不至于看了打哈欠。---- Rows(

6、2). Interior .ColorIndex = 5 '設(shè)置第 2 行底色為藍(lán)色---- 再給表格的標(biāo)題上色，這樣更醒目一點(diǎn)。---- Rows(1).Font.ColorIndex=4---- 表頭完成后該填數(shù)據(jù)了，一個(gè)一個(gè)地填實(shí)在是太慢了，如果你的數(shù)據(jù)是存放在一個(gè)二維數(shù)組中，那問(wèn)題就簡(jiǎn)單多了。Dim Data(3,4)………… ‘?dāng)?shù)據(jù)處理Range(“a2:d4”).Value=Data---- 這樣可以一次填入一個(gè)表的

7、所有數(shù)據(jù)，夠快了吧！不過(guò)提醒一句，Range 對(duì)象大小最好與數(shù)組匹配，小了無(wú)法顯示所有數(shù)據(jù)，大了則會(huì)在空白單元格只填入“N/A”表示沒(méi)有取得數(shù)據(jù)。---- 如果需要在結(jié)果中顯示多個(gè)同樣規(guī)格的數(shù)據(jù)表，想在 Range 對(duì)象中加入循環(huán)變量，這也好辦。Dim cell11,cell2Dim Data(3,4)…………For I =1 to 40………… ‘?dāng)?shù)據(jù)處理Set cell1=Worksheets(“Sheet1“).Cells(5*I

8、-4,1)Set cell2=Worksheets(“Sheet1“).Cells(5*I-2,4)Worksheets(“Sheet1“).Range(cell1,cell2).value=DataNext I---- 表格填完了，現(xiàn)在該打表格線了，以下幾條語(yǔ)句可以滿足你的要求：With Worksheets(“Sheet1“).Range(cell1,cell2).borders.LineStyle=xlContinuous.wei