返回列表 上一主題 發帖

[發問] VBA內函數使用

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-19 21:26 | 只看該作者

[發問] VBA內函數使用

請問在VBA內如何將下列程式擴展至D2:last row:


Range("D2").Formula = Application.Evaluate("INDEX('Attendance Report'!$A:$AZ,MATCH($B2,'Attendance Report'!$O$4:$O$100,0)+10,MATCH($C2,'Attendance Report'!$3:$3,0))")

請賜教!
收藏 分享

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
2#
發表於 2015-8-20 06:44 | 只看該作者
本帖最後由 Hsieh 於 2015-8-20 09:09 編輯

Range("D2")= "=INDEX('Attendance Report'!$A:$AZ,MATCH($B2,'Attendance Report'!$O$4:$O$100,0)+10,MATCH($C2,'Attendance Report'!$3:$3,0))

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2015-8-20 09:24 | 只看該作者
回復 1# missbb
last row的取得要看如何判斷的到
以範圍內輸入公式，其參數的參照使用R1C1形式會好一些
Range("D2:D" & last row).FormulaR1C1 = "=INDEX('Attendance Report'!C1:C52,MATCH(RC2,'Attendance Report'!R4C15:R100C15,0)+10,MATCH(RC3,'Attendance Report'!R3,0))"
學海無涯_不恥下問

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
4#
發表於 2015-8-20 22:08 | 只看該作者
回復 3# Hsieh


        感謝賜教!

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
5#
發表於 2015-8-20 23:12 | 只看該作者
多謝版大Hsieh指導
我的方法為求能與直接入公式於儲存格接近而做, 然後要做 [範圍].Filldown 來填滿公式,實在是冗長了。

TOP

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