Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Загвоздка с макросом "активности пользователя"
 
#1
08.08.2012 15:27:30
Доброе время суток УВ форумчане!  
Есть сложность с макросом. Для листа содержание есть макрос  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Active_Row = Target.Row  
Cells(Active_Row, 14) = Cells(Active_Row, 1)  
Dim S As Integer  
S = 1  
End Sub  
 
 
Private Sub Worksheet_Deactivate()  
If S = 1 Then If MsgBox("Сохранить", 52, "Внимание!") <> vbYes Then Sheets("Содержание").Visible = False  
End Sub  
 
При изменениях на листе, содержимое первой ячейки копируется в N:N столбик, но на листе содержится список, при выборе значения значения списком "это" условие не срабатывает, работает только если занести данные в ручную. Как можно поправить? или есть    
возможность заставить список вызвать функцию, или изменить значение еще в одном месте при активации.  
 
И эта часть макроса  
Dim S As Integer  
S = 1  
совсем не работает.  
так как Sub Worksheet_Deactivate() никогда не отрабатывает...  
 
Подскажите пожалуйста как можно починить.  
Заранее благодарен!
 
 
 
#2
08.08.2012 15:48:27
Процедура Worksheet_Deactivate() ничего не знает про переменную S, объявленную в другой процедуре. Возможно, надо так:  
 
Dim S As Integer  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Active_Row = Target.Row  
Cells(Active_Row, 14) = Cells(Active_Row, 1)  
S = 1  
End Sub  
 
Private Sub Worksheet_Deactivate()  
 
'если были изменения, смотрим P1'  
If S = 1 Then If MsgBox("Сохранить?", 52, "Внимание!") <> vbYes Then Sheets("Содержание").Visible = False: S = 0  
End Sub
 
 
 
#3
08.08.2012 15:50:48
.
Я сам - дурнее всякого примера! ...
 
 
 
#4
08.08.2012 15:52:56
Большое спасибо, "Сохранение заработало", а по поводу не срабатывания Worksheet_Change(ByVal Target As Range)  
при выборе значений из списка, а не занесением их в ручную, есть идеи?
 
 
 
#5
08.08.2012 15:56:18
Вы мой файл смотрели? Заносит в N1. Кто знает куда Вам надо...
Я сам - дурнее всякого примера! ...
 
 
 
#6
08.08.2012 16:02:20
Простите, проглядел, мне нужно, чтоб значение было в столбце N, в той строке где находится список. Список всегда находится во втором столбце. Может можно передать координатами как-то так  
iCount  - строка в которой находится текущий список  
   ft = Cells(iCount, 3).Top  
   fl = Cells(iCount, 3).Left  
   fw = Cells(iCount, 3).Width  
   fh = Cells(iCount, 3).Height
 
 
 
#7
08.08.2012 16:10:14
Вы что, список по столбцу тягать собираетесь?
Я сам - дурнее всякого примера! ...
 
 
 
#8
08.08.2012 16:13:17
См. как позиционировать шейп.
Я сам - дурнее всякого примера! ...
 
 
 
#9
08.08.2012 16:15:13
У меня их много, макрос читает из базы значения, каждая строчка товар, с ценой, скидкой и т.д. в зависимости от того что выбрано в списке, меняется формула расчета, а если не меняется, то меняется сумма сделки. На основе активности пользователя, я при сохранении решаю какие изменения заносить в базу данных, а какие не изменились. На мой взгляд это быстрее чем пересматривать и сравнивать все.
 
 
 
#10
08.08.2012 16:45:05
Солоноват для меня пример... но придумал обходной спосою.  
Получается так... у меня всегда номер элемента ComboBox будет соответствовать строке, то есть ComboBox56, это строчка 56. Можно ли как-то узнать имя, активированного бокса? если да, то тогда будет работать для всех, что-то типа этого  
Private Sub ComboBoxN_Change()  
Application.EnableEvents = 0  
Form = ActiveSheet.Shapes.Range(Array(Form)).Name  
'Правда нужно будет узнать цифры из имени формы'  
Cells(Form, 14).Value = 1  
Application.EnableEvents = -1  
End Sub
 
 
 
#11
08.08.2012 16:57:52
Я просто, только начал с макросами знакомится...)
 
 
 
#12
08.08.2012 17:05:13
Очередной мильёнщик!  
ComboBox56, это строчка 56 - уже страшно.  
Здесь кошки. Тренируйтесь.  
http://www.excelworld.ru/forum/2-2065-1
 
 
 
#13
08.08.2012 17:08:34
razmus, плодить комбобоксы на листе по к-ву строк, это изначально ошибочный путь. Даже если Может Вам сделать списки проверки данных, что гораздо проще и не так утяжелит файл?
Я сам - дурнее всякого примера! ...
 
 
 
#14
08.08.2012 18:30:34
KukLP  
Согласен, вы правы, в остальных местах я использовал боксы из-за возможностей поиска, но здесь без них можно обойтись. Сделал проверки, решило проблему отслеживания изменений, но породило новую, теперь при выборе значения из "проверки" макрос отслеживания срабатывает, но потом вылетает в дебаг "на нем".... может для проверок в нем нужно что-то поправить?  
Dim S As Integer  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Active_Row = Target.Row  
Cells(Active_Row, 14) = Cells(Active_Row, 1)  
S = 1  
End Sub  
 
З.Ы.  
Бокси создаются только по запросу, а по окончании работы с ними удаляются, так что размер файла от их количества совершенно не зависит.  
 
RAN  
Спасибо, обязательно посмотрю
 
 
 
#15
08.08.2012 18:33:23
Дебаг говорит, MetHod '_Default' of object 'Range' Failed
 
 
 
#16
08.08.2012 19:08:49
ВБА не понимает такой записи "Cells(Active_Row, 14) = Cells(Active_Row, 1)". Укажите, какое именно свойство должна получить целевая ячейка.
 
 
 
#17
08.08.2012 22:05:02
Если написать Cells(Active_Row, 14).Value = Cells(Active_Row, 1).Value  
Дебаг говорит, MetHod 'Value' of object 'Range' Failed  
Так что видимо не в этом дело
 
 
 
#18
09.08.2012 11:33:12
После удаления с листа, ComboBox все заработало так как нужно.  
Большое спасибо всем кто откликнулся!
 
 
 
Страницы: 1
Читают тему
Наверх