1

Sheet1 に、ドロップダウン リストを含むセルがあります。N3 としましょう。J3 の値によって、ドロップダウンの項目が変わります。最初は、両方のセルが空白です。J3 にデータを入力すると、ドロップダウンが N3 に読み込まれます。J3 の内容をクリアすると、N3 のドロップダウンは空になりますが、最後に選択された値 (選択されている場合) が「ゴースト」エントリとして表示されます。古いデータなのでゴースト エントリですが、ソフトウェアが設計どおりに動作していることは理解しています。J3 のコンテンツが消去された場合、N3 の最後の選択を消去するにはどうすればよいですか? 私は VBA のトレーニングを受けていませんが、これを達成するために必要な場合は、それを処理するのに十分危険です。ありがとう!

4

1 に答える 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 に答える