1樓：匿名使用者
設定引數為range型別，即可以表示連續的區域。舉例說明：
做一個自定義函式，該函式的引數為一個區域，結果輸出為區域中的數值之和。
自定義函式的**如下：
function myf(a as range)dim b as variant
myf = 0
for each b in a
myf = myf + b.value
next
end function
使用該自定義函式結果如圖：
2樓：太極健
function pfh(rng as range)dim rng1 as range
dim k
for each rng1 in rng
k = k + rng1 ^ 2
next
pfh = k
end function
把**寫到模組中
以下**還可以忽略非數字
function pfh(rng as range)dim rng1 as range
dim k
for each rng1 in rng
if isnumeric(rng1) then k = k + rng1 ^ 2
next
pfh = k
end function
3樓：匿名使用者
=pfh(a1,i), i代表單元格個數
4樓：小新de和尚頭
public function 平方和(rng as range)for each rng in selections=s+rng*rng
next
平方和=s
end function
vba怎樣將數字迴圈輸入到單元格中
5樓：平陽虎
看以下**的效果是不是想要的
6樓：匿名使用者
這個問題，用單個單元格迴圈，看不到什麼規律，以我的能力，只能9個數一組，迴圈輸入了。
7樓：弗爾佈雷斯
如果只是像你說的這樣，不用vba，公式即可，先在a1、a2、a3中分別輸入123，然後在a4中輸入以下公式並下拉即可：
=if((a1+1)>3,1,a1+1)
excel關於自動生成日期的vba程式設計，請大家幫個忙
private sub worksheet change byval target as range if target.column 1 and target and target.offset 0,1 then activecell.offset 1,1 date if target.colum...
Excel反向篩選如何程式設計，excel如何分組篩選
高階篩選 篩選條件,用到countif函式 excel如何分組篩選 1 以excel2007為例，單擊 office按鈕 excel選項 高階 2 在 此工作簿的顯示選項 中勾選 使用 自動篩選 選單分組日期 3 單擊 確定 即可完成在excel中進行自動分組篩選。excel 篩選奇偶 b1輸入 i...
請問如何用excel的VBA做出，從1 20中任取數的所有組合，總共是125970種，求高手支招，萬謝
如果你只是需要結果的話，可以用函式 combin 20,8 直接求的結果，如果真是要用vba實現的話按照 tat蘿蔔說的做就行了，完善如下 sub zuhe dim times as double for i1 1 to 13 for i2 i1 1 to 14for i3 i2 1 to 15fo...