Excel是一個優秀的電子表格軟件，如果你編的程序需要以報表的形式顯示最終結果，它會是個不錯的選擇。你可以通過VB控制Excel顯示數據表格。如果你不愿意深入了解Excel這些瑣碎的細節，也不是沒有權宜之計：你可以打開Excel中的工具→宏→錄制新宏，然后進行手工操作，結束后把所錄的宏代碼貼進你的VB程序就行。這樣得到的程序一般都能正常運行，但其中的宏代碼往往不夠簡潔，效率和可讀性都不高。
----Excel編程碰到的第一個問題是表頭。有時表頭的形式比較復雜，需要橫向或縱向合并單元格。請放心，只要沒有斜杠，Excel都能應付得了。
----例如合并A2~A5這4個單元格，你錄制的宏代碼會是這樣：
Range("A2:A5").Select
WithS
----再給表格的標題上色，這樣更醒目一點。
----Rows(1).Font.ColorIndex=4
----表頭完成后該填數據了，一個一個地填實在是太慢了，如果你的數據是存放在一個二維數組中，那問題就簡單多了。
DimData(3,4)
…………‘數據處理
Range(“a2:d4”).Value=Data
----這樣可以一次填入一個表的所有數據，夠快了吧!不過提醒一句，Range對象大小最好與數組匹配，小了無法顯示所有數據，大了則會在空白單元格只填入“N/A”表示沒有取得數據。
----如果需要在結果中顯示多個同樣規格的數據表，想在Range對象中加入循環變量，這也好辦。
Dimcell11,cell2
DimData(3,4)
…………
ForI=1to40
…………‘數據處理
Setcell1=Worksheets("Sheet1").Cells(5*I-4,1)
Setcell2=Worksheets("Sheet1").Cells(5*I-2,4)
Worksheets("Sheet1").Range(cell1,cell2).value=Data
新聞熱點
疑難解答
