返回列表 上一主題 發帖

[發問] (已解決)如何尋找關鍵字填入資料

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-5-10 17:29 | 顯示全部帖子
回復 2# freeffly

規則 改一下順序
  1. Sub xx()
  2. Ar = Sheets("規則").[B4:D9]
  3. With Sheets("資料")
  4.   R = .[A4].End(xlDown).Row
  5.   Range("N5:N" & R) = ""
  6.   Set Rng = .Range("A4:P" & R)
  7. End With
  8. For I = 1 To UBound(Ar)
  9.   Rng.AutoFilter Field:=14, Criteria1:="="
  10.   Rng.AutoFilter Field:=6, Criteria1:="=*" & Ar(I, 1) & "*", Operator:=xlAnd, Criteria2:="=*" & Ar(I, 2) & "*"
  11.   Range("N5:N" & R) = Ar(I, 3)
  12.   Rng.AutoFilter
  13. Next I
  14. 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-5-10 17:54 | 顯示全部帖子
回復 4# freeffly

條件1        條件2        對應結果
退休金                退休金
多提        退休金        退休金估計差額

以上2種情形  =>  退休金
也就是條件多的要放前面

你試試看就知道了

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
3#
發表於 2012-5-11 16:31 | 顯示全部帖子
回復 7# freeffly


Ar = Sheets("規則").Range("A4:D" & Sheets("規則").Range("D65536").End(xlUp).Row)

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題