[發問] 日曆控制項如何設置成，在[目前儲存格]寫入指定日曆的日期?

想請問各位前輩
日曆控制項如何將目前儲存格寫入，選取日曆後的日期?

目前連指定儲存格寫入日期都寫不出來...

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

2^#

發表於 2014-8-28 23:01 | 只看該作者

本帖最後由 luhpro 於 2014-8-28 23:18 編輯

想請問各位前輩
日曆控制項如何將目前儲存格寫入，選取日曆後的日期?
目前連指定儲存格寫入日期都寫不出 ...
jackson7015 發表於 2014-8-28 17:00

我拿我以前寫好的程式碼來改:
月曆控制項 : mvDate
清除日期按鈕 : cbClrDate

執行方式:
1. 對 [A1] 儲存格按滑鼠右鍵, 啟動月曆控制項與清除日期按鈕.
2-1. 若此時點擊清除日期按鈕會清空目前儲存格, 然後隱藏控制項與按鈕.
2-2. 若此時在月曆控制項點擊任一日期, 會將該日期設定到目前儲存格, 然後隱藏控制項與按鈕.

以下程式碼放在 Sheets("工作表1") (月曆控制項與清除日期按鈕都放在此工作表內)

Private Sub mvDate_DateClick(ByVal DateClicked As Date)
rTar = DateClicked ' 設定日期到目前儲存格
mvDate.Visible = False ' 隱藏日曆表
cbClrDate.Visible = False ' 隱藏清除日期鈕
End Sub
Private Sub cbClrDate_Click()
rTar = "" ' 清空目前儲存格
mvDate.Visible = False
cbClrDate.Visible = False
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Row = 1 And .Column = 1 Then ' 對 [A1} 儲存格按滑鼠右鍵
mvOpenDate.Visible = True ' 顯示日曆表
cbClearDate.Visible = True ' 顯示清除日期鈕
Cancel = True ' 不繼續執行原先按滑鼠右鍵會執行的功能
Exit Sub
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set rTar = Target ' 設定 rTar 為目前儲存格
End Sub

複製代碼

以下程式碼放在 ThisWorkBook :

Private Sub Workbook_Open()
With Sheets("工作表1")
rTar = ""
With .mvDate
.Visible = True ' 顯示日曆表
.Value = Date ' 設定預設值為今天
.Visible = False ' 隱藏日曆表
End With
.cbClrDate.Visible = False ' 隱藏清除日期鈕
End With
End Sub

複製代碼

以下程式碼放在 Module :

Public rTar As Range
Option Explicit

複製代碼

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

3^#

發表於 2014-8-29 16:09 | 只看該作者

回復 2# luhpro
感謝luhpro大大的幫忙

因為自己電腦終沒有Access，所以我的月曆控制項目是另外載入的，來源則是由2007中取出的
宣告模組是DTPicker1_CallbackKeyDown
所以不曉得怎麼編寫

因為控制項目內沒有月曆控制項和清除日期按鈕
帶入大大提供的公式，執行程序沒有反應
而使用網路上其他類似的編寫，也是有錯誤

不曉得是否有其他前備有類似經驗

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

4^#

發表於 2014-8-30 09:20 | 只看該作者

本帖最後由 luhpro 於 2014-8-30 09:27 編輯

回復 3# jackson7015
試試看:

cbClrDate : 清除日期按鈕
dtpDate : 日曆表

以下程式碼放在 ThisWorkBook :

Private Sub Workbook_Open()
With Sheets("工作表1")
Set rTar = [A2]
With .dtpDate
.Visible = True ' 顯示日曆表
.Value = Date ' 設定預設值為今天
.Visible = False ' 隱藏日曆表
End With
.cbClrDate.Visible = False ' 隱藏清除日期鈕
End With
End Sub

複製代碼

以下程式碼放在 Module :

Public rTar As Range
Option Explicit

複製代碼

以下程式碼放在 Sheets("工作表1") (月曆控制項與清除日期按鈕都放在此工作表內) :

Private Sub dtpDate_Change()
SetDate
End Sub
Private Sub dtpDate_CloseUp()
SetDate
End Sub
Private Sub cbClrDate_Click()
rTar = "" ' 清空目前儲存格
dtpDate.Visible = False
cbClrDate.Visible = False
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Row = 1 And .Column = 1 Then ' 對 [A1} 儲存格按滑鼠右鍵
dtpDate.Visible = True ' 顯示日曆表
cbClrDate.Visible = True ' 顯示清除日期鈕
Cancel = True ' 不繼續執行原先按滑鼠右鍵會執行的功能
Exit Sub
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Row <> 1 And .Column <> 1 Then
Set rTar = Target ' 設定 rTar 為目前儲存格
End If
End With
End Sub
Private Sub SetDate()
With rTar
.Value = dtpDate ' 設定日期到目前儲存格
.NumberFormat = "yyyy/m/d;@"
End With
cbClrDate.Visible = False ' 隱藏清除日期鈕
dtpDate.Visible = False ' 隱藏日曆表
End Sub