返回列表 上一主題 發帖

[發問] IF函數，代碼簡化問題

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-4-3 15:15 | 顯示全部帖子
回復 1# fusayloveme
  1. Option Explicit
  2. Private Sub CommandButton2_Click()
  3.     Range("S1").Resize(, 5) = Array("編號", "製程", "物料名稱", "代碼", "總加")
  4.     'Range("S1:W1") = Array("編號", "製程", "物料名稱", "代碼", "總加")   '加上註解 系統不會執行
  5.     With Range("S2:W600")
  6.         .Columns(1) = "=IF(R[1]C[-17]=R[0]C[-17],1,0)"
  7.         .Columns(2) = "=IF(R[1]C[-16]=R[0]C[-16],1,0)"
  8.         .Columns(3) = "=IF(R[1]C[-9]=R[0]C[-9],1,0)"
  9.         .Columns(4) = "=IF(R[1]C[-13]=R[0]C[-13],1,0)"
  10.         .Columns(5) = "=SUM(RC[-4]:RC[-1])"
  11.     End With
  12.     'Range("S2:S600") = "=IF(R[1]C[-17]=R[0]C[-17],1,0)"
  13.     'Range("T2:T600") = "=IF(R[1]C[-16]=R[0]C[-16],1,0)"
  14.     'Range("U2:U600") = "=IF(R[1]C[-9]=R[0]C[-9],1,0)"
  15.     'Range("V2:V600") = "=IF(R[1]C[-13]=R[0]C[-13],1,0)"
  16.     'Range("W2:W600") = "=SUM(RC[-4]:RC[-1])"
  17.     Range("W1").AutoFilter
  18.     ActiveSheet.Range("$S$1:$W$600").AutoFilter Field:=5, Criteria1:="4"
  19.     Columns("E:H").EntireColumn.Hidden = True
  20. End Sub
複製代碼

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題