体验零代码搭建

excel获取屏幕分辨率的VBA代码

网友投稿  ·  2023-05-06 19:05  ·  在线excel  ·  阅读 616


Excel是许多职场人士常用的烦恼之源,学习相关技巧需耗费大量时间。简道云作为一款办公神器,能很好地替代Excel。它是一个在线表单和数据管理工具,支持PC端和手机微信浏览器操作。除此之外,简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理,满足不同需求。

用下面的代码可以获取屏幕分辨率,需将其放入模块中运行。 1.按Alt+F11打开VBA编辑器。 2.单击菜单“插入→模块”,在模块中输入下列代码并运行: Declare Function GetSystemMetrics32 Lib "user32" _Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Sub DisplayMonito

excel获取屏幕分辨率的VBA代码

excel获取屏幕分辨率的VBA代码

用下面的代码可以获取屏幕分辨率,需将其放入模块中运行。

1.按Alt+F11打开VBA编辑器。

2.单击菜单“插入→模块”,在模块中输入下列代码并运行:

Declare Function GetSystemMetrics32 Lib "user32" _Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub DisplayMonitorInfo()Dim X As Long, Y As LongX = GetSystemMetrics32(0) ' 宽度(像素)Y = GetSystemMetrics32(1) ' 高度(像素)MsgBox "屏幕分辨率为:" & X & " × " & Y & " 像素"End Sub


excel用VBA互换两个单元格或区域中的数据 << 上一篇
2023-05-06 19:05
excel利用VBA生成无重复无空值的数据有效性下拉列表
2023-05-06 19:05
下一篇 >>

相关推荐