摘要： 用下面的代码可以获取屏幕分辨率，需将其放入模块中运行。
1.按Alt F11打开VBA编辑器。
excel利用VBA生成无重复无空值的数据有效性下拉列表
在Excel工作表的某个单元格中应用数据有效性设置来制作下拉列表时，如果引用的行或列区域中包含空单元格或重复项，那么在有效性下拉列表中会与原区域中的内容完全相同，也会包含空值或
2.单击菜单“插入→模块”，在模块中输入下列代码并运行：
Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub DisplayMonitorInfo()
Dim X As Long, Y As Long
X = GetSystemMetrics32(0) ' 宽度（像素）
Y = GetSystemMetrics32(1) ' 高度（像素）
MsgBox "屏幕分辨率为：" & X & " × " & Y & " 像素"
End Sub
如何在Excel工作表中添加最后保存时间
有时我们在Excel中制作的工作表需要反复修改，并保存为多个版本。修改的次数多了，很容易混淆。如果能把工作簿的最后保存日期和时间显示在工作表的某个单元格或页眉页脚中，查看起来就
