|
mako さん koshimizu さん こんにちわ
VBA初級者の私が、自身の向上の為にVBA入門編を作ることにしました。
仲の良い人の為にだけですけど…。
で、良い材料になりそうなのでレスさせてもらいます。
koshimizuのコードをチョット拝借して
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim T As Range
If Intersect(Target, Range("A1:C10")) Is Nothing Then Exit Sub 'A1からC10の範囲で
Cancel = True '普通のとき出てくる灰色のやつが出ないように
For Each T In Intersect(Target, Range("A1:C10"))
With T
If .Value = "○" Then
.Value = ""
ElseIf IsEmpty(.Value) Then
.Value = "○"
End If
End With
Next
End Sub
文章べたの私はいつも箇条書き
このコード、まずはSheet1のシートモジュールにコピペ!
『シートモジュール???』の場合は
excelvba.pc-users.net/fol3/3_6.html にアクセス♪
早速、コードのイメージ説明します♪
Sheet1の中で右クリックしたとき動きだす
けれどもさぁ、右クリした場所が Range("A1:C10") 以外は やっぱやめ
そこで、身の軽さが持ち前の Tさん 登場
Selectされ、しかも決められた範囲で駆け抜ける
Tさんは、その場その場で立ち回る
もしもそうなら、こんなこと
そうじゃなく、もしもこうならあんなこと
さあ次だ。掛かって来い♪と次に行く
ちゃんと理解するなら
excelvba.pc-users.net/index.html
私が参考にしているサイトです。
|
|