VBA常用技巧代码解析

zhangyulei24

这个资料是极品啊，谢谢了~

peng__yong

不胜感激版主！

yuanzhuping

继续更新，本来第8部分已经结束，想想还有几个技巧也不错，还是整理了一下，Word文档等第9部分结束时一起更新吧。

技巧151         用户窗体的全屏显示
       在需要用户窗体全屏显示时，可以将窗体的Height属性和Width属性设置为一定的数值，使之显示时和显示器一样大小。
       使用这种方法虽然可以达到全屏显示的要求，但是如果换台显示器不一样的电脑时，此种方法便会失效。为了使用户窗体达到真正的全屏显示，可以使用以下的方法。
151-1        设置用户窗体为应用程序的大小
       将用户窗体的高度和宽度设置为应用程序的高度和宽度，如下面的代码所示。

1. #001  Private Sub UserForm_Initialize()
   
2. #002      Application.WindowState = xlMaximized
   
3. #003      With Me
   
4. #004          .Width = Application.Width
   
5. #005          .Height = Application.Height
   
6. #006          .Left = Application.Left
   
7. #007          .Top = Application.Top
   
8. #008      End With
   
9. #009  End Sub

复制代码

代码解析：
       用户窗体初始化时，将高度和宽度设置成与Excel应用程序窗口一样。
       第2行代码，将Excel应用程序的WindowState属性设置为xlMaximized，使Excel应用程序最大化显示。
       不使用对象识别符时Application属性返回一个Application对象，代表Excel应用程序。WindowState属性返回或设置窗口的状态，可以为表格所示的XlWindowState常量之一。
      
       第3行到第8行代码将用户窗体的Width属性、Height属性设置为Excel应用程序的高度和宽度。Width属性、Height属性以磅为单位返回或设置对象的高度和宽度，将用户窗体的Left属性、Top属性设置为和最大化后的Excel应用程序的一样。

151-2        根据屏幕分辨率进行设置
       根据屏幕分辨率的大小自动调整用户窗体的高度和宽度，如下面的代码所示。

1. #001  Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   
2. #002  Const SM_CXSCREEN As Long = 0
   
3. #003  Const SM_CYSCREEN As Long = 1
   
4. #004  Private Sub UserForm_Initialize()
   
5. #005      With Me
   
6. #006          .Height = GetSystemMetrics(SM_CYSCREEN) * 0.72
   
7. #007          .Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
   
8. #008          .Left = 0
   
9. #009          .Top = 0
   
10. #010      End With
    
11. #011  End Sub

复制代码

代码解析：
       用户窗体初始化时根据屏幕分辨率的大小自动调整用户窗体的高度和宽度。
       第1行到第3行代码，API函数声明。
       第6行代码设置用户窗体的高度，屏幕分辨率的Y坐标值乘以0.72将其换算成以磅为单位的数值。
       第7行代码设置用户窗体的宽度，屏幕分辨率的X坐标值乘以0.75将其换算成以磅为单位的数值。
       经过以上两种方法的设置，用户窗体显示时始终以全屏显示。

stone1323

下载了，慢慢学习，谢谢了

ccmanwx

大侠造福万众。
感谢。

caisheg

太有用了,辛苦楼主了

BXLMLF

太好了！工作中用了VBA后，操作简便多了，这些内容对我有用。

rongcheng

非常感谢您的无私奉献。
祝愿好人一生平安。
谢谢，非常感谢！！！

fyx790911

感谢！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

276651322

楼主太强了。