Excel 2010 VBA 入门 124 日期选择控件

这篇博客介绍了如何在Excel中使用VBA集成DTPicker控件进行日期选择。内容包括DTPicker控件的添加、日期和时间切换、输入方式、Value属性与Change事件的应用,以及如何将选定的日期赋值给单元格。同时,还讲解了如何注册DTPicker控件。
摘要由CSDN通过智能技术生成

   

目录

DTPicker控件

DTPicker控件的时间和日期的切换

DTPicker控件的日期输入方式

DTPicker控件的Value属性与Change事件

使用DTPicker控件实现日期选择并赋值给单元格

注册DTPicker控件


在Excel中,经常需要输入日期。为保证输入正确,可以通过一个日历控件进行输入。

    在工作表中添加DTPicker控件,并隐藏。在工作表中添加工作表SelectionChange事件,在事件中判断Target参数所指的单元格,当为特定单元格时显示DTPicker控件,并调整位置至当前单元格处,否则隐藏控件。然后添加DTPicker控件的Change事件,将DTPicker的值赋值给活动单元格。


 

Option Explicit

'工作表激活时隐藏日历控件
Private Sub Worksheet_Activate()
    Me.DTPicker21.Visible = False
End Sub

'日历控件的 change事件
Private Sub DTPicker21_Change()
    ActiveCell.Value = Me.DTPicker21.Value
End Sub

'工作表的SelectionChange事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.DTPicker21.Visible = False
    '选中一个单元格则继续
    If Target.Count = 1 Then
        '选中A列及第2行以下的单元格继续
        If Target.Column = 1 And Target.Row > 1 Then
            Me.DTPicker21.Visible = True
            Me.DTPicker21.Top = ActiveCell.Top
            Me.DTPicker21.Left = ActiveCell.Left + ActiveCell.Width
        End If
    End If
End Sub

DTPicker控件

    DTPicker控件是VBA中常用的日期控件,该控件由日期输入框和日期选择窗口两部分组成,如图。使用该控件,用户可以方便地选择日期和时间。

  • 2
    点赞
  • 36
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值