EXCEL
XLA
首先, 我们先创建一个 Excel 加载宏文件: 新建一个 Excel 工作薄, 按 Alt + F11 转至 VBE 窗口, 点击菜单 '插入/模块', 在打开的 '模块1' 代码窗口中我们将添加一个自定义工作表函数 week2day(通过第几周返回该周第几天的日期). 把下面的代码复制过去: Function week2Day(y As Integer, i As Integer, k As Integer) As String Dim datetemp As Date, j As Integer If i > 52 Then MsgBox ('一年最多只有52个周!') weekFristDay = '1900-1-1' Exit Function End If datetemp = y & '-' & 1 & '-' & 1 j = VBA.Weekday(datetemp, vbMonday) j = (8 - j) + (i - 2) * 7 datetemp = DateAdd('d', j + k - 1, datetemp) week2Day = CStr(datetemp)End Function
在 VBE 界面中按 F2 打开对象浏览器窗口 在 '工程/库' 下拉列表框中选择 VBAProject, 这时在 '类' 列表中就会显示出 VBAProject 库下的所有模块及类模块, 在列表中点击 '模块1', 就会在 '模块1' 的成员列表中显示出 '模块1' 的所有成员:用鼠标右键点击 'week2day', 并点击 '属性'. 这时弹出 '成员选项' 对话框:在 '描述' 中可以输入函数的说明, 输入完成后, 点击 '确定'.
重新打开 Excel, 并安装 myfun.xla, 对于 Excel 2007 请点击 'Excel 选项/加载项', 在 '管理' 中选择 'Excel 加载项' 并点击 '转到'; 对于 Excel 2003 及之前版本请点击 '工具/加载宏'. 在弹出的窗口中勾选上 'mafun'.
结果