マクロ検索について

質問

下記のようなデータベースがあります。Ａ列からＴ列までにデータが入っています。
Ｄ列に下記のデータがあります。頭２桁がADのものだけを検索したい場合は、マクロでは
どう記述すればいいでしょうか。教えてください。
AA0G120Y0000
AA0H12000000
AA0S01000000
AA0S03B00000
AA0S05A00000
AD120000110000000P
AD120000110000000P
AD120000110000000P
AD120000110000000P

回答No.2

nishi6 · ベストアンサー

＞・・・データベースがあります。Ａ列からＴ列までにデータが入っています。
もしかしてExcel？Excelでなかったら、破棄してください。

Filter、Find-FindNext などいろいろありますが、検索して検索結果をどうすればいいかわからないので、検索したセルを選択状態にしてみました。
これは検索というよりも照合しています。D列の2行目から下に検索しています。ご参考に。(Excel97です)

Sub Kensaku()
　　Dim rg As Range 'セル
　　Dim FoundCell As Range '検索セル
　　Dim maxRow As Long '検索する最終行
　　Dim schRg As String '検索範囲
　　Const schCol = "D" '検索列
　　Const schStr = "AD" '検索文字

　　'検索範囲
　　maxRow = Range(schCol & "65536").End(xlUp).Row
　　　　If maxRow = 1 Then Exit Sub
　　schRg = schCol & "2:" & schCol & maxRow
　　'検索実行
　　With Worksheets("Sheet1")
　　　　For Each rg In .Range(schRg)
　　　　　　'左から2文字を比べる
　　　　　　If Left(rg, 2) = schStr Then
　　　　　　　　'一致した場合
　　　　　　　　If FoundCell Is Nothing Then
　　　　　　　　　　'１個目
　　　　　　　　　　Set FoundCell = rg
　　　　　　　　Else
　　　　　　　　　　'２個目以降
　　　　　　　　　　Set FoundCell = Union(FoundCell, rg)
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　End With
　　'検索したセルを選択状態にする
　　If Not FoundCell Is Nothing Then
　　　　FoundCell.Select
　　End If
End Sub

回答No.3

imogasi

エクセルの表だと仮定します。Ａ列にデータが入っているとします。(本題ではＤ列だが説明を単純にするために）
Ｂ列、Ｃ列も空きの列で有ると仮定します。Ｂ列に１より連続番号を振ります。（Ｂ１に１、Ｂ２に２を入力し、Ｂ１とＢ２を範囲指定して、右下の＋を最下行まで引っ張っれば良い。）
Ｃ１列に「＝ＩＦ（ＭＩＤ（Ａ１，１，２）＝”ＡＤ”，Ａ１，””）」と式をいれ、Ｃ２から最下行まで式の複写をします。
すると、Ｃ列はブランクのセルと、ＡＤ・・・のセルの２種類となります。
Ｂ列とＣ列について、Ｃ列の降順で並べ替えます。上部にＡＤ・・のセルが残ります。そこでＡＤ・・のセルだけをＢ列とＣ列について、Ｂ列の連番で昇順に並べかえるとＡ列の順序を保存したままで、上部にＡＤ・・・のデータが残ります。
これでいかがですか。難しいＶＢＡは使わない方法です。

お礼

ありがとうございました
参考になりました。

回答No.1

gonta_goma

データーベースソフト名が分りませんが、MS Accessなら以下のクエリーになります。
SELECT * FROM テーブル WHERE left(D,2)='AD';