史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 軟體應用問題討論區
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


 
 
主題工具 顯示模式
舊 2015-06-17, 12:43 PM   #10 (permalink)
管理員
 
getter 的頭像
榮譽勳章
UID - 6433
在線等級: 級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時級別:96 | 在線時長:9733小時 | 升級還需:64小時
註冊日期: 2002-12-08
住址: 天線星球
文章: 8157
精華: 0
現金: 19955 金幣
資產: 765391 金幣
預設 給 Excel 自訂函數加 [描述] 說明

參考一:替 [自定義函數] 添加 [描述]

作法基本上是在「VBA 編輯器」下
1.檔案功能表的「檢視\瀏覽物件」或是按下 [F2] 按鍵。
2.畫面中的 [All Libraries] 下拉選單,選項改成 [VBAProject]。
3.在 [物件類別] 視窗內點選自訂函數的模組名稱(預設通常是 Module1 )。
3.在 [成員] 視窗內右鍵點選該自訂函數。
4.在跳出的功能表中選擇 [屬性],則出現 [成員選項] 對話方塊。
5.在 [描述(D)] 文字框內輸入 “描述文字”
6.按 [確定] 按鈕完成程序

文中作者發現? 咦!當完成上述步驟後,回工作表視窗去點選 [插入函數],
在 [使用者定義] 類別找到該函數時,發現並未出現剛剛輸入的“描述”?

7.當步驟 6 好了後,在該模組下的程式編輯視窗,隨便加個 Sub/Function 程序(空的也行)後,
 再去看看就出現了!

隨便加個 Sub/Function 程序:
語法:
Sub a123()

End Sub
或是

語法:
Function a123()

End Function
8.當確認過後,可以試著把這個隨便加個 Sub/Function 程序,砍掉在試試。ok 就可以存檔了。




之後有提到一個,用 VBA Sub 程式來添加 [描述] 說明,直接有效。
其程式碼如下

比較正式的寫法
語法:
Sub addDescription()
Application.MacroOptions Macro:="自訂函數的 [名稱]", _ 
                                     Description:="自訂函數的 [描述說明]"
End Sub
或是

語法:
Sub addDescription()
Application.MacroOptions "自訂函數的 [名稱]", _
                 Description:="自訂函數的 [描述說明]"
End Sub

這個增加 addDescription 是一個手動巨集,換言之還要到巨集裡面去執行這個
「addDescription 」巨集程式,最少一次才會有效,執行過後要記得存檔,不然
下次重開活頁簿要又要去執行該巨集程式。
可以把這個名稱改成 Auto_Open 的話。在開啟該活頁簿的同時也會同時執行。



其實這是使用了 Application.MacroOptions 的功能 MSDN 詳細中文說明
使用方式也是另外找到 ArgumentDescriptions:=[{"引數 1 的說明","引數 1 的說明", ...}]

其對應就是,依序對應到實際的引數上面。若是 Array 型的引數,只有一個引數說明時
全部共用一個。若試只有少數幾個時,前面照順序排列,之後沒有的公共最後一筆引數
說明。

這個 ArgumentDescriptions 經過測試 Excel 2003 不能使用,只有新版本的,如
Excel 2010、2013 才能用。Excel 2007 迪西不知道,也許可以。

比較正式的寫法
語法:
Sub addDescription()
Application.MacroOptions Macro:="自訂函數的 [名稱]", _ 
                                     Description:="自訂函數的 [描述說明]", _
                                     ArgumentDescriptions:=[{"引數 1 的說明","引數 1 的說明", ...}]
End Sub
或是

語法:
Sub addDescription()
Application.MacroOptions "自訂函數的 [名稱]", _
                 Description:="自訂函數的 [描述說明]", _
                 ArgumentDescriptions:=[{"引數 1 的說明","引數 1 的說明", ...}]
End Sub

Excel 2003 的要給引數加說明的方式,經過找尋文章測試,不是很理想,就不舉例了。

─────────────────────────────────────────────────────────

參考二:如何讓Excel的自訂函數顯示說明文字

基本上就是 Application.MacroOptions 的功能

參考二經過測試會無效的原因是,這個 DescribeFunction 是一個手動巨集,換言之還
要到巨集裡面去執行這個「DescribeFunction」巨集程式,最少一次才會有效,執行過
後要記得存檔,不然下次重開活頁簿要又要去執行該巨集程式。
可以把這個名稱改成 Auto_Open 的話。在開啟該活頁簿的同時也會同時執行。

─────────────────────────────────────────────────────────

VBA 自訂函數的 匯入、匯出、移除

寫好的相關「自訂函數」要匯出,在 「VBA 編輯器」下面
1.在專案小試窗上面,點選「模組」裡面的「模組名稱」。可以是巨集指令的,也可以是
 自訂函數的「模組名稱」。預設通常是 Module1。
2.接就是「檔案\匯出檔案」或是直接按下滑鼠右鍵,選「匯出檔案」。
3.會得到一個「模組名稱」.bas 的檔案,當然檔名可以再改。


當然也可以匯入,在 「VBA 編輯器」下面
「檔案\匯入檔案」。或是蠆在在專案小試窗上面的空白處,按下滑鼠右鍵,選「匯入檔案」。


有匯入、匯出,表示就會有「移除」,在 「VBA 編輯器」下面
1.在專案小試窗上面,點選「模組」裡面的「模組名稱」。可以試巨集指令的,也可以是
 自訂函數的「模組名稱」。預設通常是 Module1。
2.接就是「移除 XXX模組名稱」或是直接按下滑鼠右鍵,選「移除 XXX模組名稱」。

會問你要不要先從存成檔案在移除。這個就看人了。

此帖於 2015-06-18 01:21 PM 被 getter 編輯.
getter 目前離線  
送花文章: 37855, 收花文章: 6441 篇, 收花: 26052 次
回覆時引用此帖
向 getter 送花的會員:
a471 (2015-06-17)
感謝您發表一篇好文章
 



發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用

相似的主題
主題 主題作者 討論區 回覆 最後發表
請問Excel列印的問題 Ken1655 軟體應用問題討論區 3 2004-05-23 09:23 AM
EXCEL VBA專案被鎖?? suchunta 軟體應用問題討論區 0 2004-05-19 04:29 PM
EXCEL 文件中有可以一次大量更改 超鏈結 的方法嗎!? 995 一般電腦疑難討論區 12 2003-11-27 11:50 AM
Microsoft Excel 問題 ascendaniel 一般電腦疑難討論區 3 2003-11-21 10:08 PM


所有時間均為台北時間。現在的時間是 11:38 AM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2026, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1