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

[µo°Ý] Åã¥Ü¤èªk

[µo°Ý] Åã¥Ü¤èªk

¦U¦ì¤j¤j,

  ½Ð¬Ýªþ¥ó¹Ï,½Ð°ÝÂI¼Ë¤~¥i¥HÅã¥Ü¬°8/10 ©O??

  ÁÂÁÂ
Â^¨ú.JPG
2017-2-4 23:25

¦b[a1]=application...«e­±¥[¤W "'"
§Y [a1]= "'" & application...

TOP

Or.......
  1. Sub zz()
  2. Dim a, b, ar
  3. ar = [b1:d4]
  4. For i = 1 To UBound(ar)
  5.     For j = 1 To UBound(ar, 2)
  6.         If ar(i, j) = "a" Then a = a + 1
  7.         If Len(ar(i, j)) Then b = b + 1
  8.     Next
  9. Next
  10. [a1].NumberFormatLocal = "@"
  11. [a1].Value = a & "/" & b
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# ikboy
­ì¨Ó¤]¥i¥H¦Û­qÀx¦s®æ¦¡¬° "@", ¦¬¤U, ÁÂÁÂ.

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD