Excel VBA質問箱 IV

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

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


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

12577 / 76734

←次へ　｜　前へ→


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

a - 11/8/19(金) 12:18 -


	引用なし

	パスワード

お返事ありがとうございます
大変親切に教えていただいて本当にありがとうございます
助かります

F1（ＴＯＰ）とG1（１つ前）のｾﾙを押すとその機能が使えるようにしたいのですが
教えていただいたのをやったのですが
どこの数値をドコに入力していいのかがわかりません・・・
こんなに丁寧に親切に教えていただいてるのに申し訳ございません
変える場所、自分で変更すべき場所はどこか教えていただけると幸いです
お手数ですがお願いできればと思います
よろしくお願いします

▼とおりすぎさん：
>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

12 hits

▼

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