請教Dtpicker改變的問題 - Excel程式區

[發問] 請教Dtpicker改變的問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-11-21 15:45 | 顯示全部帖子

回復 1# axingpeace
使用 ThisWorkbook的 Workbook_SheetActivate 預設觸動事件

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Workbooks("book2.xls").Sheets("sheet1").DTPicker2.Value = Year(Date) & "/" & Val(Me.Name) & "/" & Replace(Sh.Name, "sheet", "")
End Sub

複製代碼

請將程式碼複製到 11月.XLS 的 ThisWorkbook模組內

靜思自在 : 閒人無樂趣，忙人無是非。