Excel VBA質問箱 IV

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

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


24488 / 76738 ←次へ | 前へ→

【57598】Re:検索して分岐
発言  kanabun  - 08/9/3(水) 22:19 -

引用なし
パスワード
   ▼M さん:

考えてみれば、cboKaishaのChangeで cboTantouの担当者リストをつくるとき、
いっしょに CN請求書番号 もcboTantouのリストに表示しておけば (下へつづく)

Private Sub cboKaisha_Change()
 Dim cc As Range
 Dim ss As String, i As Long
 Dim vTantou, vCN, numCN
 Dim dic As Object
 
 With Worksheets("AAA")
   Application.ScreenUpdating = False
   .AutoFilterMode = False
   With .Range("B1", .Range("B65536").End(xlUp))
     .AutoFilter 1, cboKaisha.Text
     On Error Resume Next
     Set cc = Intersect(.Offset(, 1), .Offset(1, 1))
     On Error GoTo 0
     If cc Is Nothing Then
       cboTantou.Clear
       cboTantou.Text = ""
     Else
       cc.Copy
       With New DataObject '選択された「取引会社」の全担当者をリスト
         .GetFromClipboard
         ss = .GetText
         vTantou = Split(ss, vbCrLf)
         .Clear
                 '同時に担当者の最終CN番号を表示
         cc.Offset(, 5).Copy
         .GetFromClipboard
         ss = .GetText
         vCN = Split(ss, vbCrLf)
       End With
       Application.CutCopyMode = False
       Set dic = CreateObject("Scripting.Dictionary")
       For i = 0 To UBound(vTantou) - 1
         ss = vTantou(i)
         If dic.Exists(ss) Then
           numCN = dic(ss)
           If numCN < vCN(i) Then dic(ss) = vCN(i)
         Else
           dic(ss) = vCN(i)
         End If
       Next
       With cboTantou
         .ColumnCount = 2
         .ListWidth = 180
         .List = Application.Transpose(Array(dic.Keys, dic.Items))
       End With
       Set dic = Nothing
     End If
   End With
   .AutoFilterMode = False
   Application.ScreenUpdating = True
 End With
  
End Sub

こうしておけば、ユーザーが担当者リストのどれかを選択すると同時に、
テキストボックス txtCN に 最終番号+1が表示されますから、もう
ボタンは不要となりますね♪

Private Sub cboTantou_Change()
  Dim numCN
  With cboTantou
    numCN = .List(.ListIndex, 1)
  End With
  If IsNumeric(numCN) Then
    txtCN.Text = numCN + 1
  Else
    txtCN.Text = "??"
  End If
End Sub

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 発言

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