Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14691 / 76734

←次へ　｜　前へ→


	【67532】Re:SUMPRODUCT関数の活用について

SK63 - 10/12/11(土) 1:47 -


	引用なし

	パスワード

▼SK63 さん：
" 4:"ここは、"4:"出ないですか？？
でエラーは直ったと思いますが？？どうでしょうか？
テストでしたのコードを実行してみると問題ないのですが
配列Na(i)がおかしいのでは。

ade = ActiveSheet.Cells(de, i).Address
ads = ActiveSheet.Cells(4, i).Address
初買わない理由があるのですか？
ヘルプの引用です。

Set mc = Worksheets("Sheet1").Cells(1, 1)
MsgBox mc.Address()　　　　　　　　　　　　　　　' $A$1
MsgBox mc.Address(RowAbsolute:=False)　　　　　　' $A1
MsgBox mc.Address(ReferenceStyle:=xlR1C1)　　　　' R1C1
MsgBox mc.Address(false,false)　　　　　　　　　 'A1

retu2 = 9
retu1 = 12
de = 10
ke = 11

Dim na(20) As String
na(9) = "I"
na(10) = "J"
na(11) = "K"
na(12) = "L"

For i = retu2 To retu1

ade = ActiveSheet.Cells(de, i).Address
ads = ActiveSheet.Cells(4, i).Address

Worksheets("sheet1").Cells(ke, i) = "=SUMPRODUCT(VALUE(B4:B" & de & "),VALUE(" & ads & ":" & ade & "))"
Next i

3 hits

▼

【67431】SUMPRODUCT関数の活用について Yaesu 10/12/2(木) 21:58