|
▼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("AAA")
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
|
|