Board logo

標題: [發問] 為指定的工作表 排序?? [打印本頁]
作者: prince120101    時間: 2014-12-11 15:48     標題: 為指定的工作表 排序??

請問各位大大

下方<一>這段是加在<二>之前的 當ListBox 選擇 ” FPR-003” 執行時 會啟動該工作表
下方<二>是直接使用巨集錄製出來的程式
但這只能在指定的工作表 ("FPR-002") 才能執行
如果ListBox 選擇 其它("FPR-003")....等等 去執行動作時就無動作
想問這邊是要給 “FPR-002”,” FPR-003”…等等 給它一個變數值嗎??做一個迴圈更變??
請各位大大 指導 教學 一下 謝謝 @@~

<一>
  1. If ListBox1.Value = "FPR-002" Then Worksheets("FPR-002").Activate
  2. If ListBox1.Value = "FPR-003" Then Worksheets("FPR-003").Activate
  3. If ListBox1.Value = "FPR-006" Then Worksheets("FPR-006").Activate
  4.     If ListBox1.Value = "FPR-008" Then Worksheets("FPR-008").Activate
  5.     If ListBox1.Value = "FPR-011" Then Worksheets("FPR-011").Activate
  6.     If ListBox1.Value = "FPR-015" Then Worksheets("FPR-015").Activate
  7.     If ListBox1.Value = "FPR-018" Then Worksheets("FPR-018").Activate
  8.     If ListBox1.Value = "FPR-019" Then Worksheets("FPR-019").Activate
  9.     If ListBox1.Value = "FPR-020" Then Worksheets("FPR-020").Activate
  10.     If ListBox1.Value = "FPR-031" Then Worksheets("FPR-031").Activate
  11.     If ListBox1.Value = "FPR-034" Then Worksheets("FPR-034").Activate
  12.     If ListBox1.Value = "FPR-040" Then Worksheets("FPR-040").Activate
  13.     If ListBox1.Value = "RPR-017" Then Worksheets("RPR-017").Activate
  14.     If ListBox1.Value = "RPR-018" Then Worksheets("RPR-018").Activate
  15.     If ListBox1.Value = "NFPR-010" Then Worksheets("NFPR-010").Activate
複製代碼
<二>
  1. Range("A3:C3").Select
  2.             Range(Selection, Selection.End(xlDown)).Select
  3.             Range(Selection, Selection.End(xlDown)).Select
  4.             ActiveWorkbook.Worksheets("FPR-002").Sort.SortFields.Clear
  5.             ActiveWorkbook.Worksheets("FPR-002").Sort.SortFields.Add Key:=Range( _
  6.             "A4:A1001"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
  7.             xlSortNormal
  8.             With ActiveWorkbook.Worksheets("FPR-002").Sort
  9.             .SetRange Range("A3:C1001")
  10.             .Header = xlYes
  11.             .MatchCase = False
  12.             .Orientation = xlTopToBottom
  13.             .SortMethod = xlPinYin
  14.             .Apply
  15.             End With
  16.             Range("A4").Select
  17.             
  18.             'A:C的排序
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)