請問2010輸入日期

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

14^# 跳轉到 »

發表於 2011-10-8 06:04 | 只看該作者

回復 luhpro
但想再請教您的是如果是6排整的欄位需要使用上月曆控制項，程式碼該如何修改呢?
例如：要設定在欄位 B, C, D, E, F, D下所有的欄位都可以直接點選使用。
Rachel 發表於 2011-10-8 01:38

嗯..., 有兩種寫法 :

  03. If .Column > 1 and .Column < 8 Then

或 (調整第 3 行到第 5 行及第 15 行的內容)

  原 03. Select Case .Column
         Case 2 To 7
  原 04.    Calendar1.Visible = True
         Case Else
      End Select
  原 05. (Else 刪除)
  原 15. (End If 刪除)

第一種方式適合 "單一組" 連續欄位範圍的處理,
而第二種方式則彈性比較大. (用法請參閱 VBA說明 -> Select Case 陳述式)

比較需要留意的是 :

第 1 種寫法中因為第 3 行與第 6 行互斥,(Else 功能等同 Not)
  03. If .Column > 1 and .Column < 8 Then
  04. Calendar1.Visible = True
  05. Else
  06. Select Case "C" + Trim(.Column) + "R" + Trim(.Row)

  14. End Select
  15. End If
所以若兩者有重疊的區域且都應觸發到條件時,
底下第 6 行中的指令永遠都不會執行到.

而第二種寫法則不論前面是否有執行,
只要條件符合照樣會執行到,
有可能會出現執行兩次的情形,
故應留意範圍是否有重疊而需做例外處理.

TOP

Rachel

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2007
閱讀權限: 10
性別: 女
來自: TAIPEI
註冊時間: 2011-10-1
最後登錄: 2011-10-8

13^#

發表於 2011-10-8 01:38 | 只看該作者

回復 12# luhpro

非常感恩大大的回覆~! 但想再請教您的是如果是6排整的欄位需要使用上月曆控制項，程式碼該如何修改呢?
例如：要設定在欄位 B, C, D, E, F, D下所有的欄位都可以直接點選使用。

感恩~!

TOP

luhpro

高中生 Rank: 3 Rank: 3

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

12^#

發表於 2011-10-1 19:40 | 只看該作者

請教要如何修改才能在2欄以上使用，也就是說需要使用這個功能在多個相鄰或不相鄰的欄位使用的設定方式? 感恩 ...
Rachel 發表於 2011-10-1 13:50

若為不特定儲存格時 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 2 Or .Column = 3 Then
Calendar1.Visible = True
Else
Select Case "C" + Trim(.Column) + "R" + Trim(.Row)
Case "C1R3"
' ===== 點擊 A3 後的處理動作 =====
Case "C5R12"
' ===== 點擊 E12 後的處理動作 =====
Case Else
' ===== 點擊其他儲存格後的處理動作 =====
Calendar1.Visible = False
End Select
End If
End With
End Sub

複製代碼

TOP

Rachel

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2007
閱讀權限: 10
性別: 女
來自: TAIPEI
註冊時間: 2011-10-1
最後登錄: 2011-10-8

11^#

發表於 2011-10-1 13:50 | 只看該作者

請教要如何修改才能在2欄以上使用，也就是說需要使用這個功能在多個相鄰或不相鄰的欄位使用的設定方式? 感恩~!

TOP

applepal

小學生 Rank: 1

帖子: 13
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 10
性別: 女
註冊時間: 2011-5-19
最後登錄: 2018-2-2

10^#

發表於 2011-5-25 14:04 | 只看該作者

哇～好感謝！這就是我要的謝謝GBKEE .Hsieh .oobird ！

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兔年全勤獎章

9^#

發表於 2011-5-24 17:17 | 只看該作者

回復 8# applepal
oobird 版主的程式修改一下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub

TOP

applepal

小學生 Rank: 1

帖子: 13
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 10
性別: 女
註冊時間: 2011-5-19
最後登錄: 2018-2-2

8^#

發表於 2011-5-24 16:57 | 只看該作者

還有一個小問題就是點選以後出現月曆 OK
如果我又不想輸入日期了月曆就不會消失我點其他儲存格他還是在那邊......

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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