假如有30个标签,代码怎么写?
像这样写重复太多Controls("A1").Visible = True
Controls("A1").Visible = False
代码语句怎么写,那位仁兄知道?非常感谢。
如何显示和隐藏VBA控件中的多个标签?
不要用标签的名字,用标签的INDEX号就可以完美的解决你的问题!使用简单的循环就可以一下子关掉30个标签!如果在循环里加上一些条件,则可以选择性的关掉一些标签!基本上VB里所有控件的子列都有INDEX值的!
vb怎么让多个标签控件交替隐藏显示
1、是用框架控件,将你要显示和隐藏的标签放入框架内,只需显示或隐藏框架控件即可。2、是用循环:将语句中的“A1”换成循环变量即可。注意标签编号是从0开始的。
如何显示和隐藏VBA控件中的按钮?
显示和隐藏VBA控件中的按钮直接设置如下的命令即可:Sub s()CommandButton1.Visible = False'隐藏按钮CommandButton1 CommandButton1.Visible = True'显示按钮CommandButton1 End Sub Sub 过程是包含在 Sub 语句和 End Sub 语句中的一系列 Visual Basic 语句。每次调用过程时都执行过程中的语句,从 Sub ...
如何显示和隐藏VBA控件中的按钮?
rivate Sub CommandButton1_Click();If Me.Columns("B").Width = 0 Then;Me.Columns("B").Hidden = False;Me.Columns("D").Hidden = False;Me.Columns("F").Hidden = False;Else Me.Columns("B").Hidden = True;Me.Columns("D").Hidden = True;Me.Columns("F").Hidden = T...
VBA里有多个 LABEL,怎样用语句得到当前LABEL名称的编号
'在窗体上添加一个标签,默认名Label1,然后对着它点右键-复制,再在窗体空白处点右键-粘贴-是,根据需要多次粘贴,得到一个控件数组。然后将代码复制到代码窗口试试。Private Sub Label1_Click(Index As Integer)For I = 0 To Label1.Count - 1 Label1(I).BackColor = &H8000000F Next Label1...
如何设置EXCEL VBA控件用来显示窗体查询的列表
1.打开一个空的excel文件 按alt+f11 2.鼠标右键单击工程资管管理器中的 this workbook 单击插入 用户窗体 3.当即工具箱工具栏标签 激活工具箱窗口 4.在工具箱中分别将标签 文本框和按钮拖动到用户窗体 拖动两个按钮 如下图三个颜色的工具箱工具 对应拖动到用户窗体上的三个实际效果 三个效果已经...
VBA中我有很多个label,每个label按一下改变其背景色,
4 Label1(4).ForeColor = &HC0C0FF End Select End Sub 另外给你补充:多个窗口先引用Form,比如你有Form1、Form2、Form3等,你就判断if Form1.Label55.BackColor() = &H8000000F Then...然后纠正下,me.hide是隐藏当前窗体,关闭是unload me。其实不用写Call,引用判断就行了,简单又方便!
access中vba的dlookup语句如果查询到多个符合条件的结果怎完全显示出来...
你不能直接用查询语句吗?一个文本框怎么可能显示四个影响行数据?那就不要让他文本框显示啊,要么用子报表、要么用自窗体或者表格。直接用SQL语句就解决了:表格控件数据源直接指向查询:Me.RecordSource="Select * From 表 where 你要的条件"Me.Refresh Me.DataGrid1.DataSource=Me ...
Excel VBA窗体控件中的复合框怎么显示sheet1中A1:A10单元格的内容
步骤如下:Sheet1的A1:A10中有如下内容 插入窗体,并插入一个复选框 双击窗体,添加如下代码 按F5执行代码,结果如下:
VBA中窗体中多页控件获取焦点和ESC键问题
在UserForm1窗体中添加一个按钮,名为cmdexit,将此按钮属性的Cancel值设置为True,将其Click事件编写代码为退出窗体即可。如下:Private Sub cmdexit_Click()Unload UserForm1 End Sub 一个窗体只能有一个按钮的cacel值为true,可以把这个cmdexit按钮尽量缩小,放在显示区域之外。这样在任何时候按一下ESC...