¤U©Ô¦¡n¦p¦ó¿ï¾Ü«á·|¦Û°Ê±a¥X¨ä¥Lªí³æ°T®§
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¤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Ó¥\¯à¤£ª¾¹Dn«ç»ò¼g¡A§Æ±æ¤j¤j¯à¸Ñ´b¡I
·P¿E¤£ºÉ>"< |
|
Jared
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 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µøµ¡!
´ú¸ÕÀÉ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
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-3-7 14:56 ½s¿è
¦^´_ 3# Jared
¸Õ¸Õ¬Ý³o¬O§_¦p§A©Ò»Ý- 'ListIndex = -1: ©Ò¿ïªº¤£¦b List²M³æ¤º
- Private Sub ComboBox1_Change()
- If ComboBox1.ListIndex > -1 Then
- À\ÂI
- Else
- ComboBox2 = ""
- End If
- End Sub
- Private Sub ComboBox2_Change()
- TextBox1 = ""
- If ComboBox2.ListIndex > -1 Then TextBox1 = ComboBox2.List(ComboBox2.ListIndex, 1)
- End Sub
- Private Sub CommandButton1_Click()
- Dim A
- If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then MsgBox "À\ÂI¤º®e »Ý»ô¥þ !!": Exit Sub
- With Sheet10
- .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3).Value = Array(ComboBox1, ComboBox2, TextBox1)
- End With
- 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.List = Array("¤@¸¹À\", "¤G¸¹À\", "¤T¸¹À\")
- End Sub
- Private Sub À\ÂI()
- With ComboBox2
- .Clear
- Select Case ComboBox1.ListIndex
- Case 0 '¤@¸¹À\
- .AddItem "º~³ù¡BÁ¦±ø¡B¥i¼Ö"
- .List(.ListCount - 1, 1) = 50 'ComboBox2ªº²Ä2Äæ ¨SÅã¥Ü¥X¨Ó
- .AddItem "º~³ù¡BÁ¦»æ¡B¥i¼Ö"
- .List(.ListCount - 1, 1) = 49
- .AddItem "º~³ù¡BÁ¦»æ¡B¬õ¯ù"
- .List(.ListCount - 1, 1) = 48
- Case 1 '¤G¸¹À\
- .AddItem "Âû¶ô¡BÁ¦±ø¡B¥i¼Ö"
- .List(.ListCount - 1, 1) = 47 'ComboBox2ªº²Ä2Äæ ¨SÅã¥Ü¥X¨Ó
- .AddItem "Âû¶ô¡BÁ¦»æ¡B¥i¼Ö"
- .List(.ListCount - 1, 1) = 46
- .AddItem "Âû¶ô¡BÁ¦»æ¡B¬õ¯ù"
- .List(.ListCount - 1, 1) = 45
- Case 2 '¤T¸¹À\
- .AddItem "«p¤g¥q¡BÁ¦±ø¡B¥i¼Ö"
- .List(.ListCount - 1, 1) = 44 'ComboBox2ªº²Ä2Äæ ¨SÅã¥Ü¥X¨Ó
- .AddItem "«p¤g¥q¡BÁ¦»æ¡B¥i¼Ö"
- .List(.ListCount - 1, 1) = 43
- .AddItem "«p¤g¥q¡BÁ¦»æ¡B¬õ¯ù"
- .List(.ListCount - 1, 1) = 42
- End Select
- End With
- TextBox1 = ""
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 4# GBKEE
·PÁ¤j¤jÀ°¦£(0¤f0)~¯u¬O¤Ó±j¤F
¤£¹L¦pªG§Ú¬OnÂI¿ï¤@¸¹À\¡AÀ\ÂI©M»ù¿ú³£·|¦Û°Ê¶]¥X¨Ó
³o¬OnקïþÓ³¡¥÷©O(@@)? |
|
Jared
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¥»©«³Ì«á¥Ñ mark15jill ©ó 2013-3-7 16:44 ½s¿è
¦^´_ GBKEE
·PÁ¤j¤jÀ°¦£(0¤f0)~¯u¬O¤Ó±j¤F
¤£¹L¦pªG§Ú¬OnÂ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
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-3-7 18:22 ½s¿è
¦^´_ 5# Jared
ªþÀɸոլÝ
test.rar (25.17 KB)
- 'ListIndex = -1: ©Ò¿ïªº¤£¦b List²M³æ¤º
- Private Sub ComboBox1_Change()
- If ComboBox1.ListIndex > -1 Then
- À\ÂI
- Else
- ListBox1.RowSource = ""
- End If
- End Sub
- Private Sub CommandButton1_Click()
- Dim A
- If ComboBox1.ListIndex = -1 Or Me.ListBox1.ListIndex = -1 Then MsgBox "À\ÂI¤º®e »Ý»ô¥þ !!": Exit Sub
- With Sheet10
- .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3).Value = Array(ComboBox1, ListBox1.List(ListBox1.ListIndex, 0), ListBox1.List(ListBox1.ListIndex, 1))
- End With
- End Sub
- Private Sub CommandButton2_Click()
- test4.Hide
- End Sub
- Private Sub CommandButton3_Click()
- ComboBox1 = ""
- End Sub
- 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
- End With
- With ComboBox1
- .Font.Size = 12
- .TextAlign = fmTextAlignCenter '¤å¦r¸m¤¤
- End With
- ®MÀ\©w¸q
- End Sub
- Private Sub À\ÂI()
- With ListBox1
- .RowSource = "" '²M°£ListBox ²M³æªº¨Ó·½
- .RowSource = Sheets("®MÀ\").Names(ComboBox1.Value).RefersTo '«ü©wListBox ²M³æªº¨Ó·½ A1:C5 ½d³òªº§Î¦¡(¤£¬O R1C1)
- End With
- End Sub
- Private Sub ®MÀ\©w¸q() '©w¸q¦WºÙ
- Dim R As Variant, i As Integer
- With Sheets("®MÀ\")
- For Each R In .Names
- R.Delete '²M°£®MÀ\ªº©w¸q¦WºÙ
- Next
- Set R = .[A1]
- i = 1
- Do While .Cells(i, "A") <> ""
- Set R = R.End(xlToRight)
- ComboBox1.AddItem .Cells(i, "A")
- .Names.Add Name:=.Cells(i, "A"), RefersTo:=.Range(R.CurrentRegion.Rows(2), R.CurrentRegion.Rows(R.CurrentRegion.Rows.Count))
- '.Names.Add ·s¼W ®MÀ\ªº©w¸q¦WºÙ
- i = i + 1
- Set R = R.End(xlToRight)
- Loop
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
·PÁ¤j¤jÀ°¦£¡I
²Ä¤@ºØ¬ã¨s¤F¦n¤@°}¤l¤~§Ë²M·¡¼gªk
²Ä¤GºØ¸Ñªk¤ÓºÖÂø¤F¨Ç~ÁÙ¦b§V¤O
(u_u).....µ{¦¡»yªk¯uªº¬O°ª²`²ö´ú
¥Dn¬O·Qn¤U©Ô¦¡¿ï³æComboBox1ÂI¿ï§¹²Ä¤@¸¹À\
¨ºÀ\ÂI¤º®eComboBox2·|ª½±µÅã¥Ü²Ä¤@µ§(¦pªG¤£¬O¦Û¤v·Qnªº¡A¦b¥h°µ¨ä¥L¿ï¾Ü)
±µµÛ²Ä¤TÄæTextBox1´N¨q¥X»ù¿ú
²Ä¤@ºØ¼gªk¥Ø«e´N¬O¿ï¾Ü§¹²Ä¤@ÓComboBox1
²Ä¤Gӿﶵ·|¥ý©IÀ³ªÅ¥Õ
¥u¬O·QnÅý¥L´£«e¥ýÅã¥Ü¥X¨Ó²Ä¤@¶µ
¬On«ç»ò§ï©O? ¡]@@¡^ |
|
Jared
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
·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§_¬°±znªº |
|
¦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
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 9# mark15jill
·PÁ¤j¤jªº¨ó§U
¤w¸g¦³§ä¨ì§Ú·Qnªº¼gªk¤F(^¤f^) |
|
Jared
|
|
|
|
|