powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добавление значения из TextBox в ячейку EXCEL по условиям выбранным из ComboBox
6 сообщений из 6, страница 1 из 1
Добавление значения из TextBox в ячейку EXCEL по условиям выбранным из ComboBox
    #39382152
ershov_pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Люди добрые, приветствую вас!))) Мне нужна ваша помощь в решении одной проблемки! С макросами столкнулся первый раз и наверно единственный. Для работы нужно создать файл, для ведения причин поломок насосов и в какие годы был больший процент поломок. Файл примерно составить получилось. Вот только не могу заставить макрос вписывать определенные значения по критериям в нужные ячейки на определенных листах в таблицы.
Есть файл "Статистика", в нем уже начал делать макрос, но основной файл, где необходимо организовать работу макроса, называется "статистика малыш()", в нем есть кнопка "заполнить", она находится на 1-ом листе. При заполнении сотрудником, он выбирает из выпадающего списка. combobox1 - год изготовления, combobox2 - месяц изготовления, combobox3 - причина поломки. Суть этого макроса: в зависимости от выбранных строк заносить информацию таблицу в виде цифры введенную в (TextBox1) соответствующую ячейку.
Пример: Есть на заводе слесарь, он ремонтирует насосы. После каждого дня он заполняет таблицу с данными (год выпуска, месяц выпуска и причина поломки насоса). Чтобы упростить заполнение файла сотруднику ОТК, я пытаюсь сделать макрос (в файле "статистика малыш ()", реализована кнопка "заполнить" и основное окно для внесения данных), но не могу настроить макрос чтобы он вносил информацию в определенную ячейку (хочу сделать, чтобы макрос в ячейке просто суммировал данные введенные в TextBox1). Допустим сегодня слесарь сделал два насоса изготовленные 01.2016 - причина поломки "Сгорел магнит (нет соударения)", пять насосов изготовленные 05.2016 - причина поломки "Обрыв винтов". При заполнении таблицы на соответствующем листе "2016" (лист называется 2016), в столбце месяц и в строке причина поломки - ставиться цифра равная количеству отремонтированных насосов (2 насоса изг 01.2016 - 2 и 5 насосов изг 05.2016 - 5). Завтра сотрудник отк опять вносит отремонтированные насосы. 1 насос изг 01,2016 и 3 насоса 05.2016. В таблице в ячейках ставиться уже за место 2 насосов, 3 насоса 01.2016 и 8 насосов 05.2016. Прилаживаю файлы с таблицей и макросом, плюс скрины.
...
Рейтинг: 0 / 0
Добавление значения из TextBox в ячейку EXCEL по условиям выбранным из ComboBox
    #39382156
ershov_pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Добавление значения из TextBox в ячейку EXCEL по условиям выбранным из ComboBox
    #39382158
ershov_pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Добавление значения из TextBox в ячейку EXCEL по условиям выбранным из ComboBox
    #39382159
ershov_pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Добавление значения из TextBox в ячейку EXCEL по условиям выбранным из ComboBox
    #39383826
ershov_pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нашел решение! Может кому пригодиться!


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub CommandButton1_Click()
Dim FR As Range, cl%, rw%
With Sheets(ComboBox1.Text)
Set FR = .Range("A1:CC1000").Find(ComboBox2.Text)
If FR Is Nothing Then MsgBox "месяц не найден": Exit Sub
cl = FR.Column
Set FR = .Range("A1:CC1000").Find(ComboBox3.Text)
If FR Is Nothing Then MsgBox "причина поломки не найдена": Exit Sub
rw = FR.Row
.Cells(rw, cl) = .Cells(rw, cl) + TextBox1.Value
End With
   Unload UserForm1
   MsgBox "Информация добавлена!", vbInformation, "База"
End Sub
...
Рейтинг: 0 / 0
Добавление значения из TextBox в ячейку EXCEL по условиям выбранным из ComboBox
    #39383828
ershov_pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добавление значения из TextBox в ячейку EXCEL по условиям выбранным из ComboBox
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]