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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для ввода данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос для ввода данных
Мур Дата: Пятница, 11.02.2011, 23:16 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

Каждый раз когда обращаюсь на форум чувствую себя паразитом (Лирика)
В общем так: имеютя куча различных областей, куда ежедневно заносятся ФИО.
В областях установлена проверка данных(выпадающие списки).
Списки фамилий изменяются, и иногда их удобно заносить вручную, но бывает, например в выходной,
когда необходимо внести сразу, штук 60. Очень нудно сидеть и выбирать 60 или 80 фамилий из выпанающего списка.
Помогите решить эту проблему, может это будет макрос, который бы вносил значения из списка ФИО (словаря)?
Пример со своими эээ..... проблемами прикрепляю.
Заранее благодарен.
К сообщению приложен файл: 7390512.xls (43.5 Kb)
 
Ответить
СообщениеКаждый раз когда обращаюсь на форум чувствую себя паразитом (Лирика)
В общем так: имеютя куча различных областей, куда ежедневно заносятся ФИО.
В областях установлена проверка данных(выпадающие списки).
Списки фамилий изменяются, и иногда их удобно заносить вручную, но бывает, например в выходной,
когда необходимо внести сразу, штук 60. Очень нудно сидеть и выбирать 60 или 80 фамилий из выпанающего списка.
Помогите решить эту проблему, может это будет макрос, который бы вносил значения из списка ФИО (словаря)?
Пример со своими эээ..... проблемами прикрепляю.
Заранее благодарен.

Автор - Мур
Дата добавления - 11.02.2011 в 23:16
nilem Дата: Суббота, 12.02.2011, 11:35 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Может, что-то вроде этого?
К сообщению приложен файл: _7390512.xls (63.5 Kb)


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеМожет, что-то вроде этого?

Автор - nilem
Дата добавления - 12.02.2011 в 11:35
Мур Дата: Суббота, 12.02.2011, 12:57 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

Уважаемый Nilem в Вашем файле все нормально.
А если не привязываться к крестам. Есть диапазон,например A1:А20, в данном диапазоне могут быть от 1 до 20 ФИО.
Как их перенести в область заполнения. Я не умею писать коды, а как записать макрос до меня не доходит, потому что
количество фамилий в диапазоне А1:А20 варьирует.
И еще, как нарисовать кнопку в виде стрелки? Можно конечно скопировать из вашего примера, но интересно знать.
Спасибо!
 
Ответить
СообщениеУважаемый Nilem в Вашем файле все нормально.
А если не привязываться к крестам. Есть диапазон,например A1:А20, в данном диапазоне могут быть от 1 до 20 ФИО.
Как их перенести в область заполнения. Я не умею писать коды, а как записать макрос до меня не доходит, потому что
количество фамилий в диапазоне А1:А20 варьирует.
И еще, как нарисовать кнопку в виде стрелки? Можно конечно скопировать из вашего примера, но интересно знать.
Спасибо!

Автор - Мур
Дата добавления - 12.02.2011 в 12:57
nilem Дата: Суббота, 12.02.2011, 13:20 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Без крестиков даже проще - сиреневая стрелка. Сколько будет фамилий в ст. А, столько и запишутся в диапазон.
Стрелка - это стандартная автофигура: на ленте вкладка Вставка - Фигуры (в 2003 эти фигуры тоже должны быть).
На всякий случай, вот в этой строке (смотрим по Alt+F11):
Code
[f3].Resize(UBound(y, 1), UBound(y, 2)).Value = y

f3 - верхняя левая ячейка диапазона, куда переносятся фамилии. Поменяйте, если потребуется.
К сообщению приложен файл: 6534190.xls (41.5 Kb)


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеБез крестиков даже проще - сиреневая стрелка. Сколько будет фамилий в ст. А, столько и запишутся в диапазон.
Стрелка - это стандартная автофигура: на ленте вкладка Вставка - Фигуры (в 2003 эти фигуры тоже должны быть).
На всякий случай, вот в этой строке (смотрим по Alt+F11):
Code
[f3].Resize(UBound(y, 1), UBound(y, 2)).Value = y

f3 - верхняя левая ячейка диапазона, куда переносятся фамилии. Поменяйте, если потребуется.

Автор - nilem
Дата добавления - 12.02.2011 в 13:20
Мур Дата: Суббота, 12.02.2011, 13:29 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

В принципе это то что было нужно. Благодарю.....осталось попробовать в моем примере.
Попробую, если будут затруднения обращусь, если не возражаете.
 
Ответить
СообщениеВ принципе это то что было нужно. Благодарю.....осталось попробовать в моем примере.
Попробую, если будут затруднения обращусь, если не возражаете.

Автор - Мур
Дата добавления - 12.02.2011 в 13:29
nilem Дата: Суббота, 12.02.2011, 13:33 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Ну, заходи, если что... (с) smile


Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Суббота, 12.02.2011, 13:34
 
Ответить
СообщениеНу, заходи, если что... (с) smile

Автор - nilem
Дата добавления - 12.02.2011 в 13:33
Мур Дата: Понедельник, 14.02.2011, 16:11 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация: 19 ±
Замечаний: 0% ±

Добрый день Nilem. Продолжаю тему.
Прикрепляю пример.
К сообщению приложен файл: 2382071.xls (19.0 Kb)
 
Ответить
СообщениеДобрый день Nilem. Продолжаю тему.
Прикрепляю пример.

Автор - Мур
Дата добавления - 14.02.2011 в 16:11
nilem Дата: Понедельник, 14.02.2011, 18:31 | Сообщение № 8
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Теперь красная стрелка.
К сообщению приложен файл: _6534190-2.xls (42.0 Kb)


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеТеперь красная стрелка.

Автор - nilem
Дата добавления - 14.02.2011 в 18:31
Гость Дата: Понедельник, 14.02.2011, 21:05 | Сообщение № 9
Группа: Гости
biggrin Без коментариев!
Спасибо
 
Ответить
Сообщениеbiggrin Без коментариев!
Спасибо

Автор - Гость
Дата добавления - 14.02.2011 в 21:05
  • Страница 1 из 1
  • 1
Поиск:

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