c_c_lai

¦^´_ 1# Michelle-W
½Ð°Ñ¦Ò ½Ð°Ý¥X¶Ô¨t²Î³]­p

c_c_lai

¦^´_ 3# Michelle-W

1. Private Sub ¦Cªí®Ø_Change()
   
2.     Dim AA(), xi As Integer
   
3.    
   
4.     With ¦Cªí®Ø
   
5.         For xi = 0 To .ListCount - 1
   
6.             '  §PÂ_¦Cªí®Ø (ListBox1) ¬O§_¦³³QÂI¿ï
   
7.             If .Selected(xi) = True Then
   
8.                 '  ¨ú¥X¸Ó¦æ¤§¼Æ¾Ú¡A¦s¤J AA °}¦C¤¤
   
9.                 AA = Application.Index(¦Cªí®Ø.List, xi + 1)
   
10.                 ' °}¦C¤¤©â¥X«ü©wªº¤¸¯À°}¦C (³o¸Ì¬O¤@ºû°}¦C)
    
11.                 ¤u¸¹.Value = AA(1)
    
12.                 ©m¦W.Value = AA(2)
    
13.                 ²Õ§O.Value = AA(3)
    
14.                 ¥X¶Ô¯¸§O.Value = AA(5)
    
15.                 '  ¦P®É¦s¤J     ¥X¶Ô¯¸§O¡B¥X¶Ô®É¼Æ¡B¥H¤Î§ïÅÜ¥i¾Þ¾÷¼Æ¤§ºX¼Ð
    
16.                 comEnable ¥X¶Ô¯¸§O.Value, IIf(¥X¶Ô¯¸§O.Value = "DA", True, False)
    
17.                 Exit For
    
18.             End If
    
19.         Next
    
20.     End With
    
21.    
    
22.     overTime
    
23. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 3# Michelle-W
¼Ò²Õ¡G

1. Sub DA¥X¶Ô()
   
2.     Dim rng As Range
   
3.    
   
4.     With DA¥X¶Ô§ó·s.¦Cªí®Ø
   
5.         '.MultiSelect = fmMultiSelectMulti ' => 1 : ¦Cªí®Ø (ListBox1) Äݩʳ]©w¥i½Æ¿ï
   
6.         ' fmMultiSelectSingle 0 ¥u¯à¿ï¨ú¤@­Ó±M®×( ¹w³])¡C
   
7.         ' fmMultiSelectSimple 1 «ö¤UªÅ¥ÕÁä©Î«ö¤U·Æ¹«Áä¡A¥i¥H¿ï¨ú¡B
   
8.         ' ¨ú®ø¿ï¨ú²M³æ¤¤ªº±M®×¡C
   
9.         ' fmMultiSelectExtended 2 «ö¤USHIFT ¨Ã«ö¤U·Æ¹«Áä¡A©Î«ö¤USHIFT
   
10.         ' ¨Ã«ö¤U¤@­Ó¤è¦VÁä¡A¥i¿ï¨ú¤@­Ó½d³ò¤ºªº©Ò¦³±M®×¡C«ö¤UCTRL ¨Ã
    
11.         ' «ö¤U·Æ¹«Áä¡A¥i¿ï¨ú©Î¨ú®ø¿ï¨ú¤@­Ó±M®×¡C
    
12.         ' .Visible = False
    
13.         ' .ColumnHeads = True
    
14.         .ColumnCount = 5
    
15.         ' «ü©w¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ôªºÅã¥Ü¦æ¼Æ¡C
    
16.         .ColumnWidths = "60,80,60,80,60"
    
17.         ' «ü©w¦h¦æ¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ô¤¤ªº¦U¦æ¼e«×¡C
    
18.     End With
    
19.    
    
20.     With Sheets("¤H¤O¸ê®Æ®w")
    
21.         .Select
    
22.         '  Set rng = Range(.Range("C2:E" & .[E2].End(xlDown).Row), .Range("G2:G" & .[G2].End(xlDown).Row))
    
23.         'Set rng = .Range("C2:E" & .[E2].End(xlDown).Row)
    
24.         Set rng = Range(.[C1], .[G1].End(xlDown))
    
25.         DA¥X¶Ô§ó·s.¦Cªí®Ø.RowSource = rng.Address
    
26.     End With
    
27. 
    
28.     Sheets("¾Þ§@¤¶­±").Select
    
29.     DA¥X¶Ô§ó·s.Show
    
30. End Sub

½Æ»s¥N½X

ªþ¤W³Æµù ( ' ) ¥iÀ°§U§A©ú¥Õ¨ä¬°¦ó¤Î¨ä§@¥Î¡C

¤U¸ü (27.63 KB)

2016-8-9 17:42

c_c_lai

¦^´_ 9# Michelle-W
                Range("A1").Select
                Selection.End(xlUp).Select
                Sheets("sheet1").Range("a" & ActiveCell.Row + 1) = AA

§A³o¤T¦æ«üªº¬O¡H