Excel VBA 宏,使用某模版新建文档时,某些cell自动填充
2004-09-18 11:18
471 查看
今天写了一段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
写的很笨拙,因为不太熟悉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
相关文章推荐
- 使用VBA将一个EXCEL大表自动分成一系列小表(保留首行)
- Excel应用-使用VBA自动绘制所有适用类型的Excel图表(代码及效果图)
- jxls--使用模版导出excel,单元格无法自动计算问题解决
- 大学综合测评中,使用VBA代码自动完成EXCEL成绩表
- 如何通过 Visual C# 使 Excel 自动执行操作以使用数组来填充或获取某区域中的数据
- 利用Excel对Word文档实现自动填充
- 使用VBA把excel里所有sheets按顺序一次性copy到Word文档(选定特定列)
- 多线程编程之使用工作线程实现文档自动保存(I)
- 利用 Visual C# .NET 和 asp .net 使 Word 自动新建文档
- 多线程编程之使用工作线程实现文档自动保存(II)
- 使用VB实现Excel自动获取外部数据
- 要使用 MFC 使 Excel 和使用数组填充区域
- 利用 Visual C# .NET 和 asp .net 使 Word 自动新建文档
- 使用C#自动生成Word2003文档(通过操作COM组件实现)-转载
- .NET1.1下,使用C#自动生成Word2003文档(通过操作COM组件实现)
- .NET1.1下,使用C#自动生成Word2003文档(通过操作COM组件实现)
- 实例开发:利用 Visual C# .NET 使 Word 自动新建文档?
- HOW TO:利用 Visual C# .NET 使 Word 自动新建文档
- 使用XML创建Excel文档
- 使用VBA访问ACCESS,Excel文件的方法