ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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

  2.     For i = 2 To 6
  3.         Num = WorksheetFunction.CountA(Sheets(i).Range("A1"))
  4.         Total = Num + Total
  5.     Next
  6.     MsgBox Total
  7.    
  8. End Sub
½Æ»s¥N½X
PKKO

TOP

¦^´_ 2# PKKO
  1.    MsgBox [COUNTA(Sheet2:Sheet6!A1)]
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE


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

TOP

¦^´_  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

TOP

¦^´_  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

TOP

¦^´_ 6# koo

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

Sheet2:Sheet4 «ü¬¡­¶Ã¯¤W³sÄò¬Û¾F¦b¤@°_ªº¤u§@ªí
Àˬd¬Ý¬Ý¦p Sheet2:Sheet4  -> Sheet2,Sheet5,Sheet6,Sheet3,Sheet4
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE


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

TOP

¦^´_ 8# ashan0418
[ ¬¡­¶Ã¯ªº¦WºÙ,¨ç¼Æ,¤½¦¡ ] ¶Ç¦^­È
¥i°Ñ¦Ò http://forum.twbts.com/thread-12953-1-1.html ¤¤ªº Application.Evaluate(¬¡­¶Ã¯ªº¦WºÙ,¨ç¼Æ,¤½¦¡)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE


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

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD