Coug在msgbox中显示？

Question

如果单元格的值等于1,2,3,4或5，我想要一个sub来计数。然后它应该显示1 = "xxx"的数字，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，其中Column i的值等于1 - 为什么？

Answer 1

如果它没有显示MsgBox，可能是因为n不等于1。

这可能是因为列I具有零或 2或更多，整个值为1的单元格。

您的代码说：

  

如果1是I列中正好1个单元格的值，则会显示一个消息框，其中显示：

     

“All in Fakultet:1123”，标题为“Heres the answer”

Answer 2

您好此代码应该是这样的，您只能通过索引号而不是Alpha来调用列和行

wc f3.txt