[發問] 請教函數countA如何改用VBA來計算多工作表(感謝)

koo

=COUNTA('Sheet2:Sheet6'!A1)
請教以上程序如何用VBA來寫...感謝您的回答

PKKO

回復 1# koo
小弟不才,應該有更快的方法,這邊提供您我會的方式
有其他大大也可提出,小弟加以學習

1. Sub test()
   
2. 
   
3.     For i = 2 To 6
   
4.         Num = WorksheetFunction.CountA(Sheets(i).Range("A1"))
   
5.         Total = Num + Total
   
6.     Next
   
7.     MsgBox Total
   
8.    
   
9. End Sub

複製代碼

GBKEE

回復 2# PKKO

1.    MsgBox [COUNTA(Sheet2:Sheet6!A1)]

複製代碼

PKKO

回復 3# GBKEE


    MsgBox [COUNTA(Sheet2:Sheet6!A1)]
感謝超版指教,好特別的語法,但小弟試了一下,我把分頁的A1都刪除了,結果還是1,填滿也是1?

koo

回復  koo
小弟不才,應該有更快的方法,這邊提供您我會的方式
有其他大大也可提出,小弟加以學習
PKKO 發表於 2014-11-23 12:01

感謝大大問題已解
原來是錯在一直用k=k+1

Sub test()

For i = 1 To 20
For j = 1 To 20

    For h = 2 To Sheets.Count
        Num = WorksheetFunction.CountA(Sheets(h).Cells(i, j))
        k = k + Num
    Next h
    Cells(i, j) = k
    k = 0
Next j
Next i

End Sub

koo

回復  PKKO
GBKEE 發表於 2014-11-23 12:48

報告大大:
結果都是顯示1
Sub test()
Cells(1, 1) = [COUNTA(Sheet2:Sheet4!A1)]
End Sub

GBKEE

回復 6# koo

**結果都是顯示1**

Sheet2:Sheet4 指活頁簿上連續相鄰在一起的工作表
檢查看看如 Sheet2:Sheet4  -> Sheet2,Sheet5,Sheet6,Sheet3,Sheet4

ashan0418

回復 7# GBKEE


大大您的意思我已瞭解了，那請問一下為何要在前後加上 [ ] 呢??

GBKEE

回復 8# ashan0418
[ 活頁簿的名稱,函數,公式 ] 傳回值
可參考 http://forum.twbts.com/thread-12953-1-1.html 中的 Application.Evaluate(活頁簿的名稱,函數,公式)

ashan0418

回復 9# GBKEE


    感謝大大的指導!!