excel的vba程式設計時,如何讓輸入的引數是好幾個連續的單元格

時間 2021-08-30 09:50:30

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