画面のちらつきを無くす
よろしくお願いします。
１：シート上のセルからユーザーフォーム（フォームあ）を開く。
２：ユーザーフォームには、リストボックスが３つあります。
（リスト１、リスト２、リスト３）
リスト１から項目を選択、次にリスト２を選択した時と、リスト３を
選択したときに、画面がちらつきます。
このチラつきがないように、出来ないでしょうか。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 4 And Target.Row < 233 And Target.Column > 5 And Target.Column < 7 Then
フォームあ.Show vbModeless
Else
Unload フォームあ
End If
End Sub
Private Sub リスト1_Click()
Application.ScreenUpdating = False
With リスト１ActiveCell.Offset(0, 0).Activate
ActiveCell.Value = .List(.ListIndex, 0)
ActiveCell.Offset(0, 0).Value = .List(.ListIndex, 0)
ActiveCell.Offset(0, 0).Activate
End With
Application.ScreenUpdating = True
End Sub
Private Sub リスト２_Click()
Application.ScreenUpdating = False
With リスト２
ActiveCell.Offset(0, 3).Activate
ActiveCell.Value = .List(.ListIndex, 0)
ActiveCell.Offset(0, 0).Value = .List(.ListIndex, 0)
ActiveCell.Offset(0, -3).Activate
End With
Application.ScreenUpdating = True
End Sub
Private Sub リスト３_Click()
Application.ScreenUpdating = False
With リスト３
ActiveCell.Offset(0, 3).Activate
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = .List(.ListIndex, 0)
ActiveCell.Offset(0, 0).Value = .List(.ListIndex, 0)
ActiveCell.Offset(-1, 0).Activate
ActiveCell.Offset(0, -3).Activate
End With
Application.ScreenUpdating = True
End Sub
お礼
ご教授ありがとうございました。原因を突き止めました。サブルーチンの中にもApplication.ScreenUpdating = False をあっちこっち入れていたための現象でした！どうもありがとうございました！