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

¤G­Ó±±¨î¶µ°ÝÃD ·Q½Ð°Ý.

¤G­Ó±±¨î¶µ°ÝÃD ·Q½Ð°Ý.

¥»©«³Ì«á¥Ñ icestormer ©ó 2012-5-11 17:11 ½s¿è

µL·N¤¤§ä¨ì³o­Ó±±¨î¶µ ,½Ð°Ýªº¬O ³o­Ó¬OÃþ¦ü¶i«×±ø¶Ü? ¯à¤£¯àµ¹¤@­Ó¹ê»Ú¨Ò¤l ­n¦p¦óÅý¥¦·|¥X²{¶i«×±øªºª¬ºA©O?





¥t¥~ ¦b¤u§@ªí¤Wªº³o­Ó±±¨î¶µ  ¦³¨S¦³¹³¦bªí³æ¤Wªº±±¨î¶µ³£·|¦³TABINDEX ¤§Ãþªº??





·Q°Ý²Ä¤T­Ó°ÝÃD, §Q¥Î¤U¤è°}¦C§â¸ê®Æ¼g¤J ,·í§Ú¨ä¥¦¥¨¶°·Q­n¨Ï¥Î³o­Ó°}¦C®É­n«ç®³¹L¨Ó¨Ï¥Î©O?
¦]¸Ó°}¦C¥i¥HÅý¨ä¥¦¤Q¦h­Ó¥¨¶°¨Ï¥Î¦ý³o­Ó°}¦C¤º®e´X¥G¤£·|ÅܤS¤£·QÅý¥¨¶°¨C°õ¦æ¤@¦¸,´N°õ¦æ¸Ó°}¦C
¤~·Q»¡§ï¦¨¦b¤@¶}workbook®É´N°µ¤@¦¸´N¦n¤F ,¤£ª¾¯à¤£¯à³o¼Ë°µ©O,ÁÙ¬O¤@©w­n¥¨¶°»Ý­n®É´N­n°õ¦æ¤@¦¸?

Private Sub workbook_open()
     dim i as integer
     static mydata()
   i = 0
   ReDim mydata([k3].Value)

   For Each x In Range(Cells(5, 1), Cells(5, 1).End(xlToRight))
          mydata(i) = x.Value
          i = i + 1
   Next
end sub

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD