- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 142
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2026-7-16
                
|
回復 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事件應該比較適當 |
|
發表於 2011-7-7 15:08
| 