控件跟随活动单元格vba代码
2016年8月10日
作者: 来源:
在工作表中使用控件时一般都把控件放在工作表的上部,如果工作表中数据较多,当页面滚动到工作表下面的区域时,控件会离开当前可视区域,这时操作起来很不方便。解决方法除了冻结工作表的第一行放置控件的外,还可以使控件出现在选定的单元格位置,如下面的代码所示。 #001 Private Sub Worksheet_SelectionChange(ByVal Target As Range) #002 With Me.CommandButton1 #003 .Top = Target.Top #004 .Left = Target.Left + Target.Width #005 End With #006 End Sub 代码解析: 工作表的SelectionChange事件,使工作表中的按钮控件出现在选定单元格的右边。 第3行代码,设置按钮的Top属性等于选定单元格的Top属性。Top属性设置对象顶端到第一行顶端的距离。 第4行代码,设置按钮的Left属性等于选定单元格的Left属性加上选定单元格的宽度,即按钮出现在选定单元格的右边。Left属性设置对象左边界至 A 列左边界的距离。 当单击工作表区域的任一单元格,按钮出现在单元格的右边。
阅读:1949
上一则:阿拉伯数字转英文vba代码
下一则:在窗体中高亮显示按钮
|