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

[µo°Ý] ­pºâ¤H­û¶i®×¥ó¼Æ~~

[µo°Ý] ­pºâ¤H­û¶i®×¥ó¼Æ~~

¦U¦ì°ª¤â¦n
§Ú·Q§¹¦¨¤@­Óªí®æ¡Aªí®æ¤¤¦³1~17ªº¼Æ¦r¤Î«¶i®×¥ó¼Æ»ªº¦r¼Ë
·Q¸ß°Ý­Y¬O§Ú¦b¼Æ¦r1~17ªº¤U¤è¥´¤U¤å¥ó(¤H­û¶i®×ªº®×¦W)
¬O§_¦³¤½¦¡¥i¥HÅý«¶i®×¥ó¼Æ»¨Ì§Ú¦³¥´ªº¤å¦r¨Ó¨ú¥X1~17ªº¼Æ¦r©O¡H(ª½±µ­pºâ¥ó¼Æ¦³´X¥ó)
·PÁÂ~~~

ÀÉ®×.rar (6.78 KB)

±zªº·N«ä«ÜÃø²z¸Ñ¡A¥i¥Hµ¹¤@­Ó¨ãÅ骺¤å¦rµM«á±o¨ìªºµ²ªGªþ¤W¶Ü

TOP

=COUNTA(B3:R3)
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¥»©«³Ì«á¥Ñ zz5151353 ©ó 2017-6-26 16:02 ½s¿è

¤½¦¡¨Ï¥Îªk
S3
=COUNTIF(B3:R3,"<>")

Sub zz()
Dim Rng
Set Rng = Range("B3:R3")
  [S3] = Application.WorksheetFunction.CountIf(Rng, "<>")
End Sub

Or  ¥uÅã¥Ü±Þ­±¤£¼g¤J¦p¤U

Sub zz()
Dim Rng
Set Rng = Range("B3:R3")
  MsgBox Application.WorksheetFunction.CountIf(Rng, "<>")
End Sub
300 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

=COUNTA(B3:R3)
hcm19522 µoªí©ó 2017-6-23 20:51



    ·PÁ±z!!!~~~

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD