поиска данных и добавление данных из TextBox в ячейки

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

поиска данных и добавление данных из TextBox в ячейки (Макросы/Sub)

sss1234

Дата: Среда, 04.06.2014, 16:44 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Столкнулась с такой проблемой как поиск данный по листам из ComboBox и добавление данных из TextBox в ячейки Excel. Так как не зная макрос,сделала форму и поместила на нее ComboBox и 14 TextBox. Суть такова что у нас имеет постоянные данные в таблице в столбце C. поэтому поместила ComboBox(его задача искать в столбцах С данные), а TextBox добавляет добавляет вводимые данные в ячекий в нужной строке

[vba]

Код

Private Sub CommandButton1_Click()

Dim i As Integer

Dim R As Range

For i = 4 To 100 Step 1
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i)
If R.Value = Empty Then
R.Value = TextBox1.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 1)
R.Value = TextBox2.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 2)
R.Value = TextBox3.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 3)
R.Value = TextBox4.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 4)
R.Value = TextBox5.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 5)
R.Value = TextBox6.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 6)
R.Value = TextBox7.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 7)
R.Value = TextBox8.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 8)
R.Value = TextBox9.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 9)
R.Value = TextBox10.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 10)
R.Value = TextBox11.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 11)
R.Value = TextBox12.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 12)
R.Value = TextBox13.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 13)
R.Value = TextBox14.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 14)

Exit For
End If
Next i

End Sub

[/vba]

Код

[/vba]sss1234

К сообщению приложен файл: 1919634.zip (88.3 Kb)

Сообщение отредактировал sss1234 - Среда, 04.06.2014, 16:45

Ответить

СообщениеСтолкнулась с такой проблемой как поиск данный по листам из ComboBox и добавление данных из TextBox в ячейки Excel. Так как не зная макрос,сделала форму и поместила на нее ComboBox и 14 TextBox. Суть такова что у нас имеет постоянные данные в таблице в столбце C. поэтому поместила ComboBox(его задача искать в столбцах С данные), а TextBox добавляет добавляет вводимые данные в ячекий в нужной строке

[vba]

Код

[/vba]

Автор - sss1234
Дата добавления - 04.06.2014 в 16:44

wild_pig

Дата: Среда, 04.06.2014, 21:23 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 518

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

Файл вроде на русском, а вот вопрос я даже не знаю.

Ответить

DJ_Marker_MC

Дата: Среда, 04.06.2014, 21:57 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

Цитата wild_pig, 04.06.2014 в 21:23, в сообщении № 2

Файл вроде на русском, а вот вопрос я даже не знаю.

Так и имя у девушки вроде русское в профиле...
А вот вопрос реально, такое ощущение что переводился с английского через гугл переводчик)))))

Если я правильно понимаю, то топикстартер хочет заменять уже внесенные в листы данные через эту же форму. Чтоб в комбобокс выбрать нужный элемент, а текстбоксы заполнились сразу автоматом и всё что нужно подправить, всё чего не хватает довнести и изменить.
Это единственное до чего довела фантазия))))

Ответить

RAN

Дата: Среда, 04.06.2014, 22:10 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата DJ_Marker_MC, 04.06.2014 в 21:57, в сообщении № 3

Так и имя у девушки вроде русское в профиле

Nastya [ Мужчина ] hands

Быть или не быть, вот в чем загвоздка!

Ответить

DJ_Marker_MC

Дата: Среда, 04.06.2014, 22:17 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

[offtop]сделала форму и поместила на нее
склоняюсь к тому что все таки девушка[/offtop]

Ответить

DJ_Marker_MC

Дата: Среда, 04.06.2014, 23:07 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

Я так до конца пока что и не вник что хотел автор, но первое что нужно сделать изначально, так это однозначно уменьшить код:

[vba]

Код

Private Sub CommandButton1_Click()
Dim i As Integer
Dim q As Integer
Dim R As Range
Dim Tb As MSForms.TextBox, TBN As String

For i = 4 To 100 Step 1
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i)
      If R.Value <> Empty Then
         For q = 1 To 14
              TBN = "TextBox" & q
              Set Tb = Me.Controls.Item(TBN)
              R.Value = Tb.Text
              Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + q)
              Exit For
          Next q
      End If
Next i
End Sub

[/vba]

Сообщение отредактировал DJ_Marker_MC - Среда, 04.06.2014, 23:07

Ответить

sss1234

Дата: Пятница, 06.06.2014, 15:53 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

что не понятного то?
спрашивайте, а не налетайте как грифы на падаль.

Ответить

sss1234

Дата: Пятница, 06.06.2014, 15:56 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата RAN, 04.06.2014 в 22:10, в сообщении № 4

Nastya [ Мужчина ]

Вас это так смущает?

Ответить

sss1234

Дата: Пятница, 06.06.2014, 15:59 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

такие все крутые тут
знатоки VBA))

Сообщение отредактировал sss1234 - Пятница, 06.06.2014, 16:02

Ответить

sss1234

Дата: Пятница, 06.06.2014, 16:01 | Сообщение № 10

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата DJ_Marker_MC, 04.06.2014 в 21:57, в сообщении № 3

Если я правильно понимаю, то топикстартер хочет заменять уже внесенные в листы данные через эту же форму. Чтоб в комбобокс выбрать нужный элемент, а текстбоксы заполнились сразу автоматом и всё что нужно подправить, всё чего не хватает довнести и изменить.
Это единственное до чего довела фантазия))))

браво