excel巨集的用法

在不少時間excel中並沒有一些我們想要的函式，這時候我們可以在*.xls[x]的中定義巨集，定義了巨集後需要注意兩項問題：

我這裡希望對乙個字串拆分，比如：希望將a列中『[1, 2, 3, 10, 11]』的資料拆分為c,d,e,f,g 5列。

此時在excel的選單-》工具-》巨集-》visual basic 編輯器

之後會開啟巨集編輯器，在選單-》插入-》模組，插入「模組1」，「模組2」

在模組1中寫入拆分函式：

function splitfunc(rng as range, splitchar as

string, idx as
integer) as
string
dim replacechar as
string
'替換[、]
replacechar = replace(rng.text, "
[", ""
)    replacechar = replace(replacechar, "
]", ""
)    
'按照指定字串進行分割，然後返回指定分割後陣列項
splitfunc = split
(replacechar, splitchar)(idx)
end function

在模組2中寫入是否連續判斷函式：

function islinknum(rng1 as range, rng2 as range, rng3 as range, rng4 as range, rng5 as range) as

integer
dim c1 as
integer
dim c2 as
integer
dim c3 as
integer
dim c4 as
integer
dim c5 as
integer
c1 = cint
(rng1.text)
c2 = cint
(rng2.text)
c3 = cint
(rng3.text)
c4 = cint
(rng4.text)
c5 = cint
(rng5.text)
if ((c5 - c4 = 1) and (c4 - c3 = 1) and (c3 - c2 = 1) and (c2 - c1 = 1)) then
islinknum = 1
else
islinknum = 0
endif
end function

Excel巨集教程

excel巨集教程 巨集的介紹與基本使用 1 1 a 6 5 避免迴圈引用 在上述公式賦值過程中，應避免在公式中引用被賦值的單元格，防止迴圈引用錯誤。6 新增批註 可按如下方法格給單元格新增批註 dim 批註文字 as string 批註文字 批註示例 準備批註文字 activecell.addco...

C 呼叫Excel的巨集

用到了三個元件 using excel microsoft.office.interop.excel using office microsoft.office.core using vbide microsoft.vbe.interop 因為涉及到大批量的excel檔案的處理 首先 先要把文字檔案...

Excel 巨集導資料

解決工作過程中，經常性的從excel中匯入資料庫 sql資料庫 建立巨集 一般巨集都是這種樣子的 sub aaa end sub 把下列 放入巨集中 dim i,k as integer dim conpon,groupbugcode as string dim strsql as variant ...