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

¤U©Ô¦¡­n¦p¦ó¿ï¾Ü«á·|¦Û°Ê±a¥X¨ä¥Lªí³æ°T®§

¦^´_  mark15jill


    ·PÁ¤j¤jªº¨ó§U
¤w¸g¦³§ä¨ì§Ú·Q­nªº¼gªk¤F(^¤f^)
Jared µoªí©ó 2013-3-8 15:04



    ¤p§Ì¶È´£¥Ü¦Ó¤w.. GBKEE¤j¤j¤~¬O°ª¤â

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 8# Jared
   
²Ä¤@ºØ¼gªk¥Ø«e´N¬O¿ï¾Ü§¹²Ä¤@­ÓComboBox1
²Ä¤G­Ó¿ï¶µ·|¥ý©IÀ³ªÅ¥Õ
¥u¬O·Q­nÅý¥L´£«e¥ýÅã¥Ü¥X¨Ó²Ä¤@¶µ

¬O³o¼Ë¶Ü?  1#ªí³æªºµ{¦¡½X
  1. 'ListIndex = -1: ©Ò¿ïªº¤£¦b List²M³æ¤º
  2. Dim »ù®æ
  3. Private Sub ComboBox1_Change()
  4.     ComboBox2 = ""
  5.     TextBox1 = ""
  6.     If ComboBox1.ListIndex > -1 Then
  7.         ComboBox2 = ComboBox2.List(ComboBox1.ListIndex)
  8.         TextBox1 = »ù®æ(ComboBox1.ListIndex)
  9.     End If
  10. End Sub
  11. '   Private Sub ComboBox2_Change()
  12. '       TextBox1 = ""
  13. '       If ComboBox2.ListIndex > -1 Then TextBox1 = »ù®æ(ComboBox1.ListIndex)
  14. '   End Sub
  15. '****************************************************
  16. Private Sub CommandButton1_Click()
  17.     If ComboBox1.ListIndex = -1 Then MsgBox "À\ÂI¤º®e »Ý»ô¥þ !!": Exit Sub
  18.     With Sheet10
  19.         .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3).Value = Array(ComboBox1, ComboBox2, TextBox1)
  20.     End With
  21. End Sub
  22. Private Sub CommandButton2_Click()
  23.     test4.Hide
  24. End Sub
  25. Private Sub CommandButton3_Click()
  26.     ComboBox1 = ""
  27. End Sub
  28. Private Sub UserForm_Initialize()
  29.     With ComboBox1
  30.         .Font.Size = 12
  31.         .TextAlign = fmTextAlignCenter                  '¤å¦r¸m¤¤
  32.         .List = Array("¤@¸¹À\", "¤G¸¹À\", "¤T¸¹À\")
  33.     End With
  34.     With ComboBox2
  35.         .Font.Size = 12
  36.         .TextAlign = fmTextAlignCenter                  '¤å¦r¸m¤¤
  37.         .List = Array("º~³ù¡BÁ¦±ø¡B¥i¼Ö", "Âû¶ô¡BÁ¦»æ¡B¬õ¯ù", "Á¦»æ¡BÁ¦±ø¡B¦B²N²O")
  38.         .Locked = True                                  '¸T¤î½s¿è
  39.     End With
  40.     With TextBox1
  41.         .Locked = True                                  '¸T¤î½s¿è
  42.         .Font.Size = 12
  43.         .TextAlign = fmTextAlignCenter                   '¤å¦r¸m¤¤
  44.     End With
  45.     »ù®æ = Array(50, 60, 70)
  46. End Sub
½Æ»s¥N½X

TOP

¦^´_ 12# GBKEE


    ·PÁ¤j¤jªº¸Ñµª
³o´N¬O§Ú·Q­nªº¤è¦¡
¤£¹LBoX2 ³oÄæ´N¤£¥ÎÂê°_¨Ó
¤~¤è«K¦³¥t¥~¨âºØ¿ï¾Ü~(^¤f^)
Jared

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2013/7/25 07:13): ­n¾Ç²ß¥iªþÀÉ»¡©ú¬Ý¬Ý

³o¼Ëªº¿ï³æ,¯à§_À³¥Î¦b¯Zªí¯Z§O¤W

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD