値の入ってるセルを選ぶと終了するVBA教えて頂けませんか?
「 初期入力! B列 」に、値を入れる為、「Data!」に移動して
値を選んで、「 初期入力! B列 」に貼り付けする、VBAを入れております。
(現在の作業内容)
現在「 初期入力! 」にいてます。
(1) 「 初期入力! B列 」をダブルクリック。
(2) 「 Data! 」に移動。
(3) 「 Data! 」で値を選んで、「 初期入力! B列 」をダブルクリックした
セルに貼り付け。
以上が作業内容です。
(行いたい作業)
始めに「 初期入力! B列 」をダブルクリックするのですが、
すでに値が入っているセルを選ぶと、「 Data! 」に移動する作業を中止し、MsgBoxで" 同じ箇所に二回入れてませんか?"と
エラー出すようにしたいです。
こういう事は、可能ですか?
お分かりになられる方、おられましたら教えて頂けませんか?
(現在のVBAです)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
'ドロップダウン代わりにDataを表示
Sheets("Data").Activate
End Sub
よろしくお願いします。