¥»©«³Ì«á¥Ñ 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 ,·í§Ú¨ä¥¦¥¨¶°·Qn¨Ï¥Î³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¤@©wn¥¨¶°»Ýn®É´Nn°õ¦æ¤@¦¸?
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 |