- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# v03586 - ThisWorkbook:
- Option Explicit
- Private Sub Workbook_Open()
- Dim rng As Range, cts As Integer
- Dim sh As Worksheet, dic As Object
- Dim m As Variant
-
- Set dic = CreateObject("scripting.dictionary")
- Set sh = Sheets("¸ê®Æ®w")
- With Sheets("½d¨Ò´ú¸Õ")
- With .ComboBox1
- .Clear
- ' .Value = ""
- .ColumnCount = 1
- .ColumnWidths = "80"
- .ColumnHeads = False
-
- For Each rng In Range(sh.[A2], sh.[A2].End(xlDown))
- dic(rng.Value) = rng.Value
- Next
-
- m = dic.Items ' ¦r¨å¦s¤J¨ì m ÅܼƤ¤
- For cts = 0 To UBound(dic.Keys)
- .AddItem m(cts)
- Next
- .Value = "" ' m(0) = "A"
- End With
- End With
- End Sub
½Æ»s¥N½X- ¤u§@ªí3 (½d¨Ò´ú¸Õ)¡G
- Private Sub ComboBox1_Change()
- Dim sh As Range, c As Variant
-
- Sheets("½d¨Ò´ú¸Õ").[A3:I65535].Clear
- Set sh = Sheets("½d¨Ò´ú¸Õ").[A3]
- ' ³oÓ½d¨Ò·|¦b²Ä¤@±i¤u§@ªí¤Wªº A1:A500 ½d³ò¤º´M§äȬ° 2 ªº©Ò¦³Àx¦s®æ¡A
- ' ¨Ã±N³o¨ÇÀx¦s®æªºÈÅÜ§ó¬° 5¡C
- With Sheets("¸ê®Æ®w").Range("A2:A" & [A2].End(xlDown).Row)
- Set c = .Find(ComboBox1.Value, LookIn:=xlValues)
- If Not c Is Nothing Then
- firstAddress = c.Address
- Do
- c.Resize(, 5).Copy sh
- sh.Offset(0, 8) = c.Offset(0, 6)
-
- Set sh = sh.Offset(1)
- Set c = .FindNext(c)
- Loop While Not c Is Nothing And c.Address <> firstAddress
- End If
- End With
- End Sub
½Æ»s¥N½X |
|