Excel VBA質問箱 IV

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

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


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

24398 / 76738

←次へ　｜　前へ→


	【57688】Re:検索して分岐

kanabun - 08/9/9(火) 20:34 -


	引用なし

	パスワード

▼M さん：

もしFindを使って検索したいなら、
B列から会社名を Find～Loopで検索する中で、指定の会社名がヒットするたびに
ヒットしたセルの右のセルを調べ、その値が指定の担当者だったら、CN番号を
セットしてFind～Loopを脱出するようなコードを組んでください。

Sub もしFindを使うなら()
　Dim kaisha As Range
　Dim FirstAddress As String
　Dim 会社名 As String
　Dim 担当者名 As String
　Dim ok As Boolean
　
　会社名 = cboKaisha.Text
　担当者名 = cboTantou.Text
　With Worksheets("ＡＡＡ")
　　　Set kaisha = .Columns(2).Find(会社名, _
　　　　　　　After:=.Columns(2).Cells(1), _
　　　　　　　LookIn:=xlValues, LookAt:=xlWhole, _
　　　　　　　SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
　　　If Not kaisha Is Nothing Then
　　　　　FirstAddress = kaisha.Address
　　　　　Do
　　　　　　　If kaisha.Item(1, 2).Value = 担当者名 Then
　　　　　　　　　txtCN.Text = kaisha.Item(1, 7).Value + 1
　　　　　　　　　ok = True
　　　　　　　　　Exit Do
　　　　　　　End If
　　　　　　　Set kaisha = .Columns(2).FindNext(kaisha)
　　　　　Loop Until kaisha.Address = FirstAddress
　　　End If
　End With
　If Not ok Then
　　　MsgBox "指定会社の指定担当者が見つかりませんでした"
　　　txtCN.Text = ""
　End If
End Sub

0 hits

▼

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