- 帖子
- 81
- 主題
- 27
- 精華
- 0
- 積分
- 151
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 女
- 來自
- Taiwan
- 註冊時間
- 2012-6-7
- 最後登錄
- 2020-11-27
|
不同的程式寫法
想請教以下這一段程式是否有執行起來比較快的寫法 ?
我只是想參考看看不同的程式寫法.
感謝...
For fcsty = 4 To put_rownum
If .Cells(fcsty, "B") <> "" And Not .Cells(fcsty, "A") Like "*合計" Then
' 增加判斷 "B"欄為空白, 或是保留 "合計" 的列.
If .Cells(fcsty, hid_colnum) < put_maxnum And .Cells(fcsty, hid_colnum) > put_minnum Then
.Rows(fcsty).Hidden = True
End If
End If
Next
End With
_________________________________________
整段程式
Sub ProductsQ1FP()
ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Group").ClearAllFilters
ActiveWindow.FreezePanes = False ' 取消凍結視窗
Dim put_rownum As Integer
Dim hid_colnum As Integer
ActiveSheet.Rows.Hidden = False '取消所有的隱藏
ActiveSheet.Range("c4").Select '游標放在c4
ActiveWindow.FreezePanes = True '凍結視窗
ActiveWindow.ScrollColumn = 3 '凍結列與欄的視窗
ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Group").AutoSort xlDescending, _
"加總 的Q1F-P"
put_rownum = ActiveSheet.Range("c2").Value '最後一列
put_maxnum = ActiveSheet.Range("b1").Value '大於
put_minnum = ActiveSheet.Range("b2").Value '小於
hid_colnum = ActiveSheet.Range("f1").Value '排序欄
With ActiveSheet
.Cells(4, hid_colnum).Select '游標放置點
For fcsty = 4 To put_rownum
If .Cells(fcsty, "B") <> "" And Not .Cells(fcsty, "A") Like "*合計" Then
' 增加判斷 "B"欄為空白, 或是保留 "合計" 的列.
If .Cells(fcsty, hid_colnum) < put_maxnum And .Cells(fcsty, hid_colnum) > put_minnum Then
.Rows(fcsty).Hidden = True
End If
End If
Next
End With
End Sub |
|
發表於 2012-6-14 22:17
| 
