Sheet1 に、ドロップダウン リストを含むセルがあります。N3 としましょう。J3 の値によって、ドロップダウンの項目が変わります。最初は、両方のセルが空白です。J3 にデータを入力すると、ドロップダウンが N3 に読み込まれます。J3 の内容をクリアすると、N3 のドロップダウンは空になりますが、最後に選択された値 (選択されている場合) が「ゴースト」エントリとして表示されます。古いデータなのでゴースト エントリですが、ソフトウェアが設計どおりに動作していることは理解しています。J3 のコンテンツが消去された場合、N3 の最後の選択を消去するにはどうすればよいですか? 私は VBA のトレーニングを受けていませんが、これを達成するために必要な場合は、それを処理するのに十分危険です。ありがとう!
質問する
2325 次
1 に答える
3
worksheet_change イベントの使用を検討してください。以下のコードを sheet1 コード モジュールに配置します。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err_rout
Application.EnableEvents = False
If Not Intersect(Range("J3"), Target) Is Nothing And Target.Value = vbNullString Then
Range("N3").Value = vbNullString
End If
err_rout:
Application.EnableEvents = True
End Sub
于 2013-10-11T19:47:35.103 に答える