Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address

Case "$D$224"
If Target.Value = "" Then
Range("D224").Value = "-"
End If

End Select
End Sub

DeleteキーでD224をクリアした場合、D224に"-"が入力されません。
D224はD225と結合してあります。
select~caseを使ってdeleteキーで"-"が入力されるような動作を教えてください・・よろしくおねがいします。。。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

こんにちは。



結合してある場合、Target.Addressには"$D$224:$D$225"が代入されます。
下のCase文の部分をそれに変更してはいかがでしょうか。

ただし、次のIf文でエラーになると思います。
If Range("D224") = "" then
に変更してください。

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address

Case "$D$224:$D$225"
If Range("D224") = "" then
Range("D224").Value = "-"
End If

End Select
End Sub
    • good
    • 0
この回答へのお礼

感動しました。単純かもしれないですが相当てこずっていたので本当に助かりました。
マジありがとうございます。

もっと勉強します!

お礼日時:2009/05/14 21:58

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング