excel巨集教程 (巨集的介紹與基本使用):1:
1:a$6)"
5、避免迴圈引用
在上述公式賦值過程中，應避免在公式中引用被賦值的單元格，防止迴圈引用錯誤。
6、新增批註
可按如下方法格給單元格新增批註：
dim 批註文字 as string
批註文字=「批註示例」 '準備批註文字
activecell.addcomment '新增批註
activecell.comment.text text:=臨時 '寫入批註文字
activecell.comment.visible=false '隱藏批註[dvnews_page]
7、新增、刪除、複製、剪下、貼上單元格
range(「d10」).insert shift:=xltoright '在d10單元格處新增一新單元格，原d10格右移
range(「c2」).insert shift:=xldown '在c2單元格處新增一新單元格，原c2格下移
rows(2).entirerow.insert '在第2行前新增一空白行，原第2行下移
columns(3).entirecolumn.insert '在c列前新增一空白列，原c列右移
columns(「a:d」).delete shift:=xltoleft '刪除a列至d列，其右側列左移
rows(「3:5」).delete shift:=xlup '刪除第3行至第5行，其下方行上移
range(「b2」).entirerow.delete '刪除第2行
range(「c4」).entirecolumn.delete '刪除c列
range(「b10:c13」).copy '複製b10至c13單元格區域
cells(1,2).cut '剪下b1單元格
range(「d10」).select
activesheet.paste '自d10單元格起貼上剪貼簿中的內容
四)、圖表
1、工作表圖表
以下為一新增工作表圖表的例項。
charts.add after:=worksheets(「sheet1」) '在"sheet1"工作表之後新增新圖表工作表
activechart.charttype=xlxyscattersmooth '圖表型別為xy平滑線散點圖
activechart.setsourcedata source:=sheets(「結點座標」).range(「a1:b69」), plotby:= _
xlcolumns '圖表資料**於"結點座標"工作表的a1至b69單元格，且按列繪圖。
activechart.location where:=xllocationasnewsheet
with activechart
.hastitle = true
.charttitle.characters.text = 「節點座標」 '圖表標題"節點座標"
.axes(xlcategory, xlprimary).hastitle = true
.axes(xlcategory, xlprimary).axistitle.characters.text = 「x」 'x軸標題"x"
.axes(xlvalue, xlprimary).hastitle = true
.axes(xlvalue, xlprimary).axistitle.characters.text = 「y」 'y軸標題"y"
end with
with activechart.axes(xlcategory)
.hasmajorgridlines = true '顯示x軸主網格線，預設情況下為顯示
.hasminorgridlines = true '顯示x軸次網格線，預設情況下為不顯示
end with
with activechart.axes(xlvalue)
.hasmajorgridlines = true '標出x軸主網格值，預設情況下為標註
.hasminorgridlines = false '取消x軸次網格值標註，預設情況下為不標註
end with
activechart.legend.position = xlright '圖例顯示在圖表右側
2、嵌入式圖表
嵌入式圖表僅在新增方式及引用格式上與工作表圖表有所不同，而對圖表的設定基本類似。詳見下例。
set嵌入表=activesheet.chartobjects.add(0,0,200,300) '在當前工作表(0,0)座標處新增寬200，高300的嵌入式圖表
嵌入表.chart.charttype = xlcolumnclustered '圖表型別為簇狀柱形圖
嵌入表.chart.setsourcedata source:=sheets(1).range(「a2:b2」), plotby:=xlrows '設定圖表資料**
with 嵌入表.chart
.hastitle = false '無圖表標題
.axes(xlcategory, xlprimary).hastitle = false '無x軸標題
.axes(xlvalue, xlprimary).hastitle = false '無y軸標題
end with[dvnews_page]
五)、工作表
1、新增
sheets.add before:=sheets(1) '在第1工作表前新增新工作表
sheets.add after:=sheets(sheets.count) '在最後工作表後新增新工作表
2、移動
activesheet.move before:=sheets(2) '將當前工作表移動至第2工作表之前
3、命名
activesheet.name=「工作表名」 '將當前工作表命名為"工作表名"
excel巨集的用法
在不少時間excel中並沒有一些我們想要的函式，這時候我們可以在 xls x 的中定義巨集，定義了巨集後需要注意兩項問題 我這裡希望對乙個字串拆分，比如 希望將a列中 1,2,3,10,11 的資料拆分為c,d,e,f,g 5列。此時在excel的選單 工具 巨集 visual basic 編輯器 ...
Excel 巨集導資料
解決工作過程中，經常性的從excel中匯入資料庫 sql資料庫 建立巨集 一般巨集都是這種樣子的 sub aaa end sub 把下列 放入巨集中 dim i,k as integer dim conpon,groupbugcode as string dim strsql as variant ...
原 編寫Excel巨集
朋友使用excel製作 時向我提出這樣乙個需求 有一列寫出計算公式，另一列將該公式的計算結果自動算出，具體如下圖 我告訴他，這個寫乙個巨集就可以實現了。具體步驟如下 1.找到 工具 選單欄下的巨集 m 選單下的巨集 m 如下圖所示 2.在彈出的對話方塊上輸入名稱 calc，然後單擊建立按鈕，如下圖 ...