第二個自定義函式是方便以某一工作表建立後直接賦值工作簿
'建立工作簿,指定有多少個工作表
function createworkbook(
optional
byval sheet_num as
integer=1
)as workbook
dim n as
integer
, count as
integer
, diff as
integer
dim wb as workbook
set wb = workbooks.add
count = wb.sheets.count
if count < sheet_num then
dountil count = sheet_num
wb.sheets.add after:
=wb.sheets(count)
count = count +
1loop
else
false
dountil count = sheet_num
wb.sheets(count).delete
count = count -
1loop
true
endif
'set createworkbook = wb
endfunction
'複製某一工作表建立工作簿
function createworkbookfromsheet(sh as worksheet)
dim wb as workbook
set wb = createworkbook(1)
sh.copy after:
=wb.sheets(1)
false
wb.sheets(
1).delete
true
set createworkbookfromsheet = wb
endfunction
他山之石 VBA自定義函式
vba自定義函式自己是最近才開始使用的。其好處是可在工作表中直接呼叫,很方便。這裡,這位老師總結的很好,學習了!1 什麼是自定義函式?在vba中有vba函式,我們還可以呼叫工作表函式,我們能不能自已編寫函式呢?可以,這就是本集所講的自定義函式 2 怎麼編寫自定義函式?我們可以按下面的結構編寫自定義函...
VBA使用者自定義函式
函式是一組可重複使用的 可以在程式中的任何地方呼叫。這消除了一遍又一遍地編寫相同的 的需要。這使程式設計師能夠將乙個大程式劃分成許多小的可管理的功能模組。除了內建函式外,vba還允許編寫使用者定義的函式。乙個vba函式可以有乙個可選的return語句。如果要從函式返回值,則可使用return語句。例...
VBA自定義函式 Minkowski距離
接觸vba第一天,寫了個閔可夫斯基距離 當r 1時,距離為曼哈頓距離 當r 2時,距離為歐幾里得距離距離 直線距離 當r 時,距離為切比雪夫距離 根據閔可夫斯基距離距離公式,在vba寫出以下 public function distance a as range,b as range,optiona...