返回列表 上一主題 發帖

傳回指定工作表值及年資問題

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-1 20:14 | 只看該作者

傳回指定工作表值及年資問題

請大大們協助, 附檔中有說明, 謝謝!!

bb.rar (286.54 KB)
收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2011-4-6 11:34 | 只看該作者
回復 1# 周大偉


    試一下附檔是不是你要的東西~
    傳回指定工作表值及年資問題_修改.rar (290.06 KB)
學習才能提升自己

TOP

chi830

帖子
105 
主題
27 
精華
0 
積分
168 
點名
222  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2024-11-29 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
3#
發表於 2011-7-7 14:18 | 只看該作者
回復 2# hugh0620


hugh0620 先進您好,

因經驗太淺，尚無法下載附件
又想了解一下先進對於此問題的寫法，
是否可麻煩先進Mail給我呢?
[email protected]

非常感謝唷~

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-7-7 15:08 | 只看該作者
回復 2# hugh0620


VBA計算年資有自己的函數
DateDiff("yyyy", Target, Date)
不過樓主似乎是要得到年月的值
這可考慮Application.YearFrac([G2], Date, 1)這樣整數部分就是年數，小數部分*12取整數是月數
或DateDiff("m", [G2], Date)這樣得到總月數，除以12就得到年，除以12的餘數就是月

通常要選擇使用事件程序驅動
考慮到事件的出口是一個很重要的問題
當你第一行IF Target.Column>1 Then Exit sub
這樣你的Select Case 就不會觸發到G欄位
而且不建議使用SelectionChange事件
用Change事件應該比較適當
學海無涯_不恥下問

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題