Excel VBA質問箱 IV

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

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


24394 / 76732 ←次へ | 前へ→

【57686】Re:検索して分岐
質問  M  - 08/9/9(火) 17:25 -

引用なし
パスワード
   お世話になります。

前回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("AAA").Columns("b").Find(What:=cbokaisha.Value, After:=Worksheets("AAA").Columns("b").Cells(1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False, SearchFormat:=False)

   Set CN = Worksheets("AAA").Columns("c").Find(What:=cbotantou.Value, After:=Worksheets("AAA").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("AAA").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

ユーザーフォームで毎日の集計をしています。
シートのB列に取引会社名がありC列に担当者名がありH列にCN(領収証)番号があり
担当者のCN番号がtxtcnに表示されます。

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

教えていただきたいことはcbokaishaで会社を選択しcbotantouで担当者を選択したとき
1.txtcnに前回表示された取引会社の担当者のCN番号の次番を表示させたい。

0 hits

【57576】検索して分岐 M 08/9/3(水) 12:06 質問
【57577】Re:検索して分岐 ハチ 08/9/3(水) 12:42 発言
【57580】Re:検索して分岐 M 08/9/3(水) 13:07 回答
【57579】Re:検索して分岐 kanabun 08/9/3(水) 13:04 発言
【57582】Re:検索して分岐 kanabun 08/9/3(水) 13:50 発言
【57585】Re:検索して分岐 M 08/9/3(水) 14:25 回答
【57586】Re:検索して分岐 ハチ 08/9/3(水) 15:03 発言
【57595】Re:検索して分岐 M 08/9/3(水) 21:05 お礼
【57596】Re:検索して分岐 kanabun 08/9/3(水) 21:39 発言
【57598】Re:検索して分岐 kanabun 08/9/3(水) 22:19 発言
【57603】Re:検索して分岐 M 08/9/4(木) 8:07 お礼
【57686】Re:検索して分岐 M 08/9/9(火) 17:25 質問
【57687】Re:検索して分岐 kanabun 08/9/9(火) 19:52 質問
【57689】Re:検索して分岐 M 08/9/9(火) 20:42 お礼
【57688】Re:検索して分岐 kanabun 08/9/9(火) 20:34 発言
【57690】Re:検索して分岐 M 08/9/9(火) 20:55 お礼
【57697】Re:検索して分岐 M 08/9/10(水) 8:20 発言
【57698】Re:検索して分岐 ハチ 08/9/10(水) 8:51 発言
【57704】Re:検索して分岐 M 08/9/10(水) 10:31 発言
【57705】Re:検索して分岐 ハチ 08/9/10(水) 10:42 発言
【57721】【すいません】Re:検索して分岐 ハチ 08/9/10(水) 15:16 発言
【57722】Re:【すいません】Re:検索して分岐 kanabun 08/9/10(水) 15:28 発言
【57726】Re:【すいません】Re:検索して分岐 M 08/9/10(水) 17:14 お礼
【57735】Re:検索して分岐 kanabun 08/9/11(木) 9:12 発言
【57741】Re:検索して分岐 M 08/9/11(木) 18:15 お礼
【57742】Re:検索して分岐 kanabun 08/9/11(木) 19:25 発言
【57751】Re:検索して分岐 M 08/9/12(金) 7:18 発言
【57752】Re:検索して分岐 kanabun 08/9/12(金) 8:57 発言
【57787】Re:検索して分岐 M 08/9/13(土) 12:40 お礼
【57713】Re:検索して分岐 kanabun 08/9/10(水) 12:50 発言
【57715】Re:検索して分岐 M 08/9/10(水) 14:06 発言
【57716】Re:検索して分岐 M 08/9/10(水) 14:09 発言

24394 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free