|
お世話になります。
プログラムの抜粋で申し訳ないのですが、以下のコードのDEBUG.PRINT AMD6の箇所まで、動作いたしません。エラーは出ませんがAMD6が1になりません。私の考えでは”※”の部分の書き方がミスしているせいで悪さをしていると思うのですが、一読して、原因に気づかれる方がいましたらどうかアドバイスお願いします。
mymaxrow2 = Worksheets("作").Range("A65536").End(xlUp).row
vntData3 = Sheets("作").Range(Cells(1, 4), Cells(mymaxrow2, 4)).Value
AMD4 = 1
Debug.Print "AMD4=" & 1
mymaxrow2 = Worksheets("D2").Range("A65536").End(xlUp).row
AMD5 = 1
Debug.Print "AMD5=" & 1
Sheets("D2").Cells(mymaxrow2 + 1, 200) = WorksheetFunction.max(vntData3.Range(Cells(1 + 26, 1), Cells(9 + 26, 1)))←※
AMD6 = 1
Debug.Print "AMD6=" & 1
|
|