|
>計算した値がエラー()になってしまいました。
の原因は、ちゃんと書いておきました.....。
要するにどう繰り返すのか解らないから大体で作ったら、
計算できる主要範囲を超えちゃったみたいでエラーになるのです。
>それからコードを解読しようとしたのですが、AD1 = Cells(2, i).Address(0, 0)
>とAD2 = Cells(2, i - 1).Address(0, 0)がわからなかったので教えていただけない
Addressプロパティーのヘルプを見たろろくな事が書いてなかったので、
正確に書くと
AD1 = Cells(2, i).Address(False, False)
意味は、
msgbox "Cells(3,5)のアドレスは、" & cells(3,5).Address(0, 0)
合っているのか解らない関数をシート2に書き込みましたから確認してください。
With Range(Range("A2"), Range("A65536").End(xlUp))
For i = 2 To 30
AD1 = Cells(2, i).Address(0, 0)
AD2 = Cells(2, i - 1).Address(0, 0)
.Offset(, 255).Formula = "=IF(" & AD1 & "=""?"",""""," & AD1 & "*1*" & AD2 & ")"
Sheets(2).Range(.Offset(, i).Address).Value = "'=IF(" & AD1 & "=""?"",""""," & AD1 & "*1*" & AD2 & ")"
.Offset(, i).Value = .Offset(, 255).Value
DoEvents
.Offset(, 255).ClearContents
Next
End With
Columns(256).Delete
|
|