- ©«¤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
![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¦^´_ 1# lpk187
°õ¦æªí³æ¦U¿¤¥«ªº¦æ¬F°Ï¦p¦³¬Û¦P¦WºÙ,§ë»¼µó¹D·|¦³¿ù»~.
§Ú¦í°ò¶©¤@²´¬Ý¥X¤¤¤s°Ï¨S¦³ ¤@¦¿µó. ¤¤¥¿°Ï¨S¦³¥Å¬w¸ô3¬q
À°§Aקï¤@¤U- Dim Sh As Worksheet, d As Object, d2 As Object, d3 As Object
- Private Sub UserForm_Initialize()
- Dim i As Single, Rng As Range
- Set Sh = Sheets("3+2¶l»¼°Ï¸¹ÀÉ")
- Set d = CreateObject("scripting.dictionary")
- Set Rng = Sh.Cells(2, "b")
- Do While Rng <> ""
- If d.exists(Rng.Value) = False Then
- Set d(Rng.Value) = Rng
- Else
- Set d(Rng.Value) = Union(Rng, d(Rng.Value))
- End If
- Set Rng = Rng.Offset(1)
- Loop
- ComboBox1.List = d.KEYS
- TextBox1 = ""
- End Sub
- Private Sub ComboBox1_Change()
- Dim R As Range
- TextBox1 = ""
- Set d2 = CreateObject("scripting.dictionary")
- For Each R In d(ComboBox1.Value).Offset(, 1).Cells
- If d2.exists(R.Value) = False Then
- Set d2(R.Value) = R
- Else
- Set d2(R.Value) = Union(R, d2(R.Value))
- End If
- Next
- ComboBox2.Clear
- ComboBox2.List = d2.KEYS
- End Sub
- Private Sub ComboBox2_Change()
- Dim R As Range
- TextBox1 = ""
- ComboBox3.Clear
- Set d3 = CreateObject("scripting.dictionary")
- If ComboBox2.ListIndex > -1 Then
- For Each R In d2(ComboBox2.Value).Offset(, 1).Cells
- If d3.exists(R.Value) = False Then
- Set d3(R.Value) = R
- Else
- Set d3(R.Value) = Union(R, d3(R.Value))
- End If
- Next
- ComboBox3.List = d3.KEYS
- End If
- End Sub
- Private Sub ComboBox3_Change()
- TextBox1 = ""
- If ComboBox3.ListIndex > -1 Then TextBox1.Text = Sh.Cells(d3(ComboBox3.Value).Row, "A")
- 'ListIndex = -1 Ȥ£¦bList¤¤
- End Sub
- Private Sub CommandButton1_Click()
- Dim Rng As Range
- If ComboBox3.ListIndex = -1 Then Exit Sub
- With Sheets("¤u§@ªí1")
- Set Rng = .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
- End With
- With Rng
- .Cells = TextBox1.Text
- .Cells(1, "b") = ComboBox1.Value
- .Cells(1, "c") = ComboBox2.Value
- .Cells(1, "d") = ComboBox3.Value
- .Cells(1, "e") = d3(ComboBox3.Value).Cells(1, "b")
- End With
- End Sub
½Æ»s¥N½X |
|