初めまして、以下のVBAを組みました。メインプロシージャは以下の通りです。処理時間が長いので、途中でボタンを押す事により、中断したいと思っております。しかし、ボタンおしても止まりません。何卒ご教授の程宜しくお願い申し上げます。
c = 0
g = 0
UserForm.Show vbModeless
UserForm.Repaint
flag = False
For y = kk To ll
For x = ii To jj
If ws1.Cells(y, x).Value = ws2.Cells(y, x).Value Then
Else
g = g + 1
c = c + 1
ws2.Cells(y, x).Interior.ColorIndex = 3
ws3.Cells(g, "A") = Cells(y, x).Address(RowAbsolute:=False, ColumnAbsolute:=False)
End If
DoEvents
If flag Then Exit For
Next x
If flag = True Then GoTo ErrorHandler:
Next y
flag = False
Unload UserForm
Exit Sub
ErrorHandler:
flag = False
Unload UserForm
MsgBox "エラーで終了しました。"
End Sub
ユーザーフォームは以下の通りです。
Private Sub CommandButton1_Click()
flag = True
End Sub
当然flagはメインプロシージャの前に定義しております。
以上、宜しくお願い申し上げます。
初めまして、以下のVBAを組みました。メインプロシージャは以下の通りです。処理時間が長いので、途中でボタンを押す事により、中断したいと思っております。しかし、ボタンおしても止まりません。何卒ご教授の程宜しくお願い申し上げます。
c = 0
g = 0
UserForm.Show vbModeless
UserForm.Repaint
flag = False
For y = kk To ll
For x = ii To jj
If ws1.Cells(y, x).Value = ws2.Cells(y, x).Value Then
Else
g = g + 1
c = c + 1
ws2.Cells(y, x).Interior.ColorIndex = 3
ws3.Cells(g, "A") = Cells(y, x).Address(RowAbsolute:=False, ColumnAbsolute:=False)
End If
DoEvents
If flag Then Exit For
Next x
If flag = True Then GoTo ErrorHandler:
Next y
flag = False
Unload UserForm
Exit Sub
ErrorHandler:
flag = False
Unload UserForm
MsgBox "エラーで終了しました。"
End Sub
ユーザーフォームは以下の通りです。
Private Sub CommandButton1_Click()
flag = True
End Sub
当然flagはメインプロシージャの前に定義しております。
以上、宜しくお願い申し上げます。