office高手进 有个问题请教！

来源：百度知道 编辑：UC知道 时间：2024/09/28 15:04:23
我不知道使用 word还是用excel做的 就是一个类似数据筛选似得下拉菜单 然后按一下那个小三角 底下出现的是一个日历 这个怎么做呢？

是将Excel日历控件插入的方式完成的

进入---视图---工具箱---工具箱控件----选择日历控件11.0,双击日期控件,添加如下VBA代码

日历控件11.0 VBA

Private Sub Calendar1_click()

ActiveCell = Calendar1.Value

Me.Calendar1.Visible = False

End Sub

Private Sub Worksheet_selectionChange(ByVal Target As Range)

If Target.Column = 2 Then

Me.Calendar1.Visible = True

Else

Me.Calendar1.Visible = False

End If

End Sub

修改后的VBA代码

Private Sub Calendar1_click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Me.Calendar1.Top = Target.Top
Me.Calendar1.Left = Target.Left + Target.Width
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub

固定单元格显示日期

Private Sub Calendar1_click()