[發問] 自定義函數如何賦值給儲存格

自定義函數內如何賦值給儲存格,感恩.

自定函數賦值.rar (13.23 KB)

樓主熱帖

杜小平

dou10801

中學生 Rank: 2

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 236
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

2^#

發表於 2023-5-23 16:11 | 顯示全部帖子

回復 2# Andy2483 請教前輩,是否能將result[參數],傳到[A1]儲存格,謝謝.

杜小平

TOP

dou10801

中學生 Rank: 2

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 236
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

3^#

發表於 2023-5-24 11:41 | 顯示全部帖子

本帖最後由 dou10801 於 2023-5-24 11:43 編輯

回復 6# Andy2483 感謝:quickfixer,Andy2483 兩位前輩指點,如果,要傳遞給[A1]的是一個字串,要如何處理,感恩.

杜小平

TOP

dou10801

中學生 Rank: 2

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 236
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

4^#

發表於 2023-5-24 13:47 | 顯示全部帖子

回復 9# Andy2483
非常感謝回覆,試著用字串,MyCustomFunction("水果","蔬菜"),如何處理,謝謝.
Option Explicit
Function MyCustomFunction(ByVal arg1 As String, ByVal arg2 As String) As String
Evaluate "test1(" & Application.Caller.Offset(-1, -1).Address(0, 0) & "," & arg1 & "," & arg2 & ")"
MyCustomFunction = ""
End Function

Function test1(c As Range, a As Range, b As Range)
c = "'" & a & b
End Function

杜小平

TOP

dou10801