Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск ячейки по 2м критериям и ввод в нее данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск ячейки по 2м критериям и ввод в нее данных (Макросы/Sub)
Поиск ячейки по 2м критериям и ввод в нее данных
Point Дата: Пятница, 11.12.2020, 15:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
Всем привет, помогите написать макрос в следующем ввиде. Пользователь заходит и видет кнопку которая выдает ему следующую форму скрин 1. Куда он вносит данные о вещи и дате (желательно открытие календаря при выборе даты) и в эту ячейку вносятся данные о введенном количестве в таблицу на скрине2
К сообщению приложен файл: 7616487.png (8.7 Kb) · 5421215.png (36.2 Kb)
 
Ответить
СообщениеВсем привет, помогите написать макрос в следующем ввиде. Пользователь заходит и видет кнопку которая выдает ему следующую форму скрин 1. Куда он вносит данные о вещи и дате (желательно открытие календаря при выборе даты) и в эту ячейку вносятся данные о введенном количестве в таблицу на скрине2

Автор - Point
Дата добавления - 11.12.2020 в 15:54
Point Дата: Воскресенье, 13.12.2020, 12:50 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
Прилагаю пример екселя
К сообщению приложен файл: 8053872.xlsx (15.0 Kb)
 
Ответить
СообщениеПрилагаю пример екселя

Автор - Point
Дата добавления - 13.12.2020 в 12:50
Point Дата: Понедельник, 14.12.2020, 09:40 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
Sub кнопочка_()
Dim i&, d As Range, n As Range
Set n = BD.Columns(2).Find([.formField1.value])
If Not n Is Nothing Then

Set d = BD(2).Find([.formField2.value])
If Not d Is Nothing Then
BD.Cells(n.Row, d.Column) = [.formField3.value]
Else
MsgBox "???? " & [C3] & " ?? ??????? ? ???? ??????.", vbExclamation
End If
Else
MsgBox "???????????? " & [C2] & " ?? ??????? ? ???? ??????.", vbExclamation
End If
End Sub

По прошлым темам, такой код сделал, никогда не работал с кнопочными формами и не знаю как обозначить поиск в строке ввода формы
 
Ответить
СообщениеSub кнопочка_()
Dim i&, d As Range, n As Range
Set n = BD.Columns(2).Find([.formField1.value])
If Not n Is Nothing Then

Set d = BD(2).Find([.formField2.value])
If Not d Is Nothing Then
BD.Cells(n.Row, d.Column) = [.formField3.value]
Else
MsgBox "???? " & [C3] & " ?? ??????? ? ???? ??????.", vbExclamation
End If
Else
MsgBox "???????????? " & [C2] & " ?? ??????? ? ???? ??????.", vbExclamation
End If
End Sub

По прошлым темам, такой код сделал, никогда не работал с кнопочными формами и не знаю как обозначить поиск в строке ввода формы

Автор - Point
Дата добавления - 14.12.2020 в 09:40
китин Дата: Понедельник, 14.12.2020, 10:13 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Point, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеPoint, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 14.12.2020 в 10:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск ячейки по 2м критериям и ввод в нее данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!