- ©«¤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
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-8-9 17:42 ½s¿è
¦^´_ 3# Michelle-W
¼Ò²Õ¡G- Sub DA¥X¶Ô()
- Dim rng As Range
-
- With DA¥X¶Ô§ó·s.¦Cªí®Ø
- '.MultiSelect = fmMultiSelectMulti ' => 1 : ¦Cªí®Ø (ListBox1) Äݩʳ]©w¥i½Æ¿ï
- ' fmMultiSelectSingle 0 ¥u¯à¿ï¨ú¤@Ó±M®×( ¹w³])¡C
- ' fmMultiSelectSimple 1 «ö¤UªÅ¥ÕÁä©Î«ö¤U·Æ¹«Áä¡A¥i¥H¿ï¨ú¡B
- ' ¨ú®ø¿ï¨ú²M³æ¤¤ªº±M®×¡C
- ' fmMultiSelectExtended 2 «ö¤USHIFT ¨Ã«ö¤U·Æ¹«Áä¡A©Î«ö¤USHIFT
- ' ¨Ã«ö¤U¤@Ó¤è¦VÁä¡A¥i¿ï¨ú¤@Ó½d³ò¤ºªº©Ò¦³±M®×¡C«ö¤UCTRL ¨Ã
- ' «ö¤U·Æ¹«Áä¡A¥i¿ï¨ú©Î¨ú®ø¿ï¨ú¤@Ó±M®×¡C
- ' .Visible = False
- ' .ColumnHeads = True
- .ColumnCount = 5
- ' «ü©w¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ôªºÅã¥Ü¦æ¼Æ¡C
- .ColumnWidths = "60,80,60,80,60"
- ' «ü©w¦h¦æ¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ô¤¤ªº¦U¦æ¼e«×¡C
- End With
-
- With Sheets("¤H¤O¸ê®Æ®w")
- .Select
- ' Set rng = Range(.Range("C2:E" & .[E2].End(xlDown).Row), .Range("G2:G" & .[G2].End(xlDown).Row))
- 'Set rng = .Range("C2:E" & .[E2].End(xlDown).Row)
- Set rng = Range(.[C1], .[G1].End(xlDown))
- DA¥X¶Ô§ó·s.¦Cªí®Ø.RowSource = rng.Address
- End With
- Sheets("¾Þ§@¤¶±").Select
- DA¥X¶Ô§ó·s.Show
- End Sub
½Æ»s¥N½X ªþ¤W³Æµù ( ' ) ¥iÀ°§U§A©ú¥Õ¨ä¬°¦ó¤Î¨ä§@¥Î¡C
|
|