返回列表 上一主題 發帖

[發問] 如何將vba模組做成函數指令，嵌到系統裡

暗黑

帖子
62 
主題
10 
精華
0 
積分
253 
點名
0  
作業系統
xp , win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
人心 
註冊時間
2010-5-21 
最後登錄
2012-8-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-22 23:21 | 顯示全部帖子

[發問] 如何將vba模組做成函數指令，嵌到系統裡

請教各位大大
小弟在寫函數式，因找不到像vba裡Split指令的功能，所以用vba寫了一個回傳巨集，如下
請問要如何將SplitRun做成 excel裡的函數指令呢??  如sum、avg.....等函數可直接叫用，而不是每次都要寫一次模組

儲存格
H10 ： 5100-100421133
H11 ：=splitrun(H10,"-",1) = 5100

vba 模組 如下

Function SplitRun(指定, 符號, 回傳序號)

  Dim StrRun
  StrRun = Split(指定, 符號)
   SplitRun = StrRun(回傳序號 - 1)

End Function
收藏 分享
是學程式而不是要程式，是進步的基礎

暗黑

帖子
62 
主題
10 
精華
0 
積分
253 
點名
0  
作業系統
xp , win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
人心 
註冊時間
2010-5-21 
最後登錄
2012-8-3 
2#
發表於 2010-7-23 08:16 | 顯示全部帖子
再請教..
SplitRun已存成增益集並載入了，
那要如何在vba編輯器中，不要出現SplitRun增益集呢
是學程式而不是要程式，是進步的基礎

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題