今天写了一段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，如需转载请自行联系原作者
