Excel VBA 宏，使用某模版新建文档时，某些cell自动填充
本文共 534 字，大约阅读时间需要 1 分钟。
今天写了一段Excel宏，当根据模版创建Excel时，某些cell的内容自动根据当前机器环境填充。
写的很笨拙，因为不太熟悉VBA和Office事件，全看着帮助完成的。高手若能指点一二，敬请留言啊
Private Sub Workbook_Open() Dim str As String str = Trim(Range("G22").Value) If str = "" Then Range("G22").Value = Now End If Dim z As Integer Dim z2 As Integer If Range("A1").Value = "" Then z = Day( Now) Mod 7 z2 = Day( Now) 7 If (z > 0) Then z2 = z2 + 1 End If Range("A1").Value = "(" & month( Now) & ")" & "月份第(" & z2 & ")周" End If End Sub 本文转自斯克迪亚博客园博客，原文链接：http://www.cnblogs.com/sgsoft/archive/2004/09/18/44351.html，如需转载请自行联系原作者
你可能感兴趣的文章
《深入理解mybatis原理3》 Mybatis数据源与连接池
查看>>
C#返回两个日期之间的时间间隔
查看>>
BZOJ-4034: [HAOI2015]树上操作 (线段树+DFS序)
查看>>
maven下载jar包源码配置
查看>>
关于MYSQL通过子查询删除重复数据的for update报错问题解决
查看>>
进程与fork()、wait()、exec函数组
查看>>
ASP.NET入门(1) - 建立和开发ASP.NET 5 项目
查看>>
织梦内页读取栏目banner图
查看>>
技术入股
查看>>
multi-voltage design apr
查看>>
快速生成R语言报告（markdown+Rstudio）
查看>>
WindowsServer2003中IIS支持php的配置
查看>>
原型链、prototype、_proto_那些事
查看>>
Centos 6.4使用本地yum源
查看>>
RedHat 7 静默安装Oracle 12c
查看>>
技术人玩转iPhone4S iOS 5.1.1完美越狱
查看>>
在敏捷测试中如何设计用例
查看>>
使用JSOM创建一个SharePoint网站计数器
查看>>
老硬盘华丽变身高速硬盘
查看>>
IT公司规模对技术人员知识增长率的影响
查看>>