作者：乔山办公网日期：
返回目录：excel表格制作
如果其他宏需要参数，使用
Call 宏名(参数……)
如果不需要参数
Call 宏名()
或者直接
宏名
Private Sub Worksheet_Change(ByVal Target As Range) If Cells(1, 1) =这样很难说百清楚，简单的度就是在一个图片框专里设置公式调用相应的属图片。具体的
N个excel文件在同一知路径下，可以用Dir+Do Loop遍历文件，逐个文件打道开，Call Macro1即可。回
下面是简要的代码，根据实际情况修改答一下。
myFile = Dir(myPath & "*.xls")
Do While myFile <> ""
If myFile <> ThisWorkbook.Name Then
Workbooks.Open(myPath & myFile)
Call Marco1
Workbooks(myFile).Close
myFile = Dir
Loop
A1输入7-jan
B1输入公式：
=SUMPRODUCT((WEEKNUM(N(IF({1},$B$1:$Z$1)))=WEEKNUM($A$1))*(B2:Z2))