设置“Me.Labelnn.BackColor”在具有许多标签的报告中使用 for nn=... 循环

Question

我有一份报告，就像一整周的每小时时间表。计划中的每个单元格为 1 台机器 1 天。每列是 7 台机器之一。因此，一行由 7 天的单元格组成。到目前为止一切顺利，但每天需要 18 行文本（一个备注字段）并且 - 每行都需要着色。我为 7 列中的每一列创建了 18 个编号为 Label33 及以上的标签。

我用相当大的 case 语句设置他们的 BackColor，其中有 7 个案例，每个案例有 18 x Labelnn.Backcolor=aColor 。

但是，我想用形成 control_name="Label" & 的内容替换它。 nn，然后执行类似 Me.control_name.BackColor=aColor 的操作。

可能的？如何？ （不，考虑到 VBA-Access 的灵活性，我还没有尝试过上述方法。）

Answer 1

Cody Gray 是正确的，但如果您不知道什么是控制数组，那么这没有任何帮助。

以下是 Excel VBA，但我对 Access VBA 也做过同样的事情，但最近没有。我认为语法是相同的，但我不保证它。

我创建了一个工作簿，插入了一个表单，将选定的控件拖到其上，然后运行以下代码：

Option Explicit
Sub TestControls()

  Dim InxC As Long

  Load UserForm1

  With UserForm1
    For InxC = 0 To .Controls.Count - 1
      Debug.Print .Controls(InxC).Name
    Next
  End With

End Sub

立即窗口的输出是：

Label1
CommandButton1
ComboBox1
CommandButton2
OptionButton1

您可以看到 Label1.xxx 与.Controls(0).xxx。我系统地命名我的控件，以便可以运行如下代码：

  With UserForm1
    For InxC = 0 To .Controls.Count - 1
      If Mid(.Controls(InxC).Name,1,5) = "lblXx" Then
        ' Code to set properties of all lblXx controls
      End If
    Next
  End With

当我不知道需要多少特定类型的控件时，我最常使用此功能。比如说，我创建了 10 个，这超出了我的需要，并且让它们全部隐形。

在运行时，我使那些我需要的可见，并根据需要设置它们的顶部和左侧属性。

Answer 2

我同意科迪·格雷的观点。使用控制数组。

这是一个可以帮助您的链接

http:// /www.siddharthroout.com/index.php/2018/01/15/vba-control-arrays/

虽然托尼为您提供了一种相对简单的方法，但在某些情况下您可能会添加或删除一个控件，或者只是搞乱顺序。另外，在某些情况下，您根本无法将标签保留为 Label1。您可能会向其中添加一些文本，以便它表示某些内容...

在这种情况下，请使用 TypeOf 而不是 Name

例如

Option Compare Database

Private Sub Command1_Click()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is Label Then
            Debug.Print ctl.Name
        End If
    Next ctl
End Sub