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

    千次阅读 2019-07-30 10:31:55
    1.获取当前的系统时间在【A1】中,系统中的年在[B1],月在【C1】日在【D1】 Sub D() ActiveCell.FormulaR1C1 = "=NOW()" Range("B1").Select ActiveCell.FormulaR1C1 = "=year" ...

    1.获取当前的系统时间在【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
    
    展开全文
  • 如何用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

    展开全文
  • Sub huoquqiqi() Dim g_year As Integer Dim g_month As Integer ...g_year = Year(Now) '时间函数,获取当前时间的年份 g_month = Month(Now) If g_month = 2 Then '当二月份时,判断当前年份是否为闰年 ...
    Sub huoquqiqi()
    
    Dim g_year As Integer
    Dim g_month As Integer
    Dim g_days As Integer
    
    g_year = Year(Now) '时间函数,获取当前时间的年份
    g_month = Month(Now)
    If g_month = 2 Then  '当二月份时,判断当前年份是否为闰年
        
        If g_year Mod 400 = 0 Or g_year Mod 4 = 0 Then
            g_days = 29
        Else
        g_days = 28
        End If
        
    Else
        Select Case g_month
        Case 1, 3, 5, 7, 8, 10, 12
            g_days = 31
        Case 4, 6, 9, 11
            g_days = 30
        End Select
    End If
    Range("c2") = g_year & g_month & g_days
    

      

    转载于:https://www.cnblogs.com/queqiaoshui/p/10261865.html

    展开全文
  • 从上一篇文章我们已经可以获取某单元格的数据,现在我们只要执行:MsgBox VarType(curCell)就可以获取到类型,完整代码如下: Sub Macro1() ' ' Macro1 Macro ' 宏由 cq 录制,时间: 2016/08/02 x = Sheets("Sheet1...

    上一篇文章我们已经可以获取某单元格的数据,现在我们只要执行:MsgBox VarType(curCell)就可以获取到类型,完整代码如下:

    Sub Macro1()
    '
    ' Macro1 Macro
    ' 宏由 cq 录制,时间: 2016/08/02
    x = Sheets("Sheet1").[a5]
    MsgBox VarType(curCell)
    End Sub


    我们会在弹窗看到一个数字,这个就是我们数据类型,下面这张表就是数据类型对应的值:(我们可以从excel帮助获得)


    常数 描述
    vbEmpty 0 未初始化(缺省值)
    vbNull 1 不含任何有效数据
    vbInteger 2 Integer
    vbLong 3 长整数
    vbSingle 4 单精度浮点数
    vbDouble 5 双精度浮点数
    vbCurrency 6 Currency
    vbDate 7 Date
    vbString 8 String
    vbObject 9 对象
    vbError 10 错误
    vbBoolean 11 Boolean
    vbVariant 12 Variant(只用于变体的数组类型)
    vbDataObject 13 数据访问对象
    vbDecimal 14 Decimal
    vbByte 17 Byte
    vbLongLong 20 LongLong 整型(只在 64 位平台上有效。)
    vbUserDefinedType 36 包含用户定义类型的变量
    vbArray 8192

    数组

    展开全文
  • 可以利用Microsoft.XMLHTTP来读取网页内容,请参考下列(){tagshow(event)}">代码。Sub 利用网络时间校对当前计算机时间() Dim objXML As Object Dim strTemp As String Dim lStart
  • 日期数据在SQL表达式中的应用 在SQL表达式运算符条件中,要查询日期和时间类型的数据,需要在数据值两端加上井字符号(#)以表示日期类型。 日期可以有多种表示方式,最符合中国人的习惯是“年-月-日”或“年/月/日”...
  • VBA以当前系统时间(年、月、日、时、分、秒)命名文件夹 ... '获取系统当前时间并格式化,nowTime 就是自己想要的文件夹的名字,长这样:20191121173628 nowTime = Format(Now, "yyyy" & "mm" & "dd" ...
  • VBA函数

    2014-06-02 10:33:00
    时间函数------------- ...比如说,用Excel制作了一份考勤表,员工上班时,门卫在相应的单元格中输入数值1,而想让Excel自动获取当前时间呢?对于这个问题,可以用VBA来实现了:右击考勤表所在的工作表标签(She...
  • 一、获取当前系统时间 1、 date() 或date 可获得日期 如 2019/2/1 2、 time() 或time 可获得时间 如 16:21:30 3、 now() 或now 如 2019/2/1 16:21:30 二、时间数据解析 year()、month()、day...
  • 一、获取当前系统时间 1、 date() 或date 获得当前系统日期 如2019/2/1精度到秒,从1900-1-1~9999-12-31 2、 time() 或time 获得当前系统时间 如 16:21:30 3、 now() 或now 获得完整的系统日期和时间如 2019/2...
  • 取消隐藏所有的行和列对所有合并单元格取消合并以当前时间为名字保存工作簿将每张工作表单独保存为一个PDF文件将工作簿保存为一个PDF文件保护所有带公式的单元格给选定区域交替高亮显示,增加可读性高亮显示所有带...
  • Excel_VBA教程

    2014-09-22 11:36:34
    1.获取当前文件夹的名称(CURDIR函数) 144 2.更改文件或文件夹名称(NAME函数) 145 3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME函数) 147 5.获得文件大小(FILELEN函数...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧60 使用VBA自动生成图表 12 技巧61 使用独立窗口显示图表 12 技巧62 导出工作表中的图表 12 技巧63 多图表制作 12 第5章 Application对象 12 技巧64 取得Excel版本信息 12 技巧65 取得当前用户名称 12 技巧66 ...
  • VBA  3. 用today函数也可以,但得有点技巧,就是要用到Excel的迭代循环,并用另一个单元格来触发。首先在选项的高级中勾选“启用迭代计算”,再你的工作表中除了日期肯定是要输入其它数据的。比如你要在C1中显示...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    时间函数................................................................ 6 第十三节 文件操作...............................................................................................................
  • Excel VBA技巧实例手册

    2016-07-28 22:29:39
    技巧037获取当前区域的信息 技巧038获取单元格的地址信息 技巧039确定单元格是否属于数组 技巧040查看公式单元格的信息 3.3 设置单元格格式 技巧041突显单元格 技巧042标记特殊单元格 技巧043设置单元格的属性 技巧...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    VBA常用技巧 目录 VBA常用技巧 1 第1章 Range(单元格)对象 10 技巧1 单元格的引用方法 10 1-1 使用Range属性 10 1-2 使用Cells属性 11 1-3 使用快捷记号 11 1-4 使用Offset属性 12 1-5 使用Resize属性 13 1-6 使用...
  • 使用Excel 的vba宏将不同行数据合并到同一单元格 文章目录使用Excel 的vba宏将不同行数据合并到同一单元格一、效果展示二、...times = Timer '获取当前时间 Dim strDict(10000, 5) As String ' Sheets("数据拼接").Ra
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    1.获取当前文件夹的名称(CURDIR函数) 144 2.更改文件或文件夹名称(NAME函数) 145 3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME函数) 147 5.获得文件大小(FILELEN函数...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01003获取当前用户名称 01004获取注册组织名称 01005获取当前操作系统的名称和版本号 01006获取启动Excel的路径 01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 01009获取库文件夹的路径 01010...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    时间函数................................................................6 第十三节文件操作.................................................................................................................
  • 函数作用:选取当前工作表中公式出错的单元格﹐关返回出错个数...............................................101 '101.函数作用:将工作表中最后一列作为页脚打印在每一面页尾101 '102.函数作用:获取vbproject引用...
  • 121.读取网络服务器当前时间 122.下载文件到指定目录 123.自动映射网络驱动器 124.自动断开网络驱动器 125.连接选定单元格中的内容 126.获取一个单元格中有指定字体颜色部份数据 127.对指定文件加XLS加密 128.选择...
  • Excel为我们提供了大约...获取当前日期和时间的函数:today() 和now()today函数,仅插入当前的日期。now函数,同时插入日期和具体时间。日期及时间的拆分函数:Year(),Month(),day(),hour(),minute()及second()函数y...
  • Excel为我们提供了大约...获取当前日期和时间的函数:today() 和now()today函数,仅插入当前的日期。now函数,同时插入日期和具体时间。日期及时间的拆分函数:Year(),Month(),day(),hour(),minute()及second()函数y...
  • 获取当前系统时间 curTime = XX_DATE <p>'天干名称 TianGan(0) = "甲" TianGan(1) = "乙" TianGan(2) = "丙" TianGan(3) = "...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    获取内置命令ID】:VBA编程人员常用的工具。可以查询Excel内部命令的ID号 【修复Excel】:当您的Excel某些功能无法使用时,或者无缘无故多出很多菜单、工具栏时,本工具可以瞬间恢复Excel到默认状态 【破解VBA密码】...
  • Excel百宝箱

    2012-10-27 17:09:21
    获取内置命令ID】:VBA编程人员常用的工具。可以查询Excel内部命令的ID号 【修复Excel】:当您的Excel某些功能无法使用时,或者无缘无故多出很多菜单、工具栏时,本工具可以瞬间恢复Excel到默认状态 【破解VBA密码】...

空空如也

空空如也

1 2 3 4
收藏数 68
精华内容 27
关键字:

vba获取当前时间