Countif顯示在msgbox中？

Question

如果單元格的值等於1,2,3,4或5，我希望有一個Count。然后它應該顯示Numbers of 1 = "xxx" ，Numbers 2="xxx" ，依此類推。

Sub Opgave3()
    Dim n As Long
    n = WorksheetFunction.CountIf(Columns("I"), "1")
    If n = 1 Then _
    MsgBox "All in Fakultet:" & n & "123", vbInformation, "Heres the answer"
End Sub

這沒有顯示任何msgbox，列i的值等於1-為什么？

Answer 1

如果未顯示MsgBox ，則可能是因為n不等於1 。

這可能是因為列I具有零個或2個或更多的像元 ，其整個值為1 。

您的代碼說：

如果1是第I列中恰好1個單元格的值，則顯示一個消息框，其中顯示：

標題為“ Heres the answer ”的 “ All in Fakultet:1123 ”

Answer 2

嗨，這段代碼應該是這樣的，您只能按索引號調用列和行，而不能按Alpha調用

   Sub Opgave3()
   Dim n As Long
   n = WorksheetFunction.CountIf(Columns(9), "1")
   If n = 1 Then _
   MsgBox "All in Fakultet:" & n & "123", vbInformation, "Heres the answer"
   End Sub