VBA常用技巧代码解析

ykx042907 · 发表于 2009-5-6 17:10

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

liuming168 · 发表于 2009-5-6 21:55

学习再学习

ayu330602 · 发表于 2009-5-6 22:44

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

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

ayu330602 · 发表于 2009-5-6 23:04

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

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

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

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

yuanzhuping · 发表于 2009-5-7 07:18

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

#001 Private Sub UserForm_Initialize()
#002 With Me
#003 .StartUpPosition = 0
#004 .Left = 500
#005 .Top = 300
#006 End With
#007 End Sub

复制代码

代码解析：
   窗体的初始化事件，在窗体加载时设置其显示位置。
   第3行代码，将窗体的StartUpPosition属性设置成手动。
   StartUpPosition属性返回或设置一个值，用来指定窗体第一次出现时的位置，设置值如表格所示。

   StartUpPosition属性可以在程序中设置，也可以在窗体的属性窗口中设置。
   第4、5行代码，设置窗体的Left属性和Top属性，使其加载时显示在屏幕的右下角。
   经过设置后的窗体加载时显示位置如图所示。

yuanzhuping · 发表于 2009-5-7 07:30

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

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

#001 Private Sub CommandButton1_Click()
#002 Dim ActiveCellX As Integer
#003 Dim ActiveCellY As Integer
#004 ActiveCellX = ExecuteExcel4Macro("GET.CELL(44)")
#005 ActiveCellY = ExecuteExcel4Macro("GET.CELL(43)")
#006 With UserForm1
#007 .Show 0
#008 .Top = ActiveCellY
#009 .Left = ActiveCellX
#010 End With
#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参数取得鼠标的坐标，如下面的代码所示。
#

001 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
#002 With UserForm1
#003 .Show 0
#004 .Top = Target.Top
#005 .Left = Target.Left
#006 End With
#007 End Sub

复制代码

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

roi19741109 · 发表于 2009-5-7 08:35

yuanzhuping · 发表于 2009-5-7 10:41

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

#001 Private Sub CommandButton7_Click()
#002 Dim myHeight As Integer
#003 Application.ScreenUpdating = False
#004 With UserForm1
#005 myHeight = .Height
#006 .DTPicker1.Visible = False
#007 .Frame1.Visible = False
#008 .Height = myHeight - 30
#009 .PrintForm
#010 .Height = myHeight
#011 .DTPicker1.Visible = True
#012 .Frame1.Visible = True
#013 End With
#014 Application.ScreenUpdating = True
#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 · 发表于 2009-5-7 10:47

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

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

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

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

yuanzhuping · 发表于 2009-5-7 11:09

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

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

询问

努力啊同志们

回复 955楼 ykx042907 的帖子

第8部分控件与用户窗体

点评

评分

回复 5楼 yuanzhuping 的帖子

评分

第8部分控件与用户窗体

评分

第8部分控件与用户窗体

浏览过的版块

VBA常用技巧代码解析

询问

努力啊同志们

回复 955楼 ykx042907 的帖子

第8部分 控件与用户窗体

点评

评分

回复 5楼 yuanzhuping 的帖子

评分

第8部分 控件与用户窗体

评分

第8部分 控件与用户窗体

浏览过的版块

第8部分控件与用户窗体

第8部分控件与用户窗体

第8部分控件与用户窗体