获取当前的系统时间在【A1】中，系统中的年在[B1],月在【C1】日在【D1】
Sub D()
ActiveCell.FormulaR1C1 = "=NOW()"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=year"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=YEAR(RC[-1])"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=DAY(RC[-3])"
    Range("D2").Select
End Sub

jcl触发动态的列号(数字)，zdz为自动值的列号。
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim jcl%, zdz%: jcl = 1: zdz = 2 
        If (Target.Column = jcl And Target.Value <> "") Then
            Cells(Target.Row, zdz).Value = Now()
        ElseIf (Target.Column = jcl And Target.Value = "") Then
            Cells(Target.Row, zdz).Value = ""
        Else
        End If
End Sub

 
 
 
  
蓝字关注，加微信NZ9668获资料信息
  
 VBA解决方案   系列丛书作者 
  
头条百家平台 VBA资深创作者
  
_______________________________
  

  分享成果，随喜真能量。大家好，今天继续和大家分享
  VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一，简单的组合起来就是一个复杂的过程，也是一个学习的过程。 
  VBA过程代码36：返回系统的当前日期
  Sub MyNZ()
  Dim MyDate, MyDay
  MyDate = Date
  MyDay = Day(MyDate)
  MsgBox MyDay 
  END SUB
  代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框提示当前的日期。其中
  Date是当前的日期，含年月日，Day(MyDate)是从上述的当前日期中提出日期。最后用MsgBox弹出对话框显示这个日期。    
  
   
  VBA
  过程代码
  37
  ：返回系统的当前年份
  
  Sub MyNZ()
  Dim MyDate, MyYear
  MyDate = Date 
  MyYear = Year(MyDate)
  MsgBox MyYear 
  END SUB
  代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框，提示当前的年。其中
  Date是当前的日期，含年月日，Year(MyDate)是从上述的当前日期中提出年。最后用MsgBox弹出对话框显示这个年。
  VBA过程代码38：返回系统的当前月份
  Sub MyNZ()
  Dim MyDate, MyMonth
  MyDate = Date 
  MyMonth = month(MyDate)
  MsgBox MyMonth 
  END SUB
  代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框，提示当前的月。其中
  Date是当前的日期，含年月日，month(MyDate)是从上述的当前日期中提出月。最后用MsgBox弹出对话框显示这个月。 
  
  VBA
  过程代码
  39
  ：
  inputbox<
  输入框
  >
  
  Sub MyNZ()
  XX=InputBox ("Enter number to add！")
  END SUB
  代码的解析说明：上述代码过程在执行过程中，将弹出一个输入对话框，提示输入的信息：
  "Enter number to add！" 最后用变量XX记录这个输入。 
   
  
  VBA
  过程代码
  40
  ：得到一个文件名 
  Sub MyNZ()
  Dim kk As String
  kk =Application.GetOpenFilename("EXCEL (*.XLSM), *.XLSM", Title:="提示：请打开一个EXCEL文件：")
  msgbox kk
  END SUB
  代码的解析说明：上述代码过程在执行过程中，将弹出一个打开的对话框，让用户选择某个文件，并用变量
  KK记录这个文件名,这个文件名是包含地址的FULLNAME。注意此时的代开对话框并不是真的打开这个文件。
  看板：
  下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，全是满满的“干货”，欢迎有需要的朋友联络(WeChat:NZ9668)，分享。
  1 《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。
  2 《VBA数据库解决方案》是数据处理的利器；
  3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。
  4  面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，“每天20分钟，半年精进VBA”活动正在火热进行中，越早报名，回馈越多。现在第一册48讲内容已经录制完成，第一阶段的优惠活动即将结束。
  
  
_____________________________ 
  有启发 点在看，转给朋友
   约作者 请留言，直接交流
  
更多关联阅读
  

  

  

  

 
 

   
 
目录
 
码
 
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中常用的日期控件，该控件由日期输入框和日期选择窗口两部分组成，如图。使用该控件，用户可以方便地选择日期和时间。
 
 
DTPicker控件的时间和日期的切换
 
    DTPicker控件可以用来输入日期和时间，可以通过Format属性来改变其输入模式及日期格式。该属性可以为表中的任意常量。
 
     DTPieker的Format属性
 
 
    常  量
 
 
    值
 
 
    说  明
 
 
dtpLangDate
 
 
 0
 
 
日期输入，格式为控制面板“长日期”所示的格式
 
 
dtpShortDate
 
 
 1
 
 
日期输入。格式为控制而板“短日期”所示的格式
 
 
dtpTime
 
 
 2
 
 
时间输入、格式为"hh:mm:ss”
 
 
dtpCustom
 
 
 3
 
 
自定义格式。当设置为该值时，可以使用customFormat属性设置自定义格式
 
DTPicker控件的日期输入方式
 
    利用DTPicker控件可以直接在日期输入框中输入，也可以通过单击日期选择窗口中的某个日期进行输入。该控件的属性UpDown可以控制这两种方式的输入。当该属性为True时，则只能通过日期输入框进行输入，在其右侧提供的“上下”按钮可以用于调整日期年、月、日的值。当该属性为False时，则其右侧的按钮成为下拉按钮。当单击该按钮时，则会出现日期选择窗口。
 
DTPicker控件的Value属性与Change事件
 
    无论通过日期输入框还是通过日期选择窗口进行日期的输入，都将改变DTPicker控件的Value属性，同时会触发Change事件程序的执行。一般地，当使用该控件对单元格赋值时，总是在Change事件中添加代码，将控件的Value属性的值赋值给单元格的Value属性。
 
使用DTPicker控件实现日期选择并赋值给单元格
 
    对于控件相关的代码开发，大多数使用事件来“自动实现”。因而对于某项功能的开发，首先应尽量描述其运行的步骤或可能出现的各种情形，然后根据不同的步骤或情形选择不同的事件并编写代码。如本例，需要通过DTPicker控件选择日期并实现输入。若设想整个操作的流程，可以包含以下步骤：
 (1)激活工作表时，DTPicker控件不显示（隐藏）。
 (2)单击或双击需要输入日期的单元格时，在单元格的右侧显示DTPicker控件。
 (3)当更改日期后，自动赋值给活动的单元格。
 (4)当选择其他单元格时，控件隐藏。
 针对以上步骤可以为其分别选择事件如下：
     步骤1  需要实现激活工作表时隐藏DTPicker控件，此时可以选择工作表的Activate事件，在其中编写代码将控件的Visible属性设置为False。还可以添加对DTPicker控件的初始化，如格式属性等。
     步骤2  当单击或双击特定的单元格时，显示控件，此时可以选择工作表的SelectionChange事件或者BeforeDoubleClick事件，在其中编写代码将控件的Visible属性设置为True，并设置Top和Left属性使其出现在当前Target单元格的右侧。
     步骤3更改日期后自动赋值给单元格，则可以选择DTPicker控件的Change事件，在该事件程序中编写代码将控件的Value属性的值赋值给单元格的Value属性。
     步骤4选择其他单元格时隐藏控件，此时可以使用SelectionChange事件隐藏控件，将控件的Visible属性设置为False。  （本步骤也可以使用DTPicker的LostFocus事件。）
     以上步骤(2)和步骤(4)都使用了SelectionChange事件，因而这两个步骤可以合用一个事件程序。在该事件中可以使用分支结构的IF---Then语句或者Select Case语句判断Target参数是否为特定的单元格，在特定单元格的分支下编写与步骤(2)相关的代码，在其余分支
 中写入与步骤(4)相关的代码。
 
注册DTPicker控件
 
    如果遇到DTPicker控件无法使用，是由于系统中缺少“mscomct2.  ocx”控件。开发者需要下载该文件，并将其复制到“C：\Windows\System32\”下(64位系统则需要复制到C: \Windows\SysWOW64\).
     然后在“所有程序”中找到“附件”下的“命令提示符”，右键单击后选择“以管理员身份运行”，在出现的窗口中输入
 
regsvr32 mscomct2.ocx
 
后按回车键确定，即可完成该控件的注册。