Excel VBA質問箱 IV

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

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


5829 / 76732 ←次へ | 前へ→

【76509】Re:一行目のみ検索しない
回答  ウッシ  - 14/12/18(木) 15:56 -

引用なし
パスワード
   こんにちは

  Set tSh = ThisWorkbook.Worksheets("Sheet1") '対象シート
  
  With tSh.Range("A1").CurrentRegion.Offset(1)
    Set 検索氏名 = Union(.Columns("B:C"), .Columns("E:E"), .Columns("I:I")).Find(TextBox検索, LookAt:=xlPart)
  End With

とかでどうですか?

▼ゆーあ さん:
>Win XP Excel2000
>
>フォーム上で顧客データ(氏名/住所/電話番号etc)の
>管理(登録・更新)をしており、
>更にフォーム上に検索Box(TextBox)を設置し、
>検索Boxに氏名や住所を入力すると該当したデータを
>表示するようにしております。
>
>検索時、列で検索するようにしており、
>Unionメゾットを用い、B列/C列/E列/I列を検索させております。
>
>Set 検索氏名 = Union(Columns("B:C"), Columns("E:E"), Columns("I:I")).Find(TextBox検索, LookAt:=xlPart)
>
>
>  A   B   C    D  E  F  ・・・
>1 No.  氏名 氏名フリガナ 営業 ID 契約日
>2 1  山田  ヤマダ  田中 1111 20141218 ・・・
>3 2  ・・・
>・
>・
>
>各列共に1行目は各項目名になる為、表示したくないのですが、
>現コードをアレンジして希望の動作は可能ですでしょうか?
>ヒントでも構いませんので、お教え願います。
0 hits

【76508】一行目のみ検索しない ゆーあ 14/12/18(木) 13:29 質問[未読]
【76509】Re:一行目のみ検索しない ウッシ 14/12/18(木) 15:56 回答[未読]
【76510】Re:一行目のみ検索しない ゆーあ 14/12/18(木) 16:46 お礼[未読]

5829 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free