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

Вход

Регистрация

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

 

= Мир MS Excel/Нажал на флажок - появились данные на другом листе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нажал на флажок - появились данные на другом листе (Макросы Sub)
Нажал на флажок - появились данные на другом листе
rust00 Дата: Пятница, 03.01.2014, 22:33 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.
Есть данные, рядом с которыми расположены поля с флажками. Если поставить флажок, то в жёлтом поле появится данные.
В жёлтом поле к каждому флажку привязано то или иное слово.

Как сделать так, чтобы в жёлтом поле появлялись данные в том порядке, в котором были выбранны флажки и шли по порядку. от 1 до ......

Спасибо.
К сообщению приложен файл: 03012014.xls (32.5 Kb)
 
Ответить
СообщениеЗдравствуйте.
Есть данные, рядом с которыми расположены поля с флажками. Если поставить флажок, то в жёлтом поле появится данные.
В жёлтом поле к каждому флажку привязано то или иное слово.

Как сделать так, чтобы в жёлтом поле появлялись данные в том порядке, в котором были выбранны флажки и шли по порядку. от 1 до ......

Спасибо.
Автор - rust00
Дата добавления - 03.01.2014 в 22:33
KuklP Дата: Пятница, 03.01.2014, 23:34 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Зачем там флажки... Попробуйте, в модуль листа:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Intersect(Target, [b:B]) Is Nothing Then Exit Sub
     Cells(Rows.Count, 5).End(xlUp)(2).Value = Target
     Cancel = True
End Sub
[/vba]По двойному клику вставляются значения.
К сообщению приложен файл: 4369820.xls (36.0 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЗачем там флажки... Попробуйте, в модуль листа:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Intersect(Target, [b:B]) Is Nothing Then Exit Sub
     Cells(Rows.Count, 5).End(xlUp)(2).Value = Target
     Cancel = True
End Sub
[/vba]По двойному клику вставляются значения.
Автор - KuklP
Дата добавления - 03.01.2014 в 23:34
rust00 Дата: Суббота, 04.01.2014, 01:36 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Можно и так. Большое спасибо!

А если значения на другом листе? И много значений?
Как быть уверенным, что два клика сработало?


Сообщение отредактировал rust00 - Суббота, 04.01.2014, 03:21
 
Ответить
СообщениеМожно и так. Большое спасибо!

А если значения на другом листе? И много значений?
Как быть уверенным, что два клика сработало?
Автор - rust00
Дата добавления - 04.01.2014 в 01:36
artsanox Дата: Суббота, 04.01.2014, 09:04 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 6 ±
Замечаний: 0% ±

msgbox вам в помощь
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Intersect(Target, [b:B]) Is Nothing Then Exit Sub
     Cells(Rows.Count, 5).End(xlUp)(2).Value = Target
     MsgBox prompt:="Данные успешно внесены", _
     Title:="Внесение данных"
     Cancel = True
End Sub
[/vba]
 
Ответить
Сообщениеmsgbox вам в помощь
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Intersect(Target, [b:B]) Is Nothing Then Exit Sub
     Cells(Rows.Count, 5).End(xlUp)(2).Value = Target
     MsgBox prompt:="Данные успешно внесены", _
     Title:="Внесение данных"
     Cancel = True
End Sub
[/vba]
Автор - artsanox
Дата добавления - 04.01.2014 в 09:04
rust00 Дата: Суббота, 04.01.2014, 15:11 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Благодарю, всё работает! :)
 
Ответить
СообщениеБлагодарю, всё работает! :)
Автор - rust00
Дата добавления - 04.01.2014 в 15:11
SM Дата: Суббота, 04.01.2014, 16:25 | Сообщение № 6
Группа: Друзья
Ранг: Участник
Сообщений: 64
Репутация: 59 ±
Замечаний: 0% ±

2003
Цитата rust00, 04.01.2014 в 01:36, в сообщении № 3
А если значения на другом листе? И много значений?
Как быть уверенным, что два клика сработало?

Вариант с "флажками" (но не с Checkbox'ами - рисовать их двестивосемьдесятсемь штук - лениво).
Достаточно одной таблэтки выделить (или ДаблКликуть) ячейку с столбике с "галочками".
К сообщению приложен файл: 03012014-2-.xls (54.5 Kb)

Excel изощрён, но не злонамерен
 
Ответить
Сообщение
Цитата rust00, 04.01.2014 в 01:36, в сообщении № 3
А если значения на другом листе? И много значений?
Как быть уверенным, что два клика сработало?

Вариант с "флажками" (но не с Checkbox'ами - рисовать их двестивосемьдесятсемь штук - лениво).
Достаточно одной таблэтки выделить (или ДаблКликуть) ячейку с столбике с "галочками".
Автор - SM
Дата добавления - 04.01.2014 в 16:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нажал на флажок - появились данные на другом листе (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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