Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24353 / 76738

←次へ　｜　前へ→


	【57735】Re:検索して分岐

kanabun - 08/9/11(木) 9:12 -


	引用なし

	パスワード

▼M さん：

Findメソッド案ですが、、

「会社名」と「担当者」名をAND検索をおこなうとき、
シートの作業列（使っていない列）たとえば、[Q列] に
B列とC列をある区切り文字 (たとえば "|")で結合した値を
書き込んでおくと、
一回のFind検索をかけるだけで、最も最近の指定の
「会社」と「担当者」の組みをみつけることができます。
（Do～Loopが不要になります）

<準備>
作業列(以下では Q列としています)に、
[Q2]セルに、　 =B2&"|"&C2
と数式を打ち込み、データ最終行までCopy しておきます

Sub もしFindを使うなら_その2()

　Dim c As Range
　Dim 会社名 As String
　Dim 担当者名 As String
　Dim 検索値 As String
　Dim ok As Boolean
　
　If cboKaisha.ListIndex > -1 Then
　　　会社名 = cboKaisha.Text
　　　If cboTantou.ListIndex > -1 Then
　　　　　担当者名 = cboTantou.Text
　　　　　検索値 = 会社名 & "|" & 担当者名
　　　　　ok = True
　　　End If
　End If
　If Not ok Then Exit Sub
　
　With Worksheets("ＡＡＡ")
　　　'作業列を下から検索　'検索値 = 会社名 & "|" & 担当者名
　　　Set c = .Columns("Q").Find(検索値, _
　　　　　　　After:=.Range("Q1"), _
　　　　　　　LookIn:=xlValues, LookAt:=xlWhole, _
　　　　　　　SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
　　　If Not c Is Nothing Then
　　　　　txtCN.Text = .Cells(c.Row, "H").Value + 1
　　　Else
　　　　　MsgBox "指定会社の指定担当者が見つかりませんでした"
　　　　　txtCN.Text = ""
　　　End If
　End With
End Sub

いくつか変数を間違えていたので、一度削除して、再掲しました。m(__)m

0 hits

▼

【57576】検索して分岐 M 08/9/3(水) 12:06