Как перебрать коллекцию текстового поля и диапазона - PullRequest
Новая
       6

Как перебрать коллекцию текстового поля и диапазона

0 голосов
/ 23 ноября 2018

Я новичок в vba, и мне не удается сделать то, что я хочу, хотя это очень просто.

Мне нужно автоматически добавить значения текстового поля из пользовательской формы на мой второй лист.Например, в каждом текстовом поле я предоставляю целое число и хочу поместить эти значения 1 на 1 в диапазоне C5:C52.У меня есть следующий код, который проходит через мою коллекцию текстовых полей и диапазон C5:C52 

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

    For Each txtBox In clcTxt
        For Each cell In rng
            cell.Value = CInt(txtBox)
        Next cell
    Next txtBox

    Unload Me

End Sub

Однако результаты не то, что я ожидаю.Он печатает только последнее значение текстового поля во всех диапазонах.Но я хочу, чтобы все значения в одном и том же порядке были созданы.

Надеюсь, я дал четкие объяснения.Что вы думаете?

Большое спасибо за вашу помощь.Lyess

1 Ответ

0 голосов
/ 23 ноября 2018

Вроде так: 

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

End Sub

...