返回列表下一主題上一主題發帖

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

暗黑

中學生 Rank: 2

帖子: 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

樓主熱帖

是學程式而不是要程式，是進步的基礎

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-7-22 23:57 | 只看該作者

回復 1# 暗黑

存成增益集xla,載入增益集

學海無涯_不恥下問

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^#

發表於 2010-7-22 23:59 | 只看該作者

本帖最後由 luhpro 於 2010-7-23 00:06 編輯

你可參考 VBA 的說明中關於 MacroOptions 函數的用法與範例.

Sub AddUDFToCustomCategory()
Application.MacroOptions Macro:="SplitRun", Description:="巨集的說明", Category:="我的類別"
End Sub

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

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

此法中所建立出來的函數只能用於該程式所在的檔案,
但存檔後即可一直使用而不再需要執行該程式.

TOP

暗黑