Question

我有一种情况需要根据所选语言填充用户表单上的标签。

工作表2包含C列中的标签名称列表，从第9行开始，相邻的列D到F包含每个标签应基于所选语言的标题文本。选择语言使用表示要使用的列的数字填充单元格C2，即列4,5或6（languageCol）。我尝试了以下代码的各种迭代，但我无法填充标签。

Dim Cell As Range
Dim l As Integer
Dim languageCol As Integer

languageCol = Sheet2.Range("C2")

For Each Cell In Sheet2.Range("C9", Sheet2.Cells(Rows.Count, "C").End(xlUp)).Cells
    For l = 1 To 5
        Me.Controls("frm_Details" & l).Caption = Cell.Offset(, languageCol).Text
    Next l
Next Cell

Answer 1

解决了它。问题是我如何为表单上的每个控件定义名称。

下面的解决方案

For Each Cell In Sheet2.Range("C9", Sheet2.Cells(Rows.Count, "C").End(xlUp)).Cells
    Me.Controls(Cell.Text).Caption = Cell.Offset(, languageCol).Text
Next Cell

填充用户表单标签

1 个答案: