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

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

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

·Q½Ð°Ý¦U¦ì¤j¤j
­n¦p¦ó¯à°÷±N¤U©Ô¦¡¿ï³æªº¸ê®Æ
¦b¿ï¾Ü«á¯à°÷±a¥X¨ä¥LÃöÁp¦¡Äæ¦ìªº¸ê°T



¦A¿ï¾Ü²Ä¤@­Ó¤U©Ô¦¡¿ï³æ(©e°U¶µ¥Ø)«á
´N¯à°÷§â²Ä¤G­Ó¤U©Ô¦¡¿ï³æ(¤l¶µ¥Ø)±a¥X¨Ó
²Ä¤G­Ó¤l¶µ¥Ø±a¥X¨Ó«á
±NTextBox¸ê®Æ±a¥X¨Ó

¨Ò¦p¡G¥D¶µ¥Ø¬O
1¸¹À\¡A¨º¤l¶µ¥Ø´N¦³º~³ù¡BÁ¦±ø¡B¥i¼Ö
2¸¹À\¡A¨º¤l¶µ¥Ø´N¦³Âû¶ô¡BÁ¦»æ¡B¬õ¯ù...µ¥µ¥

³Ì«á¦bTextBox´N·|¨q¥Xª÷ÃB Á`¦@¬O¡G$129

µ{¦¡¥i¥H³o¼Ë³]ÃöÁp¶Ü?
³o­Ó¥\¯à¤£ª¾¹D­n«ç»ò¼g¡A§Æ±æ¤j¤j¯à¸Ñ´b¡I
·P¿E¤£ºÉ>"<
Jared

¦^´_ 1# Jared
ªþÀÉ»¡©ú§Aªº°ÝÃD.­n¸ÑµªªÌ,¦n¸Ñµª¨Ç!!

TOP

¦^´_ 2# GBKEE


©êºp¡I¥ý¤W¶Ç¥Ø«e§ÚªºÀɮצbªþÀÉ
¥u¯à¤@­Ó­ÓÂI¿ï¤U©Ô¦¡²M³æ
§Æ±æ¯à°÷ÂI¿ï¤@¸¹À\«á
ÀH§Y´N¯à§âÀ\ÂI¤º®e©M»ù®æ±a¥X¨Ó
°O¿ý¦bSheetsÄæ¦ì¸ÌÀY
¦pªG¤T­ÓÄæ¦ì¦³¤@­Ó¨S¶ñ¤W
´N·|¥X²{ĵ§iµøµ¡!

¿Ã¹õºI¹Ï00065.jpg
    ´ú¸ÕÀÉ3.zip (27.49 KB)

µ{¦¡¦p¤U
==================================================
Private Sub CommandButton1_Click()
Dim A As Range

If Application.CountBlank(Sheet10.Range("A2:A99")) = 0 Then 'ÂI¿ïÀ\¸¹
Sheet10.[A100] = ComboBox1.Value

Else

Set A = [a1]
Do Until A = ""
    Set A = A.Offset(1, 0)
Loop

A.Value = ComboBox1.Value

End If

If ComboBox1.Value = "" Then
MsgBox "±z¥ý¿ï¾Ü´X¸¹À\¡I"
Exit Sub
End If


If Application.CountBlank(Sheet10.Range("B2:B99")) = 0 Then 'À\ÂI¤º®e
Sheet10.[B100] = ComboBox2.Value

Else

Set A = [b2]
Do Until A = ""
    Set A = A.Offset(1, 0)
Loop

A.Value = ComboBox2.Value

End If


gg = test4.TextBox1.Value '»ù¿ú

If Application.CountBlank([C2:C99]) = 0 Then Range("C100") = gg: Exit Sub
For Each A In [C2:C99]
    If A = "" Then
        A.Value = gg
        Exit For
    End If
Next

End Sub
Private Sub CommandButton2_Click()
    test4.Hide
End Sub

Private Sub CommandButton3_Click()
Me.ComboBox1 = ""
Me.ComboBox2 = ""
Me.TextBox1 = ""
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "¤@¸¹À\"
ComboBox1.AddItem "¤G¸¹À\"
ComboBox1.AddItem "¤T¸¹À\"

ComboBox2.AddItem "º~³ù¡BÁ¦±ø¡B¥i¼Ö"
ComboBox2.AddItem "Âû¶ô¡BÁ¦»æ¡B¬õ¯ù"
ComboBox2.AddItem "Á¦»æ¡BÁ¦±ø¡B¦B²N²O"

End Sub
Jared

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-3-7 14:56 ½s¿è

¦^´_ 3# Jared
¸Õ¸Õ¬Ý³o¬O§_¦p§A©Ò»Ý
  1. 'ListIndex = -1: ©Ò¿ïªº¤£¦b List²M³æ¤º
  2. Private Sub ComboBox1_Change()
  3.     If ComboBox1.ListIndex > -1 Then
  4.         À\ÂI
  5.     Else
  6.         ComboBox2 = ""
  7.     End If
  8. End Sub
  9. Private Sub ComboBox2_Change()
  10.     TextBox1 = ""
  11.     If ComboBox2.ListIndex > -1 Then TextBox1 = ComboBox2.List(ComboBox2.ListIndex, 1)
  12. End Sub
  13. Private Sub CommandButton1_Click()
  14.     Dim A
  15.     If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then MsgBox "À\ÂI¤º®e »Ý»ô¥þ !!": Exit Sub
  16.     With Sheet10
  17.         .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3).Value = Array(ComboBox1, ComboBox2, TextBox1)
  18.     End With
  19. End Sub
  20. Private Sub CommandButton2_Click()
  21.     test4.Hide
  22. End Sub
  23. Private Sub CommandButton3_Click()
  24.     Me.ComboBox1 = ""
  25.     Me.ComboBox2 = ""
  26.     Me.TextBox1 = ""
  27. End Sub
  28. Private Sub UserForm_Initialize()
  29.     ComboBox1.List = Array("¤@¸¹À\", "¤G¸¹À\", "¤T¸¹À\")
  30. End Sub
  31. Private Sub À\ÂI()
  32.     With ComboBox2
  33.         .Clear
  34.         Select Case ComboBox1.ListIndex
  35.             Case 0               '¤@¸¹À\
  36.                 .AddItem "º~³ù¡BÁ¦±ø¡B¥i¼Ö"
  37.                 .List(.ListCount - 1, 1) = 50           'ComboBox2ªº²Ä2Äæ  ¨SÅã¥Ü¥X¨Ó
  38.                 .AddItem "º~³ù¡BÁ¦»æ¡B¥i¼Ö"
  39.                 .List(.ListCount - 1, 1) = 49
  40.                 .AddItem "º~³ù¡BÁ¦»æ¡B¬õ¯ù"
  41.                 .List(.ListCount - 1, 1) = 48
  42.             Case 1             '¤G¸¹À\
  43.                 .AddItem "Âû¶ô¡BÁ¦±ø¡B¥i¼Ö"
  44.                 .List(.ListCount - 1, 1) = 47           'ComboBox2ªº²Ä2Äæ  ¨SÅã¥Ü¥X¨Ó
  45.                 .AddItem "Âû¶ô¡BÁ¦»æ¡B¥i¼Ö"
  46.                 .List(.ListCount - 1, 1) = 46
  47.                 .AddItem "Âû¶ô¡BÁ¦»æ¡B¬õ¯ù"
  48.                 .List(.ListCount - 1, 1) = 45
  49.             Case 2             '¤T¸¹À\
  50.                 .AddItem "«p¤g¥q¡BÁ¦±ø¡B¥i¼Ö"
  51.                 .List(.ListCount - 1, 1) = 44           'ComboBox2ªº²Ä2Äæ  ¨SÅã¥Ü¥X¨Ó
  52.                 .AddItem "«p¤g¥q¡BÁ¦»æ¡B¥i¼Ö"
  53.                 .List(.ListCount - 1, 1) = 43
  54.                 .AddItem "«p¤g¥q¡BÁ¦»æ¡B¬õ¯ù"
  55.                 .List(.ListCount - 1, 1) = 42
  56.         End Select
  57.     End With
  58.     TextBox1 = ""
  59. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


    ·PÁ¤j¤jÀ°¦£(0¤f0)~¯u¬O¤Ó±j¤F
¤£¹L¦pªG§Ú¬O­nÂI¿ï¤@¸¹À\¡AÀ\ÂI©M»ù¿ú³£·|¦Û°Ê¶]¥X¨Ó
³o¬O­n­×§ï­þ­Ó³¡¥÷©O(@@)?
Jared

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2013-3-7 16:44 ½s¿è
¦^´_  GBKEE


    ·PÁ¤j¤jÀ°¦£(0¤f0)~¯u¬O¤Ó±j¤F
¤£¹L¦pªG§Ú¬O­nÂI¿ï¤@¸¹À\¡AÀ\ÂI©M»ù¿ú³£·|¦Û°Ê¶]¥X ...
Jared µoªí©ó 2013-3-7 15:08



    §A¤@¸¹À\ªº¶µ¥Ø¬O¬Æ»ò??
¨Ò¦p ¤@¸¹À\ ¬O¦óºØ·f°t ???


ComboBox1.AddItem "¤@¸¹À\"
ComboBox1.AddItem "¤G¸¹À\"
ComboBox1.AddItem "¤T¸¹À\"

ComboBox2.AddItem "º~³ù¡BÁ¦±ø¡B¥i¼Ö"
ComboBox2.AddItem "Âû¶ô¡BÁ¦»æ¡B¬õ¯ù"
ComboBox2.AddItem "Á¦»æ¡BÁ¦±ø¡B¦B²N²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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-3-7 18:22 ½s¿è

¦^´_ 5# Jared

ªþÀɸոլÝ

test.rar (25.17 KB)





  1. 'ListIndex = -1: ©Ò¿ïªº¤£¦b List²M³æ¤º
  2. Private Sub ComboBox1_Change()
  3.     If ComboBox1.ListIndex > -1 Then
  4.         À\ÂI
  5.     Else
  6.          ListBox1.RowSource = ""
  7.     End If
  8. End Sub
  9. Private Sub CommandButton1_Click()
  10.     Dim A
  11.     If ComboBox1.ListIndex = -1 Or Me.ListBox1.ListIndex = -1 Then MsgBox "À\ÂI¤º®e »Ý»ô¥þ !!": Exit Sub
  12.     With Sheet10
  13.         .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3).Value = Array(ComboBox1, ListBox1.List(ListBox1.ListIndex, 0), ListBox1.List(ListBox1.ListIndex, 1))
  14.     End With
  15. End Sub
  16. Private Sub CommandButton2_Click()
  17.     test4.Hide
  18. End Sub
  19. Private Sub CommandButton3_Click()
  20.     ComboBox1 = ""
  21. End Sub
  22. Private Sub UserForm_Initialize()
  23.     With ListBox1
  24.         .ColumnWidths = .Width * (2 / 3) & "," & .Width * (1 / 3)   'Åã¥ÜÄæ¼e«×
  25.         .ColumnHeads = True                                         'Äæ¦ìÅã¥Ü ªíÀY
  26.         .TextAlign = fmTextAlignCenter                              '¤å¦r¸m¤¤
  27.         .ColumnCount = 2                                            'Åã¥ÜÄæ¦ì¼Æ  À\ÂI¤º®e,»ù¿ú ¨âÄæ
  28.        .Font.Size = 12
  29.     End With
  30.     With ComboBox1
  31.         .Font.Size = 12
  32.         .TextAlign = fmTextAlignCenter                              '¤å¦r¸m¤¤
  33.     End With
  34.     ®MÀ\©w¸q
  35. End Sub
  36. Private Sub À\ÂI()
  37.     With ListBox1
  38.         .RowSource = ""                                             '²M°£ListBox ²M³æªº¨Ó·½
  39.         .RowSource = Sheets("®MÀ\").Names(ComboBox1.Value).RefersTo '«ü©wListBox ²M³æªº¨Ó·½ A1:C5 ½d³òªº§Î¦¡(¤£¬O R1C1)
  40.     End With
  41. End Sub
  42. Private Sub ®MÀ\©w¸q()          '©w¸q¦WºÙ
  43.     Dim R As Variant, i As Integer
  44.     With Sheets("®MÀ\")
  45.         For Each R In .Names
  46.             R.Delete                '²M°£®MÀ\ªº©w¸q¦WºÙ
  47.         Next
  48.         Set R = .[A1]
  49.         i = 1
  50.         Do While .Cells(i, "A") <> ""
  51.             Set R = R.End(xlToRight)
  52.             ComboBox1.AddItem .Cells(i, "A")
  53.             .Names.Add Name:=.Cells(i, "A"), RefersTo:=.Range(R.CurrentRegion.Rows(2), R.CurrentRegion.Rows(R.CurrentRegion.Rows.Count))
  54.             '.Names.Add ·s¼W ®MÀ\ªº©w¸q¦WºÙ
  55.             i = i + 1
  56.             Set R = R.End(xlToRight)
  57.         Loop
  58.     End With
  59. End Sub
½Æ»s¥N½X

TOP

·PÁ¤j¤jÀ°¦£¡I
²Ä¤@ºØ¬ã¨s¤F¦n¤@°}¤l¤~§Ë²M·¡¼gªk
²Ä¤GºØ¸Ñªk¤ÓºÖÂø¤F¨Ç~ÁÙ¦b§V¤O
(u_u).....µ{¦¡»yªk¯uªº¬O°ª²`²ö´ú

¥D­n¬O·Q­n¤U©Ô¦¡¿ï³æComboBox1ÂI¿ï§¹²Ä¤@¸¹À\
¨ºÀ\ÂI¤º®eComboBox2·|ª½±µÅã¥Ü²Ä¤@µ§(¦pªG¤£¬O¦Û¤v·Q­nªº¡A¦b¥h°µ¨ä¥L¿ï¾Ü)
±µµÛ²Ä¤TÄæTextBox1´N¨q¥X»ù¿ú

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

TOP

·PÁ¤j¤jÀ°¦£¡I
²Ä¤@ºØ¬ã¨s¤F¦n¤@°}¤l¤~§Ë²M·¡¼gªk
²Ä¤GºØ¸Ñªk¤ÓºÖÂø¤F¨Ç~ÁÙ¦b§V¤O
(u_u).....µ{¦¡»yªk¯u ...
Jared µoªí©ó 2013-3-8 09:36


­Y¥H GBKEE¤j¤jªºµ{¦¡½X¡A¶È»Ý¥ý¹w³]

Private Sub UserForm_Initialize()
    With ListBox1
        .ColumnWidths = .Width * (2 / 3) & "," & .Width * (1 / 3)   'Åã¥ÜÄæ¼e«×
        .ColumnHeads = True                                         'Äæ¦ìÅã¥Ü ªíÀY
        .TextAlign = fmTextAlignCenter                              '¤å¦r¸m¤¤
        .ColumnCount = 2                                            'Åã¥ÜÄæ¦ì¼Æ  À\ÂI¤º®e,»ù¿ú ¨âÄæ
       .Font.Size = 12
       .AddItem (Sheet1.Cells(2, 3))
    End With
    With ComboBox1
        .Font.Size = 12
        .TextAlign = fmTextAlignCenter                              '¤å¦r¸m¤¤
        .Text = Sheet1.Cells(1, 1)
    End With
   
    ®MÀ\©w¸q
End Sub

¤£ª¾¹D¬O§_¬°±z­nªº

  ¦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

¦^´_ 9# mark15jill


    ·PÁ¤j¤jªº¨ó§U
¤w¸g¦³§ä¨ì§Ú·Q­nªº¼gªk¤F(^¤f^)
Jared

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD