標題: [發問] 請教Dtpicker改變的問題 [打印本頁]

---

作者: axingpeace    時間: 2010-11-21 15:09     標題: 請教Dtpicker改變的問題

想麻煩版上高手
教教我這個入門的新手

可否當點選sheet(1)時，BOOK2的DTPICKER內的dd變成選取日期
當選擇sheet1時，Book2 sheet1 DTPICKER日期為2010/11/01
當選擇sheet2時，Book2 sheet1 DTPICKER日期為2010/11/02
年分傳送當年的值
月份傳送workbook的命名"11"月份

麻煩大家了，謝謝！

---

作者: GBKEE    時間: 2010-11-21 15:45

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

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

複製代碼

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

---

作者: axingpeace    時間: 2010-11-21 21:51

感謝版主GBKEE
問題已解決
這樣工作上可以方便許多了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)