ªð¦^¦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

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-5-16 11:33 ½s¿è

¦^´_ 1# icestormer


    ¥ý¦^ÂвĤT­Ó°ÝÃD~
    §A¬O¼g¦bPrivate Sub Workbook_Open()¤¤
    ¥i¥H´¡¤J¤@­Ó¼Ò²Õ~ ±Nµ{¦¡½X©ñ¦b¸Ì­±~ ­Y¨ä¥L¥¨¶°¦³¶·­n°õ¦æ¸Óµ{¦¡~
    ´N¦b¸Ó¥¨¶°«ü©w³o­Óµ{¦¡½X´N¥i¥H~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^ÂвÄ2­Ó°ÝÃD
¨S¦³¦Û±aªº"tab order", ¦ý¥i¥H³q¹Levent¨Ó¿ï¤U¤@­Ó¥Ø¼Ð¦ì¸m.

¨Ò¦pspinbutton1 tab«á¸õ¨ì textbox1
textbox1 tab«á¸õ¦^ spinbutton1
  1. Private Sub SpinButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  2.     If KeyCode = vbKeyTab Then
  3.         TextBox1.Activate
  4.     End If
  5. End Sub
  6. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  7.     If KeyCode = vbKeyTab Then
  8.         SpinButton1.Activate
  9.     End If
  10. End Sub
½Æ»s¥N½X
°Ñ¦Ò:http://www.ozgrid.com/forum/showthread.php?t=47454
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD