|
▼M さん:
AutoFilter案をコードにすると、こんな感じです
'▼「B列:取引会社」と「C列:担当者」にフィルタをかける
Private Sub CommandButton1_Click()
Dim numCN
With Worksheets("AAA")
Application.ScreenUpdating = False
With .Range("B1", .Range("B65536").End(xlUp)).Resize(, 2)
.AutoFilter 1, cboKaisya.Text
.AutoFilter 2, cboTantou.Text
End With
numCN = .Range("H65536").End(xlUp).Value
If IsNumeric(numCN) Then
txtCN.Value = numCN + 1
Else
txtCN.Value = "??"
End If
.AutoFilterMode = False
Application.ScreenUpdating = True
End With
End Sub
※ただし、このばあいは、
cboTantou で選択された「担当者」が、
cboKaisya で選択された「取引会社」であるとは限りませんので、
一行も抽出されないことがあります。
この不具合を改善するには、
cboKaisya でリストから どれかの「取引会社」選択された時点で、
B列に選択された「取引会社」でAutoFilterをかけ、抽出行のC列「担当者」
だけ、
cboTantou リストにリストアップしておく、cboTantouリストにない「担当者」
は選ばせないようにしておくことが考えられます。
|
|