Question

我是second way的新手，尽管很简单，但我无法做到自己想做的事。

我需要自动将用户窗体中的文本框值添加到第二张工作表中。例如，在每个文本框中，我提供一个整数，并且我希望将此值1 {1}放在范围[ngStyle]="{'background-image': 'url(' + bgImageVariable + ')'}"上。我有以下代码遍历我的文本框集合和范围vba

C5:C52

但是结果不是我期望的。它仅显示所有范围内的最后一个文本框值。但是我希望创建相同顺序文本框中的所有值。

我希望我做出明确的解释。你觉得呢？

非常感谢您的帮助。赖斯

Answer 1

像这样：

Sub remplissageTab()
Dim rng As Range
Dim Rw as Long
Set rng = Sheets("Câbles").Range("C5:C52")

For Each txtBox In clcTxt
    rng.Offset(Rw).Value = CInt(txtBox)
    Rw = Rw + 1
Next txtBox
Unload Me

结束子

如何遍历文本框和范围的集合

1 个答案: