問問蓮蓬頭

【說明】

如何使用程式碼來進行區間空白儲存格格數加總，該如何撰寫程式碼呢?以下分享

【程式碼】

1.寫入程序後，觸發程式碼，就可對A1至J1的區間空白儲存格格數加總

2.輸入以下程式碼

Public Sub 空白儲存格數加總()

  BLANKSUM = Application.WorksheetFunction.CountBlank(Range("A1:J1"))

  MsgBox "A1至J1區間空白儲存格數加總共" & BLANKSUM & "個", , "提示視窗"

End Sub

【程序碼解說】

Public Sub 區間加總()

BLANKSUM = Application.WorksheetFunction.CountBlank(Range("A1:J1"))

變數BLANKSUM 等於Application 物件的 WorksheetFunction 屬性的CountBlank函數，將A1至J1的空白儲存格格數加總

MsgBox "A1至J1區間加總共" & BLANKSUM, , "提示視窗"

跳出訊息視窗，顯示A1至J1區間空白儲存格格數加總共是多少，兩個逗號後為設定視窗表頭

End Sub

【特別說明】

若想透過For迴圈，讓程式碼更加的靈活，可將程式碼修改如下

BLANKSUM = Application.WorksheetFunction.CountBlank(Range(Cells(Y, X), Cells(Y, X)))