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

¦³¨ç¼Æ¡B¤èªk¥i¥Hª¾¹D°}¦C¤¤«D"µL"­Ó¼Æ¶Ü?[¤w¸Ñ¨M]

¦³¨ç¼Æ¡B¤èªk¥i¥Hª¾¹D°}¦C¤¤«D"µL"­Ó¼Æ¶Ü?[¤w¸Ñ¨M]

¥»©«³Ì«á¥Ñ asus103 ©ó 2011-1-6 15:09 ½s¿è

½Ð°Ý¦U¦ì¤j¤j
¦³¨ç¼Æ¡B¤èªk¥i¥Hª½±µª¾¹D°}¦C¤¤¡G
1.«D"µL"­Ó¼Æ¶Ü?
2.³Ì«á¤@­Ó«D"µL"ªº¦ì¸m?
ÁÂÁÂ

¬d¹LEXCEL»¡©ú
°}¦CÃöÁä¦rºK­n
§@¥Î ÃöÁä¦r
½T»{¤@­Ó°}¦C¡C IsArray
«Ø¥ß¤@­Ó°}¦C¡C Array
§ïÅܤU¼Ðªº¹w³]³Ì¤p­È¡C Option Base
«Å§i¤Îªì©l°}¦C¡C Dim, Private, Public, ReDim, Static
§PÂ_°}¦C¤U¼Ð·¥­­­È¡C LBound, UBound
­«·sªì©l¤@­Ó°}¦C¡C Erase, ReDim

ÁÙ¦³¨ä¥L¥i¥Îªº¶Ü?
©Î¬O­þ¸ÌÁÙ¥i¥H¬d¨ì¸ê®Æ?
ASUS

¦^´_ 1# asus103
  1. Sub xx()
  2. ar = Application.Transpose([K1:K15])
  3. For i = LBound(ar) To UBound(ar)
  4.   If IsEmpty(ar(i)) Then cnt = cnt + 1 Else k = i
  5. Next
  6. MsgBox "µLªº¼Æ¶q:" & cnt & Chr(10) & "³Ì«á«DªÅªºid:" & k
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦¬¨ì¤F
·PÁ¶W¯Åª©¥D
¦³¤F³o¨Ç¡A¼g¥¨¶°¤@©w·|§ó¤è«K
ASUS

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD