いつもお世話になっております
下記のコードは シート内にある A 検索して
一つ一つ選択されます。
ただ
下記のコードを削除すると
MsgBox i & "個目に見つかった場所です"
最後に見つかったセルのみ選択されます。
コマンドボタンを押すたびに
選択することは可能でしょうか
できれば、ワークブック内すべて
Sub try()
Dim r As Range
Dim st As String
Dim i As Long
Set r = Cells.Find(What:="A", LookIn:=xlValues, LookAt:= _
xlPart)
If r Is Nothing Then Exit Sub
st = r.Address
Do
i = i + 1
r.Select
MsgBox i & "個目に見つかった場所です"
Set r = Cells.FindNext(ActiveCell)
Loop Until st = r.Address
MsgBox "全部検索したので終わります"
Set r = Nothing
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
※この回答は、“締め切られた質問への回答追加”として、2022/12/23 15:56 に回答者の方よりご依頼をいただき、教えて!gooによって代理投稿されたものです。
まず、Sub~End Sub 内で変数の宣言させてると、クリック(移動)させた時に変数の宣言で初期化されてしまいます。
即ち元の位置データは常に初期化された状態で実行されます。
その位置データに使用する変数はSub~End Subの外で宣言しなければなりません。
そうしないとクリックする毎に選択移動できません。
また1クリックで1つ移動をしたいのでしょうから、FindNextは必要ないです。(ループも)
あったらグルっと検索して最初の位置に戻っておしまいですし、それはコードでそうなってますからね。
なのでどうしてこう言うコードに辿り着いたのか?そこが不思議です。
と、検証していない初級者じじぃは感じます。
No.1
- 回答日時:
https://www.vba-ie.net/programing/variable-scope …
既に依然このような回答を受けていたかと思いますがどうされたのでしょう?
折角回答を貰ってもその場限りでは伸びないですよ。
3年位前はデータベースへの接続をこなされてましたよね。
その際にも『不明なままで質問を閉じないように』と書かせて頂いたと思いますし、受けた回答は必ず保存し検索しやすく見直し可能にしそこから応用出来るようにされた方が宜しいと。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBAの繰り返し処理表記と複数の処置条件について 1 2023/01/23 20:08
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
pythonにてseleniumを使うも、...
-
Exel VBA 別ブックから該当デ...
-
chatgptでつくってもらったコー...
-
ExcelのVBAコードについて教え...
-
パイソンプログラム
-
フィルターかけた後、重複を除...
-
1、Rstudioで回帰直線を求める...
-
vb6.0の実行時エラー'3075'につ...
-
Gitのクローンについて
-
特定行の背景色を変えたいのですが
-
Excel VBA素人です。VBAで図形...
-
コンパイルエラー 変数が定義...
-
access2003 クエリSQL文に...
-
楽観的排他処理のためViewState...
-
プレースホルダー
-
CFormViewでの印刷について
-
変数名「cur」について
-
文字コードについて
-
Excel VBAについて
-
SQL
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
pythonにてseleniumを使うも、...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
chatgptでつくってもらったコー...
-
欠番の抽出について
-
JANコードとPOSコードは同じ?
-
JavaScriptの定数名が取り消し...
-
1、Rstudioで回帰直線を求める...
-
特定行の背景色を変えたいのですが
-
変数名「cur」について
-
PreviewKeyDownイベントが2回...
-
将来AIが進歩してくるにつれて...
-
ACCESSユニオンクエリでORDER B...
-
COBOLの文法
-
VBAでファイルオープン後にコー...
-
Nullの使い方が不正です。
おすすめ情報