得到一個消息框計數，如果工作

Question

林「努力」，以使該顯示多少存在，並且缺席有一列中，這樣用戶可以單擊確定，所複製的數據或按取消和消息框結束代碼。

的問題是我不能似乎得到了部分COUNTIF工作在刀刃缺席的數量和消息框顯示在他們面前呈現。

Im相當新的編碼所以它可能是一個真正的混亂，但任何幫助和ID感激:)

Sub SubmitAttendance() 

    Dim Response As String 
    Dim Question As String 
    Dim PresentNumber As String 
    Dim AbsentNumber As String 


    Function As Integer 
     PresentNumber = Countif(Range("E:E"), Present) 
     AbsentNumber = Countif(Range("E:E"), Absent) 
    End Function 


    Question = "PresentNumber Present and AbsentNumber Absent" 
    Response = MsgBox(Question, vbOKCancel, "Register Totals") 

    If Response = vbOK Then 
     Range("E:E").Select 
     Selection.Copy 

     Range("F:ZZ").Find("").Select 
     Selection.PasteSpecial 
    Else 
     Exit Function 
    End If 
End Sub 

Answer 1

Excel的功能都可以在WorkSheetFunctions模塊，如：

WorksheetFunctions.CountIf(Arg1 As Range, Arg2) 

而且，通過你的第二個參數作爲字符串，而不是作爲一個變量（VB繁忙的性質將宣佈名稱你，這可能不是你想要的未初始化變量。

所以你的CountIf行應該是這樣的：

WorksheetFunction.CountIf(Range("E:E") , "Present")