- 帖子
- 25
- 主題
- 7
- 精華
- 0
- 積分
- 53
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-12-4
- 最後登錄
- 2018-6-6
|
請問各位大大
下方<一>這段是加在<二>之前的 當ListBox 選擇 ” FPR-003” 執行時 會啟動該工作表
下方<二>是直接使用巨集錄製出來的程式
但這只能在指定的工作表 ("FPR-002") 才能執行
如果ListBox 選擇 其它("FPR-003")....等等 去執行動作時就無動作
想問這邊是要給 “FPR-002”,” FPR-003”…等等 給它一個變數值嗎??做一個迴圈更變??
請各位大大 指導 教學 一下 謝謝 @@~
<一>- 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
- 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的排序
|
|
發表於 2014-12-11 15:48
| 
