返回列表 上一主題 發帖

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

fusayloveme

帖子
46 
主題
12 
精華
0 
積分
72 
點名
0  
作業系統
win7 
軟體版本
2007-EXCEL 
閱讀權限
20 
性別
男 
註冊時間
2011-12-29 
最後登錄
2020-3-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-3 14:54 | 只看該作者

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

請問各位大大，以下這些代碼是否能簡化呢!? 一直找不到感覺用不同的方法寫，讓我感覺有點挫折阿 ><，先謝過大大們....:)
  1. Private Sub CommandButton2_Click()

  3.     Range("S1").Select
  4.     ActiveCell.FormulaR1C1 = "編號"
  5.     Range("S2").Select
  6.     ActiveCell.FormulaR1C1 = "=IF(R[1]C[-17]=R[0]C[-17],1,0)"
  7.     Selection.AutoFill Destination:=Range("S2:S600"), Type:=xlFillDefault
  8.     Range("S2:S600").Select
  9.     Range("T1").Select
  10.     ActiveCell.FormulaR1C1 = "製程"
  11.     Range("T2").Select
  12.     ActiveCell.FormulaR1C1 = "=IF(R[1]C[-16]=R[0]C[-16],1,0)"
  13.     Selection.AutoFill Destination:=Range("T2:T600"), Type:=xlFillDefault
  14.     Range("T2:T600").Select
  15.     Range("U1").Select
  16.     ActiveCell.FormulaR1C1 = "物料名稱"
  17.     Range("U2").Select
  18.     ActiveCell.FormulaR1C1 = "=IF(R[1]C[-9]=R[0]C[-9],1,0)"
  19.     Selection.AutoFill Destination:=Range("U2:U600"), Type:=xlFillDefault
  20.     Range("U2:U600").Select
  21.     Range("V1").Select
  22.     ActiveCell.FormulaR1C1 = "代碼"
  23.     Range("V2").Select
  24.     ActiveCell.FormulaR1C1 = "=IF(R[1]C[-13]=R[0]C[-13],1,0)"
  25.     Selection.AutoFill Destination:=Range("V2:V600"), Type:=xlFillDefault
  26.     Range("V2:V600").Select
  27.     Range("W1").Select
  28.     ActiveCell.FormulaR1C1 = "總加"
  29.     Range("W2").Select
  30.     ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
  31.     Selection.AutoFill Destination:=Range("W2:W600"), Type:=xlFillDefault
  32.     Range("W1").Select
  33.     Selection.AutoFilter
  34.     ActiveSheet.Range("$S$1:$W$600").AutoFilter Field:=5, Criteria1:="4"
  35.     Columns("E:H").Select
  36.     Selection.EntireColumn.Hidden = True
  37. End Sub
複製代碼
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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

fusayloveme

帖子
46 
主題
12 
精華
0 
積分
72 
點名
0  
作業系統
win7 
軟體版本
2007-EXCEL 
閱讀權限
20 
性別
男 
註冊時間
2011-12-29 
最後登錄
2020-3-20 
3#
發表於 2012-4-3 16:09 | 只看該作者
回復 2# GBKEE
感謝GBKEE大!!!，又讓我學到不少! 超感恩^^

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題