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