急如何在Excel2003裡利用日期控制項在某個儲存格點選取插入日期

急如何在Excel2003裡利用日期控制項在某個單元格點選取插入日期

為了幫助那些還沒有成功通過關卡的玩家，讓我們一起來了解一下具體的解謎方法吧。對於Excel2007來說，我們可以使用VBA來解決問題。以下是具體的操作步驟：

1、開啟Excel，點擊“開發工具”選項卡，在“控制項”組別，找到並點選“插入”，在下拉清單中，點選右下角的“其它控制項”，如下圖：

#2、在彈出的“其他控制項”對話框，拖曳捲軸到下方，滑鼠左鍵選擇“日曆控制項12.0”，點選“確定”

#3、回到工作表，用滑鼠左鍵拖曳出來一個日曆控件，調整大小和位置，如下圖：

#4、滑鼠左鍵在「行事曆控制」上雙擊，調出VBA編輯器，把下面這段程式碼複製貼上到裡面

Private Sub Calendar1_Click()

ActiveCell = Format(Calendar1.Value, ＂yyyy-mm-dd＂)

Me.Calendar1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 Then

If Target.Row > 1 Then

With Me.Calendar1

.Visible = True

.Top = Target.Top Target.Height

.Left = Target.Left Target.Width

.Value = Date

End With

Else

Me.Calendar1.Visible = False

End If

Else

Me.Calendar1.Visible = False

End If

End Sub

其中「 If Target.Column = 1 Then

If Target.Row > 1 Then「為點擊第一列即A列除第一行外彈出日曆控件，可根據需要進行更改，然後關閉VBA程式碼編輯器回到工作表

#5、滑鼠左鍵點擊A2即彈出”日曆控制項“，根據需要在”控制項「上點選要輸入的日期即可

##

在EXCEL中實作多列使用日期控制項

Private Sub DTPicker1_Change()

ActiveCell.Value = DTPicker1.Value

DTPicker1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Me.DTPicker1

If Target.count=1 then

If Target.Column = 1 And Target.Column =5 Then

.Visible = True

.Width = Target.Width 15

.Left = Target.Left

.Top = Target.Top

.Height = Target.Height

Else

.Visible = False

End If

else

.Visible = False

end if

End With

End Sub

Excel表裡面如何設定多列DTP時間控制項

我經過多次實驗，使用這個程式碼，可以在1和2列上同時使用日曆控制項了，並且點擊其他列也不會出現。

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

#Me.Calendar1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column

1 Then （意思是小於並包含2列，且不包含第一行）

Me.Calendar1.Visible = True

#Else

Me.Calendar1.Visible = False （點擊其他欄位不出現）

End If

End Sub###

以上是急如何在Excel2003裡利用日期控制項在某個儲存格點選取插入日期的詳細內容。更多資訊請關注PHP中文網其他相關文章！