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 質問
【67432】Re:SUMPRODUCT関数の活用について SK63 10/12/2(木) 22:28 発言
【67433】Re:SUMPRODUCT関数の活用について SK63 10/12/2(木) 22:46 発言
【67445】Re:SUMPRODUCT関数の活用について Yaesu 10/12/4(土) 12:15 質問
【67447】Re:SUMPRODUCT関数の活用について SK63 10/12/5(日) 8:10 回答
【67461】Re:SUMPRODUCT関数の活用について Yaesu 10/12/6(月) 21:50 質問
【67463】Re:SUMPRODUCT関数の活用について Yaesu 10/12/6(月) 22:25 質問
【67480】Re:SUMPRODUCT関数の活用について SK63 10/12/8(水) 18:28 回答
【67530】Re:SUMPRODUCT関数の活用について Yaesu 10/12/10(金) 23:03 質問
【67531】Re:SUMPRODUCT関数の活用について SK63 10/12/11(土) 1:10 発言
【67532】Re:SUMPRODUCT関数の活用について SK63 10/12/11(土) 1:47 発言
【67639】Re:SUMPRODUCT関数の活用について Yaesu 10/12/20(月) 19:16 お礼

14691 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free