返回列表 上一主題 發帖

不同的程式寫法

fangsc

帖子
81 
主題
27 
精華
0 
積分
151 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
Taiwan 
註冊時間
2012-6-7 
最後登錄
2020-11-27 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-14 22:17 | 只看該作者

不同的程式寫法

想請教以下這一段程式是否有執行起來比較快的寫法 ?
我只是想參考看看不同的程式寫法.
感謝...
  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
收藏 分享
fangac

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-6-16 10:59 | 只看該作者
回復 1# fangsc

一次隱藏
  1. With ActiveSheet
  2.   For fcsty = 4 To put_rownum
  3.     If .Cells(fcsty, "B") <> "" And Not .Cells(fcsty, "A") Like "*合計" Then
  4.        If .Cells(fcsty, hid_colnum) < put_maxnum And .Cells(fcsty, hid_colnum) > put_minnum Then
  5.           Rng = IIf(Rng = "", "A" & fcsty, Rng & "," & "A" & fcsty)
  6.        End If
  7.     End If
  8.   Next
  9. End With
  10. Rows("4:" & put_rownum).Hidden = False
  11. Range(Rng).EntireRow.Hidden = True
  12. End Sub
複製代碼

TOP

fangsc

帖子
81 
主題
27 
精華
0 
積分
151 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
Taiwan 
註冊時間
2012-6-7 
最後登錄
2020-11-27 

論壇贊助勳章
3#
發表於 2012-6-17 11:55 | 只看該作者
本帖最後由 GBKEE 於 2012-6-17 13:38 編輯

回復 2# register313


    執行有一些問題.
是不是需要宣告Rng變數, 但我加入了Rng變數宣告,也無效.
敬請指點. 謝謝.

Sales by Org.rar (875.75 KB)

fangac

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-6-17 20:48 | 只看該作者
Rng字串變數之字元數受限於255個字元
造成執行錯誤,不知有何方法可解決?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-6-17 20:55 | 只看該作者
回復 4# register313
  1. Sub ProductsQ1FP()
  2. Dim Rng As Range
  3. ' 12Q1Fcst Vs. Q1Plan
  4. ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Group").ClearAllFilters
  5. ActiveWindow.FreezePanes = False ' 取消凍結視窗
  6. Dim fcsty, put_rownum, hid_colnum, put_maxnum, put_minnum As Integer
  7. ActiveSheet.Rows.Hidden = False '取消所有的隱藏
  8. ActiveSheet.Range("c4").Select  '游標放在c4
  9. ActiveWindow.FreezePanes = True '凍結視窗
  10. ActiveWindow.ScrollColumn = 3   '凍結列與欄的視窗
  11. ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Group").AutoSort xlDescending, _
  12.     "加總 的Q1F-P"
  13. ' 樞紐分析以加總的Q1F-P做排序
  14. put_rownum = ActiveSheet.Range("a1").Value  '最後一列
  15. put_maxnum = ActiveSheet.Range("b1").Value  '大於
  16. put_minnum = ActiveSheet.Range("b2").Value  '小於
  17. hid_colnum = ActiveSheet.Range("f1").Value  '排序欄
  18. With ActiveSheet
  19.   For fcsty = 4 To put_rownum
  20.     If .Cells(fcsty, "B") <> "" And Not .Cells(fcsty, "A") Like "*合計" Then
  21.        If .Cells(fcsty, hid_colnum) < put_maxnum And .Cells(fcsty, hid_colnum) > put_minnum Then
  22.          If Rng Is Nothing Then
  23.             Set Rng = .Range("A" & fcsty)
  24.         Else
  25.             Set Rng = Union(Rng, .Range("A" & fcsty))
  26.         End If
  27.        End If
  28.     End If
  29.   Next
  30.   .Rows("4:" & put_rownum).Hidden = False
  31. End With
  32. Rng.EntireRow.Hidden = True
  33. End Sub
複製代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
6#
發表於 2012-6-17 21:06 | 只看該作者
回復 5# GBKEE

一次性動作

法1:語法簡單,但Rng字串受限255個字元(儲存格範圍受限制)
Rng = IIf(Rng = "", "A" & fcsty, Rng & "," & "A" & fcsty)

法2:語法較長,但Rng儲存格範圍不受限制
If Rng Is Nothing Then
    Set Rng = .Range("A" & fcsty)
Else
    Set Rng = Union(Rng, .Range("A" & fcsty))
End If
  
如此解釋是否正確

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2012-6-17 21:09 | 只看該作者
回復 6# register313
範圍如可預知    Rng = IIf(Rng = "", "A" & fcsty, Rng & "," & "A" & fcsty) 是簡單些

TOP

fangsc

帖子
81 
主題
27 
精華
0 
積分
151 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
Taiwan 
註冊時間
2012-6-7 
最後登錄
2020-11-27 

論壇贊助勳章
8#
發表於 2012-6-17 22:10 | 只看該作者
感謝二位指導.
程式看不太懂,基本功還是需要多練習,好好理解一下,可以應用在別的地方.
fangac

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題