No.1ベストアンサー
- 回答日時:
こんばんは!
>A列の該当するセルをアクティブセルに・・・
とはA列該当データ(複数ある場合は複数セル)を選択というコトですよね。
リストボックス → ListBox1 とします。
Private Sub ListBox1_Click()
Dim FoundCell As Range, FirstCell As Range, myRng As Range
Set FoundCell = Range("A:A").Find(what:=ListBox1, LookIn:=xlValues, lookat:=xlWhole)
Set FirstCell = FoundCell
Set myRng = FoundCell
Do
Set FoundCell = Range("A:A").FindNext(after:=FoundCell)
If FoundCell.Address = FirstCell.Address Then Exit Do
Set myRng = Union(myRng, FoundCell)
Loop
myRng.Select
End Sub
こんな感じではどうでしょうか?
No.3
- 回答日時:
検索結果をリストボックスに表示させるところまでは出来ているということで間違いないですか?
であれば、そのコードを補足にアップして頂ければ、適切なアドバイスが受けられると思いますよ。
No.2
- 回答日時:
No.1です。
A列の該当データを順に選択したい!というコトですね。
ただし、リストボックス内の選択で同じデータを選択しても何も変化がない!というコトになりますので、
コマンドボタンを追加し、コマンドボタンをクリックするたびに順に選択する方法ではどうでしょうか?
一例です。
尚、リストボックスのコードを↓のコードに変更した上で、コマンドボタンのコードを追加してみてください。
Private Sub ListBox1_Click()
Dim FoundCell As Range
Set FoundCell = Range("A:A").Find(what:=ListBox1, LookIn:=xlValues, lookat:=xlWhole)
FoundCell.Select
End Sub
次にコマンドボタンのコードです。
Private Sub CommandButton1_Click()
Dim FoundCell As Range
If Selection <> ListBox1 Then
Set FoundCell = Range("A:A").Find(what:=ListBox1, LookIn:=xlValues, lookat:=xlWhole)
FoundCell.Select
Else
Set FoundCell = Range("A:A").FindNext(after:=Selection)
FoundCell.Select
End If
End Sub
こんな感じではどうでしょうか?
※ FIND関数を使用するにあたって注意点があります。
重複データがあり、最初に出現するのがA1セルの場合は2番目から選択されます。
(重複データがない場合はA1セルが選択されます)m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) Excelヘルプの原文を表示する最速の方法(手順)には? 1 2023/08/11 11:30
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) Excelで、別シートへ情報を参照表示する関数について。 2 2023/06/26 09:58
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
excelのリストボックスで選択した項目をアクティブセルに入力方法
Excel(エクセル)
-
エクセルでリストから指定セルへジャンプする
その他(ビジネス・キャリア)
-
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
-
4
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
5
Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。
Visual Basic(VBA)
-
6
VBA リストボックス内の値を複数選択し別シートに転記するには
Visual Basic(VBA)
-
7
VBA。リストボックスの値を別のユーザーフォームのテキストボックスに反映したい。
Access(アクセス)
-
8
エクセルVBA 複数列のリストボックス内を検索して値を複数列表示したい
Excel(エクセル)
-
9
VBA リストボックスをダブルクリックしデータを修正したいのですが…。
Visual Basic(VBA)
-
10
リストボックスをクリックすると、他フォームに値代入
Excel(エクセル)
-
11
【Excel VBA】検索結果セルの行をリストボックスに表示させたい
Excel(エクセル)
-
12
Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。
Visual Basic(VBA)
-
13
EXCELのリストボックスを選択した行が何行目か
その他(プログラミング・Web制作)
-
14
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
15
UserForm1.Showでエラーになります。
工学
-
16
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
17
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
18
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
19
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
20
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで連続データから、数...
-
excelで、スクロールをすると限...
-
セルをクリックすると付箋のよ...
-
EXCEL アルファベットと数字の...
-
オートフィルタで抽出されたデ...
-
エクセルの複数セルに同時に同...
-
エクセル マクロ クリックした...
-
エクセルでハイパーリンクのU...
-
複数のセルの入力内容を一度に...
-
エクセルの画面で十字マークが...
-
エクセル 一行ずつセルを追加...
-
Excelで急に動かなくなる
-
excelで1行ごとに一気に削除す...
-
行と列のウインドウ枠を同時に...
-
エクセルVBAでセル範囲のデータ...
-
EXCELで不規則的に行の高さを変...
-
エクセルVBA 複数行にまたがっ...
-
Excel選択を繰り返すとセルの色...
-
エクセルでウインドウ枠を固定...
-
特定の文字を含まない行の削除
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの画面で十字マークが...
-
excelで、スクロールをすると限...
-
エクセルで連続データから、数...
-
セルをクリックすると付箋のよ...
-
複数のセルの入力内容を一度に...
-
EXCEL アルファベットと数字の...
-
エクセルでハイパーリンクのU...
-
エクセル 数値を全て「1」にす...
-
Excelで表のデータを並び替えた...
-
エクセル 画面上の行数を調節...
-
Excel選択を繰り返すとセルの色...
-
エクセルでカーソルが四方に矢...
-
Shift押しながら、矢印ボタンで...
-
エクセルVBAでセル範囲のデータ...
-
エクセルで0を除いて昇順に並...
-
Excelで急に動かなくなる
-
エクセルの複数セルに同時に同...
-
フィルタを解除した後の表示位置
-
ピポットテーブルエラー解決方法
-
エクセルで「1~15」の乱数...
おすすめ情報
こんばんはtom04様、早々のご回答本当にありがとうございます。
ご教示頂いた方法で試させていただきました。
こんなこと(複数ある場合は複数セル)も選択できるんだ~と感動しております。
今回は、検索されたリストボックスの1つだけを選択して、その選択した1つの項目をセルに反映(アクティブ)にしたいです。(リストボックスに表示された検索結果が複数の場合、リストボックスでクリックするたびに該当するセルがアクティブに変わるようにしたいのですが。こんなことできるのでしょうか?)もしよろしければ、お手すきの際教えて頂けたら助かります。宜しくお願いします。
No.1様、ご回答ありがとうございます。
いろいろな知識を頂けて本当に感謝しています。
はじめての質問で説明がうまくできず本当に申し訳なく思っています。
ワークシート上のA列の会員番号から右(B列C列・・・)は名前や予約日などが入力されています。
会員番号を入力して検索後(コマンドボタンをクリックすると)⇒リストボックスに検索されたデータが表示されます。(このとき、同じ会員番号の情報もあり、複数リストボックスに表示されることがあります。)ここで(リストボックス内の該当データをクリックして1つ選択するのですが・・・)⇒その選択したデータのセル(A列にあるセル)をアクティブにできないのです。
もし、アクティブにできれば、ここから(ユーザーフォーム上から)編集ができると思い、質問させていただきました。できればで結構です。教えて頂けたら助かります。