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

[µo°Ý] ½Ð±Ð¦p¦óÅýVBA¦Û°Ê±NªÅ¥Õ³B¦Û°Ê¶ñ¤J¼Æ¦r0 ?

[µo°Ý] ½Ð±Ð¦p¦óÅýVBA¦Û°Ê±NªÅ¥Õ³B¦Û°Ê¶ñ¤J¼Æ¦r0 ?

½Ð±Ð¦U¦ì¤j¤j:

­YA1~A8ªº¼Æ¦r¦p¤U
A1  A2  A3  A4  A5  A6  A7  A8
       2    5         1    1         4
¨ä¤¤A1.A4.A7³o3¦UÀx¦s®æ¦¡ªÅ¥Õªº,½Ð°Ý¦p¦óÅýVBA¦Û°Ê±NªÅ¥Õ³B¦Û°Ê¶ñ¤J¼Æ¦r0 ? ÁÂÁÂ

§Æ±æ¯àÂÇ¥ÑVBA§PÂ_«á,¦Û°Ê¶ñ¤J
A1  A2  A3  A4  A5  A6  A7  A8
  0   2    5    0    1    1   0    4
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

¦^´_ 1# jonn0510
  1. Sub yy()
  2. On Error Resume Next
  3. [A1:A8].SpecialCells(xlCellTypeBlanks) = 0
  4. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# register313

register313 ¤j¤j:
OK!·PÁ±zªº«ü¾É,ÁÂÁ±z.
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

TOP

On Error Resume Next µ{¦¡¤¤·|¤£©ö°£¿ù
  1. Sub Ex()
  2.     If [COUNTA(A1:A8)] <> [A1:A8].Count Then [A1:A8].SpecialCells(xlCellTypeBlanks) = 0
  3.     '¤u§@ªí¨ç¼Æ COUNTA(A1:A8) : ­pºâ½d³ò¤º¦³¸ê®Æªº¼Æ¥Ø
  4.     '[A1:A8].Count  VBA:Count ÄÝ©Ê ¶Ç¦^¤@­Ó Long (ªø¾ã¼Æ)¡Aµ¥©ó¦b¤@­Ó¶°¦Xª«¥ó¤¤ªºª«¥ó¼Æ¥Ø¡C°ßŪ¡C
  5.     'SpecialCells ¤èªk  ¶Ç¦^Range ª«¥ó¡A¦¹ª«¥ó¥Nªí»P«ü©w«¬ºA¤Î­È¬Û²Å¦Xªº©Ò¦³Àx¦s®æ¡CRange ª«¥ó¡C
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


    ­ì¨Ó¥i¥H¨Ï¥Î[]³oºØ¤è¦¡
   §Ú¥i¯à·|»{¬°COUNTA(A1:A8)³oºØ¥Îªk¥X¿ù¬O¦]¬°¨S¿ìªk¥Î¨ººØ¤è¦¡³B²z

   ¥X²{¥²¶·":²M³æ¤À°£¦r¤¸©Î¬O)" ³oºØ¦r²´®É¦pªG¨S¦³¿ù»~ÁÙ¯uªº¤£ª¾¹D¦p¦ó¸Ñ¨M
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

[a1:a8].Replace "", "0", 1

TOP

¦^´_ 6# oobird


    ª©¥D§Aªºµ{¦¡½X¹B¦æ¨S¥X²{¿ù»~¦ý¬O¤£·|¦³0
    ³oºØreplace¨S¬Ý¹L
   ¦³¤°»ò±ø¥ó¶Ü
   §Ú¦b¤@­ÓªÅ¥Õ¤u§@ªí°õ¦æ
   ¥¿±`A1:A8³£·|¬°0¥i¬OÁÙ¬OªÅ¥Õ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 7# freeffly
a.gif

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-19 09:51 ½s¿è

¦^´_ 7# freeffly
¥i°Ñ¦ÒªÌ¸Ì

³o¿ï¶µ ¦³¤Ä¿ï¶Ü?

TOP

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-6-19 10:01 ½s¿è

¦^´_ 8# oobird


    §Úª¾¹D®t¦b­þ¤F
  §ÚªºA1:A8³£¬OªÅ¥Õ
  §Ú¥H¬°·|³£¨ú¥N¬°0

¦^´_ 8# GBKEE
§Úªº¨ºÃä¬O¥´¤Äªº
­ì¨Ó¨ºÃä¦pªG¨ú®ø·|¬Ý¤£¨ì0
¤@ª½¨S¥h¸Õ
ÁÂÁÂ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD