excelvbaでマクロ実行中に
セルに入力をするとマクロがとまってしまいます。
マクロの内容としては、セルの順番にアクティベートにして、
そのセルに入力を出来るようにしたいと思っています。
入力する時間を10秒間作るために、ループを下記のように書いております。
dblTimer = Timer
Do Until Int(Timer - dblTimer) = 11
this_sheet.Cells(2, 6) = Int((Timer - dblTimer))
DoEvents
Loop
11秒になった時にループを抜ける実装にしています。
この時に、セルに入力をするとマクロがとまってしまいます。
エラーメッセージは、
”実行時エラー1004”(アプリケーション定義またはオブジェクト定義のエラーです)
になります。
ネットで色々調べましたが、分かりませんでした。
お分かりになる方いらっしゃいましたら、教えて頂けると大変ありがたいです。
私としては、
宜しくお願い致します。
下記、全体のコードです。
'''lang-excelvba
Sub test_マトリクス順次入力()
ReDim Files_1(0)
ReDim Files_2(0)
Dim this_book As Workbook
Dim this_sheet As Worksheet
Set this_book = Workbooks("自動マクロトレーニング.xlsm")
Set this_sheet = this_book.Worksheets("マトリクス順次入力")
Dim i As Long
i = 3
Do Until Cells(i, 3) = ""
n = UBound(Files_1)
ReDim Preserve Files_1(n + 1)
Files_1(n + 1) = Cells(i, 3)
i = i + 1
Loop
Dim j As Long
j = 3
Do Until Cells(j, 4) = ""
m = UBound(Files_2)
ReDim Preserve Files_2(m + 1)
Files_2(m + 1) = Cells(j, 4)
j = j + 1
Loop
For k = 1 To UBound(Files_1)
this_sheet.Cells(k + 2, 6) = Files_1(k)
Next
For l = 1 To UBound(Files_2)
this_sheet.Cells(2, 6 + l) = Files_2(l)
Next
For k = 1 To UBound(Files_1)
For l = 1 To UBound(Files_2)
this_sheet.Cells(2 + k, 6 + l).Activate
dblTimer = Timer
Do Until Int(Timer - dblTimer) = 11
this_sheet.Cells(2, 6) = Int((Timer - dblTimer))
DoEvents
Loop
Next
Next
End Sub
'''