|
わいわい さん、こんばんわ。
>お願いします。
>友人に頼まれて、バレーの練習係当番割り振り表 を作ってるんですが、
>
>
>'ダブクリセルに有る名前の人のセルに色を塗るよん--------------
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
↓こいつが不要です。
>Target = Selection
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
'範囲の条件------------------------------------------
If Target.Row Mod 3 <> 0 Or 5 > Target.Row Or Target.Row > 61 Then Exit Sub
If 2 >= Target.Column Or Target.Column >= 8 Then Exit Sub
If IsEmpty(Target) Then
MsgBox "外れ! (○`ε´○) ちゃんと名前のセルを狙うんだ!"
Exit Sub
End If
'こっからが本番 ----------------------------------
If Target.MergeCells = True Then
MsgBox Target.Cells(1).Value, vbInformation, Target.Address
Else
MsgBox Target.Value, vbInformation, Target.Address
End If
End Sub
こんな感じです。
|
|