jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-21 00:19 | 只看該作者

[發問] 有關 Calendar1 的使用 [已解決]

本帖最後由 jimmyhk 於 2011-9-23 13:37 編輯

請問有沒有辦法控制彈出日曆,
於點選日期後輸出的值是 yyyymmdd,
現在它只能出 yyyymd <- 如是個位數月份及個位數日期.

Private Sub Calendar1_Click()
Calendar1.Visible = False
Label24.Caption = Calendar1.Year & Calendar1.Month & Calendar1.Day
Sheets("Input").Range("A23").Value = Label24.Caption
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Calendar1.Visible = True
End Sub

複製代碼

暫時用了以下方法解決

Private Sub Calendar1_Click()
Calendar1.Visible = False
If Calendar1.Month < 10 Then
m = "0" & Calendar1.Month
Else
m = Calendar1.Month
End If
If Calendar1.Day < 10 Then
d = "0" & Calendar1.Day
Else
d = Calendar1.Day
End If
Label24.Caption = Calendar1.Year & m & d
Sheets("Input").Range("A23").Value = Label24.Caption
End Sub

複製代碼

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 2011-9-21 21:15 | 只看該作者

回復 1# jimmyhk
2003版不支援 Calendar 了
試試看:

Label24.Caption = Format(Calendar1.Value, "YYYY/MM/DD")

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-9-21 21:51 | 只看該作者

回復 2# GBKEE

Calendar物件並非不支援，只因您未安裝MS ACCESS緣故
安裝日曆控件

學海無涯_不恥下問

TOP

jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

4^#

發表於 2011-9-21 23:00 | 只看該作者

回復 2# GBKEE

原來只是加句就可以做到.
程式碼比我原做的更簡單~
又學到東西了.

謝謝

TOP

jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

5^#

發表於 2011-9-21 23:02 | 只看該作者

回復 2# GBKEE

另有一點小知識.
只要在 2003 上匯入 MSCAL.OCX 這個檔案就可以在 2003 上執行小日曆的了~

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

6^#

發表於 2011-9-22 07:12 | 只看該作者

回復 3# Hsieh
感謝告知,MS ACCESS 我沒安裝.
回復 5# jimmyhk
學習了

TOP

jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

7^#

發表於 2011-9-22 11:58 | 只看該作者

回復 6# GBKEE

這個是很簡單的方法,
只是正在想這樣使用會否與侵權有衝突.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

8^#

發表於 2011-9-22 15:02 | 只看該作者

回復 7# jimmyhk
只是正在想這樣使用會否與侵權有衝突
請問會有什麼侵權,衝突

TOP

jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

9^#

發表於 2011-9-22 17:06 | 只看該作者

回復 8# GBKEE

因為原定某些 OFFICE 版本沒有 MSCAL.OCX,
(要有包括 Access/安裝 Access 的版本才有)
現在先到一部有 Access license 的電腦抄 MSCAL.OCX 到一部沒有 Access License 的電腦內,
好像會有問題. (以公司用戶來看)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

10^#

發表於 2011-9-22 20:14 | 只看該作者

本帖最後由 GBKEE 於 2011-9-22 20:30 編輯

回復 9# jimmyhk
到3樓 Hsieh 超版所指的安裝日曆控件下載即可
或改用 2003的 DTPicker
如圖 : 勾選 Microsoft Date and Time Picker Control 6.0

TOP