2

このコードは、列 C にチェック マークまたは X を入れ、フォントを Marlett に変更します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("B5:B25", "D5:D25")) Is Nothing Then

     Cancel = True 'Prevent going into Edit Mode

        Target.Font.Name = "Marlett"

        If Target = vbNullString Then

           Target = "a"

        Else

           Target = vbNullString

        End If

    End If


End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("B5:B25", "D5:D25")) Is Nothing Then

     Cancel = True 'Prevent going into Edit Mode

        Target.Font.Name = "Marlett"

        If Target = vbNullString Then

           Target = "r"

        Else

           Target = vbNullString

        End If

    End If

End Sub
4

1 に答える 1

2

イミディエイトウィンドウにこれを入力した場合(スクリーンショットを参照)

?Range("B5:B25", "D5:D25").Address

次に、アドレスがであることがわかります$B$5:$D$25。したがって、それが実行されます。含まれたくない場合はC、交換してください

Range("B5:B25", "D5:D25")

Range("B5:B25,D5:D25")

ここに画像の説明を入力してください

于 2013-02-19T16:07:37.780 に答える