10/06/05 00:07:37
>>132
Sub test()
i = 3
OLD_QTY = Cells(i, 4).Value '数字
Cells(i, 4).Value = Range("A1").Value
If Not Cells(i, 4).Comment Is Nothing Then
Cells(i, 4).ClearComments
End If
Cells(i, 4).AddComment Text:=OLD_QTY
'Cells(i, 4).AddComment Text:="" & OLD_QTY
End Sub
実行時エラー1004って出るよ。
お前も試してみたらどうだ？