| |
お世話になります。
前回kanabunさん ハチさんには大変お世話になりました。
オートフイルタを使ったコードで目的の動きはできました。現在使わせていただいております。
いまFINDを使う事が多いのですが下記のコードを教えていただけませんでしょうか。
FINDの勉強をしたいと思います。
On Error Resume Next
Dim CN As Range
Dim FirstAddress As String
Dim pno As Range
Dim kaisha As Range
Set kaisha = Worksheets("ＡＡＡ").Columns("b").Find(What:=cbokaisha.Value, After:=Worksheets("ＡＡＡ").Columns("b").Cells(1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False, SearchFormat:=False)
Set CN = Worksheets("ＡＡＡ").Columns("c").Find(What:=cbotantou.Value, After:=Worksheets("ＡＡＡ").Columns("c").Cells(1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False, SearchFormat:=False)
If Not kaisha Is Nothing Then
FirstAddress = CN.Address
Do
If CN(1, 6).Value <> "" Then Exit Do
Set CN = Worksheets("ＡＡＡ").Columns("c").FindPrevious(CN)
Loop While CN.Address <> FirstAddress
End If
If Not CN Is Nothing Then
txtcn.Value = CN(1, 6).Value + 1
Else
txtcn.Value = "??"
End If
ユーザーフォームで毎日の集計をしています。
シートのＢ列に取引会社名がありＣ列に担当者名がありＨ列にＣＮ（領収証）番号があり
担当者のＣＮ番号がtxtcnに表示されます。
担当者は取引会社より支給されたＣＮを持っています。
上記のコードではコードがないので取引会社は反映されません。
教えていただきたいことはcbokaishaで会社を選択しcbotantouで担当者を選択したとき
1．txtcnに前回表示された取引会社の担当者のＣＮ番号の次番を表示させたい。
|
|
M
- 08/9/9(火) 17:25 -
