Sub Worksheet_SelectionChange(ByVal ws As Range)
Dim rInt As Range
Dim rCell As Range
Set rInt = Intersect(Target, Range("B1:B32, B37:B45, K3:K11, K12:K18"))
If Not rInt Is Nothing Then
For Each rCell In rInt
rCell.Value = "1"
Next
End If
Set rInt = Nothing
Set rCell = Nothing
End Sub
回避したいシートを除き、すべてのシートのワークシートコード領域にコードを置きます。ワークブックレベルのイベントを使用することができます
私はあなたの答えを少しでも盛り上げたいと思った。私はあなたが気にしないことを願っています。写真を削除して、望ましくない行為に対する罰の手段として、私の投稿のいくつかを投票してください。 – Ralph
@Ralph **助けてくれてありがとうございます。**編集は改善です。私はアニメーションが好きです。私はそれをする方法を知っていればいいと思う。 –
@Ralph情報をありがとう！ –
（コードがThisWorkbookモジュールに行く）
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Const NOT_THIS_ONE As String = "Tester" '<< sheet to skip
Dim rInt As Range
Dim rCell As Range
If Sh.Name = NOT_THIS_ONE Then Exit Sub
Set rInt = Intersect(Target, Range("B1:B32, B37:B45, K3:K11, K12:K18"))
If Not rInt Is Nothing Then
For Each rCell In rInt
rCell.Value = "1"
Next
End If
Set rInt = Nothing
Set rCell = Nothing
End Sub
（http://stackoverflow.com/ [良い質問をする方法]お読みくださいhelp/how-to-ask）を編集し、それに応じて質問を編集してください。 – Pom12