Excel VBA質問箱 IV

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

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


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

24504 / 76732

←次へ　｜　前へ→


	【57576】検索して分岐

M - 08/9/3(水) 12:06 -


	引用なし

	パスワード

よろしくお願いします。初めて質問します。

以下のコードで悩んでいます。

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で担当者を選択する。
２．txtcnに前回表示された取引会社のＣＮ番号の次番を表示させたい。

担当者は取引会社より支給されたＣＮを持っています。
上記のコードでは取引会社は反映されません。

分かり難い説明ですがよろしくご教授いただけませんでしょうか。
１．

0 hits

▼

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

≪