vba 循环遍历文本框，然后将值放在一系列单元格中

Question

我有另一个关于用户窗体中的循环和文本框的新手场景。

这是单击“保存”命令按钮时我想要完成的操作。

1. 一个循环遍历名称以“co”开头并以数字 1-15 结尾的每个文本框。
2. 如果该文本框中有值，则代码将该值添加到指定范围内的第一个单元格，然后移动到下一个文本框和单元格。

下面是包含单元格范围和用户表单的工作表图像。

WS 和用户窗体

我的代码是否在正确的轨道上？或者有没有更有效的方法可以在没有循环的情况下做到这一点？提前感谢您对此提供的帮助。

Private Sub SandCont_Click()
    Dim wb As Workbook
    Dim wsJHA As Worksheet
    Dim wsRange1b As Range
    Dim wsRange1c As Range
    Dim wsRange2 As Range
    Dim wsRange3 As Range
    Dim wsRange4 As Range
    Dim wsRange5 As Range
    Dim wsRange6 As Range
    Dim wsRange7 As Range
    Dim wsRange8 As Range
    Dim wsRange9 As Range
    Dim wsRange10 As Range
    Dim c As Control
    Dim i As Integer    'used to loop through cells in ranges listed below???
    Dim x As String     'will be first two characters of textbox name
    Dim y As String     'will be last character of textbox name
    Dim z As Integer    'used to loop through textboxes on userform???

    Set wb = Application.ThisWorkbook
    Set wsJHA = wb.Sheets("JHA Keying")
    Set wsRange1b = wsJHA.Range("B4:B11")
    Set wsRange1c = wsJHA.Range("C4:C11")


    For Each c In Me.Controls
        If TypeName(c) = "TextBox" Then
            x = Left(c.Name, 2)
            y = Right(c.Name, 3)
            If x = "co" And y <= "015" Then
                wsRange1b.Value = c.Value
            End If
        End If
    Next c

'    Application.ThisWorkbook.Save

End Sub

Answer 1

你应该这样检查文本框的名称：

If c.Name Like "co*0[0-1][0-5]" Then...

说明：

• co - 匹配 'co' 字面意思
• * - 匹配任意数量的任意字符
• 0 - 匹配零
• [0-1] - 匹配 0 到 1 范围内的数字
• [0-5] - 匹配 0 到 5 范围内的数字