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...