excel Excel VBAでのダブルクリックイベント

excel Excel VBAでのダブルクリックイベント。ダブルクリックするシートのシートモジュールです。Excel VBAでのダブルクリックイベントについてお伺いします
下記の内容でコードにした場合を教えて頂けませんでしょうか 表の(B10:I60)がダブルクリックされた時、その行のB列のセルに入力された名前があれば、その名前と一致するシートを検索し、アクティブにする
セルが空であれば何もしない excel。シート キー イベント ワークシート内の特定のセルのキーを
すると,マクロが終了してもダブルクリックで編集モードに入ることができ
なくなります。を使ってセルを編集状態にするコードについてお聞きし
ます。vba。プロパティ エクセルでは。セルをダブルクリックしたり。[]
を使ってセルを編集状態にするコードについてお聞きします。方法 ある
セルをダブルクリックしそのイベントを拾い。適当なマクロを実行させます。

特定のセルをダブルクリックしたらメッセージボックスを表示する。特定のセルをダブルクリックしたらメッセージボックスを表示する|
ワークシートをダブルクリックしたときに発生するイベント
を使って。ダブルクリックされたセルが特定のセル範囲内にあるかどうかを判定

ダブルクリックするシートのシートモジュールです。Private Sub Worksheet_BeforeDoubleClickByVal Target As Range, Cancel As BooleanDim sh As WorksheetIf IntersectTarget, RangeB10:I60 Is Nothing Then Exit SubCancel = TrueOn Error Resume NextSet sh = WorksheetsRangeBTarget.Row.ValueIf sh Is Nothing ThenMsgBox シートが存在しませんElsesh.SelectEnd IfEnd Subこんな感じでできると思います。※大文字と小文字を区別しません。※全角と半角は区別します。※シート名が数値のみの場合も検索できます。>セルが空であれば何もしないダブルクリックした行のB列のセルが空白なら何もしないとしています。Option ExplicitPrivate Sub Worksheet_BeforeDoubleClickByVal Target As Range, Cancel As BooleanDim J As Long, Sh As String, Str As String, Flg As BooleanStr = CStrCellsTarget.Cells1.Row, 2.ValueStr = StrConvStr, vbUpperCaseIf Not IntersectTarget.Cells1, RangeB10:I160 Is Nothing And Str ThenFor J = 1 To Worksheets.CountSh = CStrWorksheetsJ.NameSh = StrConvSh, vbUpperCaseIf Sh = Str ThenFlg = TrueExit ForEnd IfNext JIf Flg ThenWorksheetsJ.ActivateElseMsgBox シートが存在しませんEnd IfEnd IfEnd Sub下記では いかがですかPrivate Sub Worksheet_BeforeDoubleClickByVal Target As Range, Cancel As BooleanIf Not IntersectTarget, RangeB10:I60 Is Nothing And Target.Value Then For i = 1 To Worksheets.Count If Worksheetsi.Name = Target.Value Then Worksheetsi.Select Exit For End If Next i MsgBox Target.Valueという名前のシートは 有りませんEnd IfEnd Sub


Leave a Reply

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です