精华内容
下载资源
问答
  • 如何用VBA获取当前时间

    万次阅读 2018-06-09 16:52:29
    获取当前的系统时间在【A1】中,系统中的年在[B1],月在【C1】日在【D1】Sub D()ActiveCell.FormulaR1C1 = "=NOW()" Range("B1").Select ActiveCell.FormulaR1C1 = "=year" Range(&...

    获取当前的系统时间在【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的值为对应列号的数字(比如B列为2),自动值类似监测值。 Private Sub Worksheet_Change(ByVal Target As Range) Dim h%, l%: jcl = 1: zdz = 2 If (Target.Column = jcl And ...

    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过程代码36:返回系统的当前日期Sub MyNZ...

    蓝字关注,加微信NZ9668获资料信息

     VBA解决方案   系列丛书作者 

    头条百家平台 VBA资深创作者

    _______________________________


    分享成果,随喜真能量。大家好,今天继续和大家分享 VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一,简单的组合起来就是一个复杂的过程,也是一个学习的过程。  VBA过程代码36:返回系统的当前日期 Sub MyNZ() Dim MyDate, MyDay MyDate = Date MyDay = Day(MyDate) MsgBox MyDay END SUB 代码的解析说明:上述代码过程在执行过程中,将弹出一个对话框提示当前的日期。其中 Date是当前的日期,含年月日,Day(MyDate)是从上述的当前日期中提出日期。最后用MsgBox弹出对话框显示这个日期。     d6615920d38c097320a5e75a04c069c2.png   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弹出对话框显示这个月。  47d9b8269c88447701f0aba97711fc92.png VBA 过程代码 39 : inputbox< 输入框 > Sub MyNZ() XX=InputBox ("Enter number to add!") END SUB 代码的解析说明:上述代码过程在执行过程中,将弹出一个输入对话框,提示输入的信息: "Enter number to add!" 最后用变量XX记录这个输入。   e5f67e236f0d2e80e6aed3e4b805e6f2.png 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讲内容已经录制完成,第一阶段的优惠活动即将结束。

    _____________________________ 

    有启发 点在看,转给朋友  约作者 请留言,直接交流

    更多关联阅读

    0ed98b6f2cc30ba1eae2091f6d446446.png

    51052d26c03203407f19ef3696fa698d.png

    5033e5d3e2075b919f3c16476c28d33c.png

    31e77d21dc532666b39a08da38cbcef0.png

    展开全文
  • 自动为网页添加日期代码,可以应用于各种动态,静态网页的日期显示
  • DTPicker控件的时间和日期的切换 DTPicker控件的日期输入方式 DTPicker控件的Value属性与Change事件 使用DTPicker控件实现日期选择并赋值给单元格 注册DTPicker控件 在Excel中,经常需要输入日期。为保证输入...

       

    目录

    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

    后按回车键确定,即可完成该控件的注册。
     

     

    展开全文
  • vba日期和时间函数汇总和代码

    千次阅读 2015-02-12 21:37:33
    第一,vba日期和时间函数的基本用法  Excel中vba日期函数和时间函数分别... 下面的代码我们以三个消息框来结合日期和时间函数,分别提示当前日期、时间。 Sub vba时间和日期函数()  MsgBox Date  MsgBox Tim
  • VBA日期时间函数

    万次阅读 2018-12-08 21:37:02
    VBScript日期和时间函数帮助开发人员将日期和时间从一种格式转换为另一种格式,或以适合特定条件的格式表示日期或时间值。 一、日期函数 1、Dateadd() Private Sub Constant_demo_Click() ' Positive Interal...
  • 现需要将合同签订日期转换成英文日期,该如何通过VBA批量实现? 姓名 合同签订日期 英文日期1 英文日期2 英文日期3 辛劭钧 2010/1/1 1 Jan 2010 1 January 2010 1st Jan,2010 林庆荣 ...
  • 实用VBA代码

    千次阅读 2018-08-11 00:20:28
    'date:返回当前日期,格式是:2018/8/11 'time:返回当前的时间,格式是:00:00:0 Debug.Print Date Debug.Print now() Debug.Print time 定义有返回值的方法 Function getSheetLine(ByRef target...
  • Excel VBA日期控件使用说明
  • VBA基础语法学习代码

    2020-12-21 11:18:55
    ’ 这行指令表示 变量需要显示声明 ,一般用在文件开头。 一、操作单元格对象 注释 Sub test() '弹出对话框 ' "'"注释 单引号 Rem 另一种注释 -- Remark MsgBox "hello world" End Sub VBA思想 是处理某个对象 ...
  • VBA进阶-在VBA中使用SQL语句筛选日期

    千次阅读 2018-09-26 00:12:04
    #示例代码 Sub MultipleSelect_Group1() Dim cnn As New ADODB.Connection Dim rst As ADODB.Recordset Dim mypath As String Dim SQL As String Dim i As Integer 'Dim d As Date '两种方式,一种是设...
  • DTPicker1控件的下拉按钮请问怎么写代码可以使得DTPicker控件的下拉日期显示出来呢?!Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hWnd As Long, _ByVal wMsg As Long, _...
  • excel-vba的常用功能普通功能变量定义日期计算插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少的...
  • 直接上代码~~ 1. 在一个 Excel 生成当月或当年指定月份的日期及星期 ' 获取星期的显示 Function disp(i As Integer) Select Case i Case 1 disp = "一" Case 2 disp = "二" Case 3 ...
  • excel vba到期提醒 在Excel中监视到期日期 (Monitor Expiry Dates in Excel) Do you use Excel to keep track of software subscriptions, or domain registrations, or other things with an expiry date?...
  • 最近在研究Word VBA函数,看看里面是否有现成的函数,能把日期比如今天2020年4月1日转化为英式函数,最接近要求的就是Format函数,但是效果只能达到1 Apr 2020这种格式,不能忍,所以自己编写了一个函数,直接调用就...
  • 如何为当前工作簿自动备份一个副本至指定目录,并以日期和时间为文件名? 实现代码 Option Explicit Sub 备份工作簿() Dim FileFullName As String Dim FilePath As String FilePath =..
  • 最重要的是上面两个方法得出的数据不是日期格式而是文本格式,我们无法通过设置单元格格式更改日期显示方式。所以我们可以自己定义一个提取身份证中生日的信息来使用。 代码: Function tqsr(str As String) Dim...
  • 263、 显示相关设置 一 显示 1、多行显示 MultiLine 属性值为true时,可以多行显示文本 2、文本框对齐 左右对齐可以用TextAlign对齐,但上下对齐则没有相应的属性设置 3、密码样式 可以设置passwordChar属性来隐藏...
  • VBA研究】排序编程代码

    千次阅读 2015-10-29 15:11:04
    1、在对Excel处理时经常会对工作表中的数据排序,排序代码怎么写?通过录制宏可以很容易得到(我学习VBA的方法基本就是查资料、录制宏),例如2003版可以得到如下排序语句: Rows("1:1500").Select Selection.Sort ...
  • excel中用当天日期命名工作表名vba

    千次阅读 2016-05-30 20:04:44
    excel中经常会用到每天一个工作表的情况,这时写个简单的VBA每天点一下生成新的工作表,可以节省一小会,一年下来省不少时间。 先看我的前一篇文章《 excel2007如何增加控件 》 ...指定宏并编辑,在单击事件中写...
  • 首先我们需要在VBE窗口工具栏下找到我们所需要...在Monthview控件对应事件中写入如下代码 Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Dim i As Integer Dim arr() ListBox1.Clear arr = Ran...
  • 函数作用:导出VBA Project代码.....................97 '97.函数作用:导入VBA Project代码.....................97 '98.函数作用:取得汉字拼音的第一个字母.................98 '99.函数作用:获取两栏中相同的数据.....
  • update components set deleted_at = now() where name = ‘XXX’ and deleted_at is NULL; deleted_at = now();
  • Excel VBA(WPS专业版)安装及代码编写

    万次阅读 多人点赞 2018-04-14 11:37:29
    > 以前用的wps是需要自己单独再安装vba插件的,现在更新的wps都是自带vba的,在菜单栏>开发工具可以看到,因而这里简单给出wps版本的说明 > 此次更新将在wps2019教育版上重新做一遍,耗时巨大; 时隔两年,已经做了...
  • VBA入门

    千次阅读 2018-08-13 23:37:49
    1.VBA代码VBA代码组成了VBA程序。 2.过程:用VBA代码把完成一个任务的所有操作保存起来就是一个VBA过程。 3.模块:是保存过程的地方,一个模块可以有多个过程。 4.对象:就是代码操作和控制的东西。 ...
  • 常用的VBA代码参考

    千次阅读 2020-06-19 17:55:20
    一些日常经常用到的VBA代码汇总 VBA中调用SQL 在Excel中调用SQL进行数据处理 Sub Query() Dim Conn As Object, Rst As Object Dim strConn As String, strSQL As String Dim i As Integer, PathStr As String ...
  • VBA条件格式的原理 利用VBA实现条件格式设置的过程并不像在Excel工作表中设置单元格条件格式那样方便。在VBA中,对于批量操作,通常需要用循环结构逐个进行。 此处,初学者一般能够掌握为满足条件的数据设置颜色...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,721
精华内容 688
关键字:

vba显示当前日期代码