- ©«¤l
- 25
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-12-4
- ³Ì«áµn¿ý
- 2018-6-6
|
½Ð°Ý¦U¦ì¤j¤j
¤U¤è<¤@>³o¬q¬O¥[¦b<¤G>¤§«eªº ·íListBox ¿ï¾Ü ¡¨ FPR-003¡¨ °õ¦æ®É ·|±Ò°Ê¸Ó¤u§@ªí
¤U¤è<¤G>¬Oª½±µ¨Ï¥Î¥¨¶°¿ý»s¥X¨Óªºµ{¦¡
¦ý³o¥u¯à¦b«ü©wªº¤u§@ªí ("FPR-002") ¤~¯à°õ¦æ
¦pªGListBox ¿ï¾Ü ¨ä¥¦("FPR-003")....µ¥µ¥ ¥h°õ¦æ°Ê§@®É´NµL°Ê§@
·Q°Ý³oÃä¬Onµ¹ ¡§FPR-002¡¨,¡¨ FPR-003¡¨¡Kµ¥µ¥ µ¹¥¦¤@ÓÅܼÆȶÜ??°µ¤@Ó°j°é§óÅÜ??
½Ð¦U¦ì¤j¤j «ü¾É ±Ð¾Ç ¤@¤U ÁÂÁ @@~
<¤@>- If ListBox1.Value = "FPR-002" Then Worksheets("FPR-002").Activate
- If ListBox1.Value = "FPR-003" Then Worksheets("FPR-003").Activate
- If ListBox1.Value = "FPR-006" Then Worksheets("FPR-006").Activate
- If ListBox1.Value = "FPR-008" Then Worksheets("FPR-008").Activate
- If ListBox1.Value = "FPR-011" Then Worksheets("FPR-011").Activate
- If ListBox1.Value = "FPR-015" Then Worksheets("FPR-015").Activate
- If ListBox1.Value = "FPR-018" Then Worksheets("FPR-018").Activate
- If ListBox1.Value = "FPR-019" Then Worksheets("FPR-019").Activate
- If ListBox1.Value = "FPR-020" Then Worksheets("FPR-020").Activate
- If ListBox1.Value = "FPR-031" Then Worksheets("FPR-031").Activate
- If ListBox1.Value = "FPR-034" Then Worksheets("FPR-034").Activate
- If ListBox1.Value = "FPR-040" Then Worksheets("FPR-040").Activate
- If ListBox1.Value = "RPR-017" Then Worksheets("RPR-017").Activate
- If ListBox1.Value = "RPR-018" Then Worksheets("RPR-018").Activate
- If ListBox1.Value = "NFPR-010" Then Worksheets("NFPR-010").Activate
½Æ»s¥N½X <¤G>- Range("A3:C3").Select
- Range(Selection, Selection.End(xlDown)).Select
- Range(Selection, Selection.End(xlDown)).Select
- ActiveWorkbook.Worksheets("FPR-002").Sort.SortFields.Clear
- ActiveWorkbook.Worksheets("FPR-002").Sort.SortFields.Add Key:=Range( _
- "A4:A1001"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
- xlSortNormal
- With ActiveWorkbook.Worksheets("FPR-002").Sort
- .SetRange Range("A3:C1001")
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
- Range("A4").Select
-
- 'A:Cªº±Æ§Ç
½Æ»s¥N½X |
|