小白求助！ vba里如何调用countif函数，为什么我调用不起作用，请问是哪里有问题？

xiaozha1985

Private Sub CommandButton13_Click() '“新增”按钮事件
Dim a As String
Dim b As Integer

a = "0010001"

If a <> "" Then

   b = Application.WorksheetFunction.CountIf(Sheet4.Range("B:B"), a)

   Select Case b
   Case b < 10
   ComboBox6.Value = a & "000" & b + 1
   Case b < 100
   ComboBox6.Value = a & "00" & b + 1
   Case b < 1000
   ComboBox6.Value = a & "0" & b + 1
   Case b > 1000
   ComboBox6.Value = a & b + 1
   End Select

End If
End Sub

xiaozha1985

朱荣兴 发表于 2017-7-28 09:34
代码看不出什么问题，请上传你的excel附件

我已经找到问题所在并解决了，谢谢。