[µo°Ý] ½Ð±Ð¨ç¼ÆcountA¦p¦ó§ï¥ÎVBA¨Ó­pºâ¦h¤u§@ªí(·PÁÂ)

koo

=COUNTA('Sheet2:Sheet6'!A1)
½Ð±Ð¥H¤Wµ{§Ç¦p¦ó¥ÎVBA¨Ó¼g...·PÁ±zªº¦^µª

PKKO

¦^´_ 1# koo
¤p§Ì¤£¤~,À³¸Ó¦³§ó§Öªº¤èªk,³oÃä´£¨Ñ±z§Ú·|ªº¤è¦¡
¦³¨ä¥L¤j¤j¤]¥i´£¥X,¤p§Ì¥[¥H¾Ç²ß

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

½Æ»s¥N½X

GBKEE

¦^´_ 2# PKKO

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

½Æ»s¥N½X

PKKO

¦^´_ 3# GBKEE


    MsgBox [COUNTA(Sheet2:Sheet6!A1)]
·PÁ¶Wª©«ü±Ð,¦n¯S§Oªº»yªk,¦ý¤p§Ì¸Õ¤F¤@¤U,§Ú§â¤À­¶ªºA1³£§R°£¤F,µ²ªGÁÙ¬O1,¶ñº¡¤]¬O1?

koo

¦^´_  koo
¤p§Ì¤£¤~,À³¸Ó¦³§ó§Öªº¤èªk,³oÃä´£¨Ñ±z§Ú·|ªº¤è¦¡
¦³¨ä¥L¤j¤j¤]¥i´£¥X,¤p§Ì¥[¥H¾Ç²ß
PKKO µoªí©ó 2014-11-23 12:01

·PÁ¤j¤j°ÝÃD¤w¸Ñ
­ì¨Ó¬O¿ù¦b¤@ª½¥Î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 µoªí©ó 2014-11-23 12:48

³ø§i¤j¤j:
µ²ªG³£¬OÅã¥Ü1
Sub test()
Cells(1, 1) = [COUNTA(Sheet2:Sheet4!A1)]
End Sub

GBKEE

¦^´_ 6# koo

**µ²ªG³£¬OÅã¥Ü1**

Sheet2:Sheet4 «ü¬¡­¶Ã¯¤W³sÄò¬Û¾F¦b¤@°_ªº¤u§@ªí
Àˬd¬Ý¬Ý¦p Sheet2:Sheet4  -> Sheet2,Sheet5,Sheet6,Sheet3,Sheet4

ashan0418

¦^´_ 7# GBKEE


¤j¤j±zªº·N«ä§Ú¤wÁA¸Ñ¤F¡A¨º½Ð°Ý¤@¤U¬°¦ó­n¦b«e«á¥[¤W [ ] ©O??

GBKEE

¦^´_ 8# ashan0418
[ ¬¡­¶Ã¯ªº¦WºÙ,¨ç¼Æ,¤½¦¡ ] ¶Ç¦^­È
¥i°Ñ¦Ò http://forum.twbts.com/thread-12953-1-1.html ¤¤ªº Application.Evaluate(¬¡­¶Ã¯ªº¦WºÙ,¨ç¼Æ,¤½¦¡)

ashan0418

¦^´_ 9# GBKEE


    ·PÁ¤j¤jªº«ü¾É!!