エクセル コードがどうしても早くならない

質問

いつもお世話になります。
今回は下記コードを記載したのですが、どうにも遅いので何とかする方法があれば
との思いから投稿させて頂きます。

ListBox1（590以上の項目があります）をクリックしたら
非対象シートのA列を検索して、ヒットした場合
同シートのB列と同様の数字をListBox２から探し出して
チェックを付けて行く。（一応、計算ストップ等のコードは試しましたが変わりません）

基本情報としては
最初に、選択されているかもしれないListBox２のチェックをクリアをします。
ListBoxの１，２は同じ情報を使っています。
なので、ListBox１と同じ情報のListBox２については、最初の方でチェックを
付ける処理をしています。（(1)）
その後の処理が遅いのですが、ListBox１のどれかをクリックする度に２０秒以上
動きが止まってしまうので、何か対策があればどうぞ宜しくお願い致します。

※なぜか処理が終わるとフォームが消えてしまいます。例えばブラウザを一度アクティブ
　にしてからエクセルに戻ると出てくるのですが、何が原因でしょうか？

Private Sub ListBox1_Click()
Dim RR, HRR As Range
Dim SID As Integer
'
'With Application
' .ScreenUpdating = False
' .EnableEvents = False
' .Calculation = xlCalculationManual
'End With

'// 選択されているかもしれないListBox２のチェックをクリア
For i = 0 To Me.ListBox2.ListCount - 1
ListBox2.Selected(i) = False
Next

Debug.Print Time; " - 同じ会社にチェックを付けるスタート"
'// 同じ会社にチェックを付ける
For si = 0 To ListBox2.ListCount - 1
If Me.ListBox2.List(si, 0) = RR Then
Me.ListBox2.Selected(si) = True
si = 0
Exit For
End If
Next
Debug.Print Time; " - 同じ会社にチェックを付ける終り"

Debug.Print Time; " - 非対象シートにある対象外にチェックを付ける　スタート"
'// 非対象シートにある対象外にチェックを付ける
With Sheets("非対象")
For Each RR In .Range(.Cells(1, 1), .Cells(.Cells(600000, 1).End(xlDown).Row - 1, 1))
If RR = Me.ListBox1 Then
For si = 0 To ListBox2.ListCount - 1
If Me.ListBox2.List(si, 0) = .Cells(RR.Row, 2) Then
Me.ListBox2.Selected(si) = True

End If
Next
End If
Next
End With
Debug.Print Time; " - 非対象シートにある対象外にチェックを付ける　終り"

End Sub

回答No.1

f272 · ベストアンサー

とりあえず
For Each RR In .Range(.Cells(1, 1), .Cells(.Cells(600000, 1).End(xlDown).Row - 1, 1))
これを
For Each RR In .Range(.Cells(1, 1), .Cells(.Cells(600000, 1).End(xlUp).Row - 1, 1))
に変更してみたらどうでしょう。

お礼

完全にやらかしてましたね。。。
セルを最終行までやってれば遅くなるのは当たり前ですね(-_-;)

ご指摘ありがとうございました！
瞬時に終わる様になりました！！

回答No.2

ushi2015

こんにちは
最初の、'// 同じ会社にチェックを付ける
For si = 0 To ListBox2.ListCount - 1
If Me.ListBox2.List(si, 0) = RR Then
の時点で「RR」には何もセットされていませんけど？