[[20251012103405]]　『2個目のセルをアクティブにする』（東九）　ページの最後に飛ぶ

『2個目のセルをアクティブにする』（東九）

A列の中から番号を探し見つかったらそのセルの右に2つ隣のセル（C列）を
アクティブにする方法のマクロを教えてください。
番号入力はインプットボックスにしたいです。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

Worksheet_Change
Offset
Activate
について調べてみてください
（匿名） 2025/10/12(日) 12:19:51

 Option Explicit

 Sub test()
     Dim buf, r As Long

     buf = Application.InputBox("数字を入力してください", Type:=1)
     If VarType(buf) = vbBoolean And buf = False Then Exit Sub

     On Error Resume Next
     r = WorksheetFunction.Match(buf, Range("A:A"), 0)
     On Error GoTo 0

     If r = 0 Then
         MsgBox (buf & "は見つかりませんでした")
     Else
         Cells(r, "C").Select
     End If
 End Sub
（あ） 2025/10/12(日) 14:03:08

（あ）さん有難うございました。
動作は問題ありませんでした。
（東九） 2025/10/12(日) 19:57:52

コメント返信：