Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12589 / 76734

←次へ　｜　前へ→


	【69662】Re:検索前に戻したい

とおりすぎ - 11/8/18(木) 10:14 -


	引用なし

	パスワード

Private 最初 As Range
Private 一つ前 As Range

Sub 検索Sample()
　　Dim R As Range
　　Dim 検索 As Range
　
　　'ChartSheetがActiveだったりするとエラーになるので
　　On Error Resume Next
　　Set R = ActiveCell
　　Set 検索 = ActiveSheet.UsedRange.Find("適当に変えてくれ")
　　On Error GoTo 0
　　If 検索 Is Nothing Then
　　　　MsgBox "見つからなかった"
　　　　Exit Sub
　　End If
　　If 最初 Is Nothing Then
　　　　Set 最初 = R
　　End If
　　Set 一つ前 = R
　　Application.Goto 検索
End Sub

Sub 一つ前に戻る()
　　If 一つ前 Is Nothing Then Exit Sub
　　Application.Goto 一つ前
End Sub

Sub 最初に戻る()
　　If 最初 Is Nothing Then Exit Sub
　　Application.Goto 最初
End Sub

Sub Reset_cell()
　　Set 最初 = Nothing
　　Set 一つ前 = Nothing
End Sub

8 hits

▼

【69651】検索前に戻したい a 11/8/17(水) 8:06