Страницы: 1
RSS
Автозаполнение через форму с прогрессией
 
Доброго времени суток, хочу узнать есть ли возможность выполнить автозаполнение через форму ввода. Уже сделал добавление из одного поля форм на лист и незнаю как сделать автозаполнение большого количества ячеек одного столбца данными из поля формы.
Так же хочу сделать автозаполнение с прогрессией(через форму вводится первое значение а каждая следующая заполняемая ячейка должна быть на 1 больше исходной)
Делал такие автозаполнения макросами но сейчас нужно через форму.  

Пример прилагается.
Заранее благодарен.
 
Цитата
хочу сделать автозаполнение с прогрессией
Код
Private Sub CommandButton1_Click()
rk = Sheets("Лист1").Columns("A").Rows(65000).End(xlUp).Row + 1
With Sheets("Лист1")
  .Cells(rk, 1).Resize(Me.TextBox2.Value) = Me.TextBox1.Value
  .Cells(rk, 2) = 1
  .Cells(rk, 2).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
       Step:=1, Stop:=Me.TextBox2.Value
End With
End Sub
 
Спасибо за Ваши усилия!
я немного неточно высказал суть...
на форме по 2 поля для каждого столбца.
столбец А: первое поле - текст, второе поле это количество  повторений вниз по столбцу(примерно так оно и работает по коду Kuzmich).

столбец В: в первое поле вводится цифра из которой начинается отсчет, второе поле - количество строк которые должна заполнить прогрессия
 
Код
Private Sub CommandButton1_Click()
  rk = Sheets("Лист1").Columns("A").Rows(65000).End(xlUp).Row + 2
With Sheets("Лист1")
  .Cells(rk, 1).Resize(Val(Me.TextBox2)) = Me.TextBox1.Value
End With
End Sub

Private Sub CommandButton2_Click()
  rk = Sheets("Лист1").Columns("B").Rows(65000).End(xlUp).Row + 2
With Sheets("Лист1")
  .Cells(rk, 2) = Val(Me.TextBox3)
  .Cells(rk, 2).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
       Step:=1, Stop:=Val(Me.TextBox3) + Val(Me.TextBox4) - 1
End With
End Sub
Изменено: Kuzmich - 20.02.2020 18:38:23
 
То что мне нужно!
Спасибо большое!
Страницы: 1
Наверх