返回列表 上一主題 發帖

不同的程式寫法

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
3#
發表於 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

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題