| |
▼M さん：
>ハチ さん kanabunさん ありがとうございます。
>
>今回はkanabunさんのコードを使わせていただきたいと思います。
>問題なく作動しました。
追伸です(^^
> cboTantou で選択された「担当者」が、
> cboKaisha で選択された「取引会社」であるとは限りませんので、
> 一行も抽出されないことがあります｡
そこで、
取引会社（cboKaisha）が選択されたら、その担当者をcboTantou にリストする
Sub cboKaisha_Change() での処理例をあげておきますね
こうしておけば、ありえない「取引会社」と「担当者」の組み合わせを
選択することがなくなります。
Private Sub cboKaisha_Change()
Dim cc As Range
Dim ss As String
With Worksheets("ＡＡＡ")
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 Not cc Is Nothing Then
cc.Copy
With New DataObject '選択された「取引会社」の全担当者をリスト
.GetFromClipboard
ss = .GetText
Debug.Print ss
cboTantou.RowSource = ""
cboTantou.List = Split(ss, vbCrLf)
End With
Application.CutCopyMode = False
End If
End With
.AutoFilterMode = False
Application.ScreenUpdating = True
End With
End Sub
※ Private Sub CommandButton1_Click()
のほうは 先のコードのまま 「取引会社」と「担当者」の2列で AutoFilter
をかけます。
|
|
kanabun
- 08/9/3(水) 21:39 -
