vba

質問

vbaについて

下記のプログラム教えてほしいです。

F5からL20に、1～３０までの数字がランダムに入力されています。

空欄もあります。

クリックしたセルが空欄の場合と、値が３０の場合は何もしない。

クリックしたセルに値がある場合、その値をコピーし、
F21に値を＋１して貼り付ける。

わかりますかね？；；

なるべく省略された簡潔なプログラム教えてほしいです。

回答No.2

watabe007

>クリックしたセルが空欄の場合と、値が３０の場合は何もしない。
シートモジュールに貼り付けてお試しください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Intersect(Target, Range("F5:L20")) Is Nothing Then Exit Sub
　　If Target.Value = "" Or Target.Value = 30 Then Exit Sub
　　Range("F21").Value = Target.Value + 1
End Sub

回答No.1

hallo-2007

エクセルにはクリックした場合に実行するイベントはありませんので
ダブルクリックした場合で
シート名のタブを右クリック＝＞コードの表示をクリックして
VBエディターを起動
そこへ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value <> "" And Target.Value <> 30 Then
Range("F21").Value = Target.Value + 1
End If
End Sub
を貼り付けて閉じてください。
中身はわずか３行です。
そして、希望のセルをダブルクリックしてみてください。