将文本框复制到单元格循环

Question

我在一个用户窗体上有 24 个文本框。我正在寻找一个循环来获取文本框 1 并将其值复制到“G7”，然后向下滚动到 G 列中的下一个单元格并复制文本框 2，依此类推

我目前正在单独复制每个文本框。我想在某些单元格合并时使用向下滚动

Range("G7").Value = TextBox1.Value
Range("G8").Value = TextBox2.Value
Range("G13").Value = TextBox3.Value
Range("G19").Value = TextBox4.Value

我只想简化这一点，因为我有 3 个不同的用户表单来执行此操作

我尝试了以下方法，但代码没有填充单元格：

Sheets("AssessCrit - PU").Select
Dim i As Long
For i = 1 To 24
With Me.Controls("TextBox" & i)
Range("G6").End(xlDown).Value = _
Array(TextBox1, TextBox2, TextBox3, .Value)
End With
Next i

我有一个可行的解决方案，谢谢大家的帮助：

Sub SelectNextVisibleCell(Rng As Range)
Dim Cel As Range
For Each Cel In Range(Rng.Offset(1, 0), Rng.Offset(1000, 0))
If Cel.EntireRow.Hidden = False Then
  Set Rng = Cel
  Exit Sub
End If
Next Cel
End Sub



Private Sub CommandButton1_Click()
Sheets("AssessCrit - PU").Range("G7").Select
Dim Rng As Range
Dim i As Integer

For i = 1 To 24
Set Rng = ActiveCell
Call SelectNextVisibleCell(Rng)
Rng.Select
Rng.Value = Me.Controls("TextBox" & i).Value
Next i

End Sub

Answer 1

您目前的问题似乎是单元格没有正确循环通过，这导致一个单元格被分配了一个文本框数组。

这应该可以解决您的问题，因为它会增加每个循环使用的单元格以及文本框：

Sheets("AssessCrit - PU").Select
Dim i As Long
For i = 1 To 24
    Range("G" & (6 + i)).Value = Me.Controls("TextBox" & i).Value
Next i
Me.Controls = Nothing

（我不经常使用 excel，主要关注 Access，所以如果此代码有任何错误，请告诉我要更改的内容。）

Answer 2

我认为这就是您想要实现的目标。从G7 开始，它会测试每个单元格的合并条件，如果是True，那么它将转到下一个单元格G8 进行测试。如果单元格未合并，它将复制文本框的值，直到复制文本框 24。

Sub SkipMergedCells()
i = 7
    For x = 1 To 24
        If Range("G" & i).MergeCells = True Then
            i = i + 1
            x = x - 1

        ElseIf Range("G" & i).MergeCells = False Then
            Range("G" & i).Value = Me.Controls("TextBox" & x).Value
            i = i + 1

        End If
    Next x
End Sub

更新以反映 ColG 中的合并单元格。

Sub SkipMergedCells()
i = 7
    For x = 1 To 24
        If Range("G" & i).MergeCells = True Then
            Range("G" & i).Value = Me.Controls("TextBox" & x).Value

                            Dim mRowCnt As Long
            mRowCnt = Range("G" & i).MergeArea.Cells.Count

            i = i + mRowCnt
            x = x

        ElseIf Range("G" & i).MergeCells = False Then
            Range("G" & i).Value = Me.Controls("TextBox" & x).Value
            i = i + 1

        End If
    Next x
End Sub