画面のちらつきを無くす

質問

よろしくお願いします。
１：シート上のセルからユーザーフォーム（フォームあ）を開く。
２：ユーザーフォームには、リストボックスが３つあります。
　　（リスト１、リスト２、リスト３）

　リスト１から項目を選択、次にリスト２を選択した時と、リスト３を
　選択したときに、画面がちらつきます。

このチラつきがないように、出来ないでしょうか。

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

回答No.3

nag0720 · ベストアンサー

＃２です。何度もすみません。
この場合は、
Application.ScreenUpdating
を変えなくてもいいかもしれません。
実際に実行してみましたが、この行があると少しですが画面がちらつくようですが、ないと全くちらつきませんでした。

Private Sub リスト１_Click()
ActiveCell.Value = リスト１.List(リスト１.ListIndex, 0)
End Sub

Private Sub リスト２_Click()
ActiveCell.Offset(0, 3).Value = リスト２.List(リスト２.ListIndex, 0)
End Sub

Private Sub リスト３_Click()
ActiveCell.Offset(1, 3).Value = リスト３.List(リスト３.ListIndex, 0)
End Sub

回答No.2

nag0720

ちらつく原因は、
ActiveCell.Offset(0, 3).Activate
などでActiveCellを変更しているためだと思います。
セルに値を入れるだけだったらActiveCellを変える必要はありません。

Private Sub リスト１_Click()
Application.ScreenUpdating = False
ActiveCell.Value = リスト１.List(リスト１.ListIndex, 0)
Application.ScreenUpdating = True
End Sub

Private Sub リスト２_Click()
Application.ScreenUpdating = False
ActiveCell.Offset(0, 3).Value = リスト２.List(リスト２.ListIndex, 0)
Application.ScreenUpdating = True
End Sub

Private Sub リスト３_Click()
Application.ScreenUpdating = False
ActiveCell.Offset(1, 3).Value = リスト３.List(リスト３.ListIndex, 0)
Application.ScreenUpdating = True
End Sub

回答No.1

noname#150256

すいません。
私もあまり詳しくないので間違えるかもしれないですが
エクセルvbaですよね？

私がよく画面のちらつきをなくすために使用するコードは
Application.ScreenUpdating = False
です。
戻す時は
Application.ScreenUpdating = True
にします。

補足

皆様　回答ありがとうございます。
ご返事をするのが遅くなってすみません。

私の説明不足で誠にすみません。

リスト３は結合セル（２行分）を、マタイでいますので
お教えいただいた構文では、目的のセルの１行下に転入されます。

ActiveCell.Offset(1, 3).Value = 材料店リスト.List(材料店リスト.ListIndex, 0)
　　　　　　　　　　^^^^^^
自己流で下のようにしてみました。
一応、思い通りの位置に転記されるのですが構文として正しいでしょうか。
よろしくご教示お願いします。

ActiveCell.Offset(0, 3).Activate
ActiveCell.Offset(1, 0).Value = 材料店リスト.List(材料店リスト.ListIndex, 0)