
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も見ています
-
Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。
Visual Basic(VBA)
-
excelのリストボックスで選択した項目をアクティブセルに入力方法
Excel(エクセル)
-
【Excel VBA】検索結果セルの行をリストボックスに表示させたい
Excel(エクセル)
-
-
4
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
5
VBA リストボックスをダブルクリックしデータを修正したいのですが…。
Visual Basic(VBA)
-
6
EXCELのリストボックスを選択した行が何行目か
その他(プログラミング・Web制作)
-
7
エクセルVBA 複数列のリストボックス内を検索して値を複数列表示したい
Excel(エクセル)
-
8
【VBA】【ユーザーフォーム_ListBox】オートフィルタで絞りこんだ値だけを取り出したい
Visual Basic(VBA)
-
9
エクセル VBA ユーザーフォーム リストボックスで選択した値をテキストボックスに自動表示
Visual Basic(VBA)
-
10
VBA リストボックス(複数条件)で検索し、転記方法についてご教示ください。
Visual Basic(VBA)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
13
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
14
VBA フォームのテキストボックスにセルの値を表示させたいが改行していたら改行もあわせて表示させたい
Excel(エクセル)
-
15
VBAで指定期間の範囲を抽出し、リストボックスに表示したいです。
Visual Basic(VBA)
-
16
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
17
VBAの質問になります Userform内で
Visual Basic(VBA)
-
18
エクセルのマクロで検索・抽出したデータを修正及び更新して元データに反映
Excel(エクセル)
-
19
Excel vba ListBoxについて
Excel(エクセル)
-
20
VBA リストボックス反映できない
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルで連続データから、数...
-
複数のセルの入力内容を一度に...
-
Excel 小さくなったスクロール...
-
EXCEL アルファベットと数字の...
-
エクセルの画面で十字マークが...
-
エクセル 画面上の行数を調節...
-
セルをクリックすると付箋のよ...
-
excelで1行ごとに一気に削除す...
-
エクセルVBAリストボックスに表...
-
エクセル 数値を全て「1」にす...
-
エクセルで任意のセルをクリッ...
-
エクセルで、結合したセルを選...
-
エクセルのVBAを使用し、工事写...
-
Excel選択を繰り返すとセルの色...
-
エクセルでハイパーリンクのU...
-
エクセルで1つおきに列を削除...
-
エクセルで0を除いて昇順に並...
-
Excelで表のデータを並び替えた...
-
フィルタを解除した後の表示位置
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで連続データから、数...
-
excelで、スクロールをすると限...
-
複数のセルの入力内容を一度に...
-
Excel 小さくなったスクロール...
-
EXCEL アルファベットと数字の...
-
エクセルの画面で十字マークが...
-
エクセル 画面上の行数を調節...
-
セルをクリックすると付箋のよ...
-
excelで1行ごとに一気に削除す...
-
エクセルでハイパーリンクのU...
-
エクセル 数値を全て「1」にす...
-
エクセルで、結合したセルを選...
-
エクセルで任意のセルをクリッ...
-
Excelで表のデータを並び替えた...
-
ピポットテーブルエラー解決方法
-
エクセルでカーソルが四方に矢...
-
エクセルVBA 複数行にまたがっ...
-
Shift押しながら、矢印ボタンで...
-
列選択で勝手に広範囲に範囲選...
-
エクセルで1つおきに列を削除...
おすすめ情報
こんばんはtom04様、早々のご回答本当にありがとうございます。
ご教示頂いた方法で試させていただきました。
こんなこと(複数ある場合は複数セル)も選択できるんだ~と感動しております。
今回は、検索されたリストボックスの1つだけを選択して、その選択した1つの項目をセルに反映(アクティブ)にしたいです。(リストボックスに表示された検索結果が複数の場合、リストボックスでクリックするたびに該当するセルがアクティブに変わるようにしたいのですが。こんなことできるのでしょうか?)もしよろしければ、お手すきの際教えて頂けたら助かります。宜しくお願いします。
No.1様、ご回答ありがとうございます。
いろいろな知識を頂けて本当に感謝しています。
はじめての質問で説明がうまくできず本当に申し訳なく思っています。
ワークシート上のA列の会員番号から右(B列C列・・・)は名前や予約日などが入力されています。
会員番号を入力して検索後(コマンドボタンをクリックすると)⇒リストボックスに検索されたデータが表示されます。(このとき、同じ会員番号の情報もあり、複数リストボックスに表示されることがあります。)ここで(リストボックス内の該当データをクリックして1つ選択するのですが・・・)⇒その選択したデータのセル(A列にあるセル)をアクティブにできないのです。
もし、アクティブにできれば、ここから(ユーザーフォーム上から)編集ができると思い、質問させていただきました。できればで結構です。教えて頂けたら助かります。