VBA常用技巧代码解析

ykx042907

袁版主：您好！
   请问一下：窗体显示在工作表中的初始位置，除了设置“StartUpPosition属性为0-手动、1-所有者中心、2-屏幕中心、3-窗口缺省”外。可不可以按照自己的意愿设置呀？如位于焦点的正下方！谢谢！

liuming168

学习再学习

ayu330602

Private Sub UserForm_Initialize()     '窗体加载事件
    UserForm1.Left = 100               '窗体左边离屏幕边的距离
    UserForm1.Top = 150                  '窗体上边离屏幕顶的距离
End Sub
也可直接在窗体属性中设置

[ 本帖最后由 ayu330602 于 2009-5-6 22:47 编辑 ]

ayu330602

原帖由 yuanzhuping 于 2009-5-6 07:18 发表

ListView控件的列宽调整用Width属性，如第一列：ListView1.ColumnHeaders(1).Width = 100
将ListView控件的LabelEdit属性设置为lvwManual，标签不能编辑。

谢谢老师:
     我的第二个问题的意思是:当窗体弹出后,让第一列的宽度不能在窗体上变动,其它的列还是可以调整? 如果这样实现不了的话,全部不能调整应该可以的吧?
谢谢指导!
    另外请老师把改变光标中的手写字.cur文件贴上分享好吗?

[ 本帖最后由 ayu330602 于 2009-5-6 23:10 编辑 ]

yuanzhuping

技巧142         调整窗体的显示位置
       用户窗体显示时，默认的位置是窗体所在Excel文件的中央。如果需要调整，可以在窗体加载时对其进行设置，如下面的代码所示。

1. #001  Private Sub UserForm_Initialize()
   
2. #002      With Me
   
3. #003          .StartUpPosition = 0
   
4. #004          .Left = 500
   
5. #005          .Top = 300
   
6. #006      End With
   
7. #007  End Sub

复制代码

代码解析：
       窗体的初始化事件，在窗体加载时设置其显示位置。
       第3行代码，将窗体的StartUpPosition属性设置成手动。
       StartUpPosition属性返回或设置一个值，用来指定窗体第一次出现时的位置，设置值如表格所示。
      
       StartUpPosition属性可以在程序中设置，也可以在窗体的属性窗口中设置。
       第4、5行代码，设置窗体的Left属性和Top属性，使其加载时显示在屏幕的右下角。
       经过设置后的窗体加载时显示位置如图所示。

yuanzhuping

原帖由 ykx042907 于 2009-5-6 17:10 发表
袁版主：您好！
   请问一下：窗体显示在工作表中的初始位置，除了设置“StartUpPosition属性为0-手动、1-所有者中心、2-屏幕中心、3-窗口缺省”外。可不可以按照自己的意愿设置呀？如位于焦点的正下方！谢谢！

技巧143         由鼠标确定窗体显示位置
       窗体加载时其显示位置还可以由鼠标的坐标来确定，如下面的代码所示。

1. #001  Private Sub CommandButton1_Click()
   
2. #002      Dim ActiveCellX As Integer
   
3. #003      Dim ActiveCellY As Integer
   
4. #004      ActiveCellX = ExecuteExcel4Macro("GET.CELL(44)")
   
5. #005      ActiveCellY = ExecuteExcel4Macro("GET.CELL(43)")
   
6. #006      With UserForm1
   
7. #007          .Show 0
   
8. #008          .Top = ActiveCellY
   
9. #009          .Left = ActiveCellX
   
10. #010      End With
    
11. #011  End Sub

复制代码

代码解析：
       使用ExecuteExcel4Macro方法执行Microsoft Excel 4.0 宏函数取得鼠标的坐标，ExecuteExcel4Macro方法的语法如下：
      expression.ExecuteExcel4Macro(String)
       expression参数是可选的，返回一个Application对象。
       String参数是必需的，一个不带等号的Microsoft Excel 4.0宏语言函数。
       第4行代码使用GET.CELL(44) 宏函数取得鼠标的X坐标，第5行代码使用GET.CELL(43) 宏函数取得鼠标的Y坐标。
       第6行到第10行代码显示窗体并设置其Top属性和Left属性，调整其显示的位置。
       还可以利用工作表SelectionChange事件的Target参数取得鼠标的坐标，如下面的代码所示。
#

1. 001  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. #002      With UserForm1
   
3. #003          .Show 0
   
4. #004          .Top = Target.Top
   
5. #005          .Left = Target.Left
   
6. #006      End With
   
7. #007  End Sub

复制代码

代码解析：
       工作表的SelectionChange事件过程，Target参数代表新选定的区域，返回一个Range对象，在显示窗体时取得其Top和Left属性后设置窗体显示的Top和Left属性。

roi19741109

yuanzhuping

技巧144         用户窗体的打印
       在使用如图 144 1所示的窗体录入数据时，如果需要把窗体打印出来，可以使用PrintForm方法，如下面的代码所示。

1. #001  Private Sub CommandButton7_Click()
   
2. #002      Dim myHeight As Integer
   
3. #003      Application.ScreenUpdating = False
   
4. #004      With UserForm1
   
5. #005          myHeight = .Height
   
6. #006          .DTPicker1.Visible = False
   
7. #007          .Frame1.Visible = False
   
8. #008          .Height = myHeight - 30
   
9. #009          .PrintForm
   
10. #010          .Height = myHeight
    
11. #011          .DTPicker1.Visible = True
    
12. #012          .Frame1.Visible = True
    
13. #013      End With
    
14. #014      Application.ScreenUpdating = True
    
15. #015  End Sub

复制代码

代码解析：
       录入窗体中的“打印”按钮的单击代码，使用PrintForm方法打印窗体。
       第5行代码使用变量myHeight记录窗体的Height属性值，以便在第10行代码中恢复窗体原有的高度。
       第6、7行代码将窗体中的DTP日历控件和功能按钮的Visible属性设置为False，使之隐藏，这样在打印时就不会被打印出来。
       第9行代码使用PrintForm方法打印窗体，PrintForm方法将UserForm对象的图象逐位发送到打印机，语法如下：
       object.PrintForm
        参数object代表对象表达式，其值为“应用于”列表中的对象。如果省略该参数，则把焦点所在的窗体当做object。
第11、12行代码重新显示窗体中的DTP日历控件和功能按钮。
       窗体打印后的效果如图所示。

yuanzhuping

原帖由 ayu330602 于 2009-5-6 23:04 发表

谢谢老师:
     我的第二个问题的意思是:当窗体弹出后,让第一列的宽度不能在窗体上变动,其它的列还是可以调整? 如果这样实现不了的话,全部不能调整应该可以的吧?
谢谢指导!
    另外请老师把改变光标中的手写字.cur文件贴上分享好吗?

好像没有办法使列的宽度不能调整，找不到相应的属性。

改变光标中的手写字，文件夹中有一个文件的。

yuanzhuping

技巧145         使用自定义颜色设置窗体颜色
       在用VBA进行设计时，会发现控件与颜色相关的属性中系统提供可选择的颜色太少。比如窗体的BackColor属性，如果需要把窗体的背景颜色设置为淡蓝色RGB(52,150,203)，可以在窗体初始化过程中对之进行设置，可以实现想要的效果，但是在设计时却不能看到最终效果。
       其实窗体的BackColor属性（包括ForeColor以及BorderColor等等这些设置颜色的属性）允许输入一个以十六进制表示的长整型数值，这样在设计时就看到效果。
       首先获取所需要的颜色值并以十六进制表示。还以上面的颜色为例，在立即窗口输入“? Hex(RGB(52,150,203))”可得到一个十六进制数据CB9634，然后把光标定位在窗体属性窗口的BackColor属性值中，删除原来的数值后，输入“&HCB9634&”后按<Enter>键，窗体颜色效果立即就出现了，如图所示。