【說明】

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

 

【程式碼】

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

 計算空白格數.png

 

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)))

 

謝謝您閱讀了我的文章，若您喜歡我的文章，希望您幫我按個「讚」，也幫忙分享給需要的朋友或其他平台，謝謝。
 
 
20180128 黑.png

arrow
arrow
    文章標籤
    VBA 空白儲存格 空白儲存格加總 空白儲存格格數 CountBlank Application.WorksheetFunction.CountBlank 巨集 Excel 程式碼
    全站熱搜

    黑天使 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄