Через форму я хочу вернуть значение в столбец - PullRequest
Новая
       19

Через форму я хочу вернуть значение в столбец

1 голос
/ 30 марта 2020

Private Sub CommandButton2_Click () 

Dim Which_Day As Integer
Dim Damage_Average As Integer
Dim Counter As Integer

Which_Day = CByte(TextBox1.Value)

For Counter = 1 To 29 'Loops for 29 members
Damage_Average = Range("g" & Counter + 1).Value 'Reads value of celles, column G
Range("i" & Counter + 1).Value = Damage_Average

Next

End Sub

Теперь ... Я добавил вышеупомянутое к кнопке выполнения в FORM. ФОРМА имеет одно поле ввода, которое просто спрашивает: «В какой день вы хотите экспортировать данные?»

Если «1» возвращается как значение в поле ввода, я хочу, чтобы значение было возвращено в столбец «i» , как указано выше. Если «2» возвращается в качестве значения в поле ввода, я хочу, чтобы значение возвращалось в столбец «j». Если «3» возвращается в качестве значения в поле ввода, я хочу, чтобы значение возвращалось в столбец «k», et c. et c ..

Я не могу заставить его работать - Есть предложения?

...