1樓：匿名使用者
sub 按鈕1_click()
dim 周長 as double, 面積 as double, 半徑 as double
周長 = 0
面積 = 0
半徑 = 15#
call subn(周長, 面積, 半徑)msgbox 周長 & " " & 面積
end sub
sub subn(byref 周長引數, byref 面積引數, byval 半徑引數)
if 半徑引數 < 0 then
周長引數 = 0
面積引數 = 0
else
周長引數 = 2 * 3.14 * 半徑引數面積引數 = 3.14 * 半徑引數 * 半徑引數end if
end sub
以上**是在excel的vba中除錯的，可以滿足的要求。
2樓：匿名使用者
不定義全域性變數，根本不可能做到的你的要求。
你用sub就必須要定義全域性公有變數。
★：專業定製各種小軟體，小型資料管理作業系統★：包售後 1 年（不含新增功能），6×18小時服務。實時解決問題！
怎麼在ecel中建立自定義函式，怎麼在Excel中建立自定義函式
在excel介面中，按下 alt f11 組合鍵，彈出microsoft visual basic介面，如下圖 上圖中，執行選單操作 插入 模組 之後，會彈出如下圖的模組1 的 編寫視窗。左邊選擇 通用 然後輸入上圖中的 即可。建立自定義函式，快捷鍵alt f11開啟vbe視窗，在工程資源管理器中新...
python自定義函式問題python中怎麼呼叫自定義函式？
if name main 你看下這句打錯沒有 最好直接複製過去，不要手寫 python中怎麼呼叫自定義函式？1 首先在當前目錄下找有沒有abc abc.py2 找python的安裝目錄 f python2.7exe lib site packages f python2.7exe lib 3 找電腦...
在excel中如何設計自定義函式完成如下要求
工具 巨集 錄製新巨集 將你需要做的程式做一遍，停止錄製 看看 以後執行就可以了 需要用vba。需要的話做個檔案給你。這個用陣列公式就可以輕鬆完成 求和 sum rank a1 a25,a1 a25,0 5 a1 a25 求平均值 sum rank a1 a25,a1 a25,0 5 a1 a25 ...