Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Активировать ячейку кодом
 
#1
06.06.2018 11:25:56
Ребята здравствуйте! вопрос покажется странным, но у меня с ним загвоздка, а именно, при вызове календаря  в коде хоть и прописал активную ячейку, но если изначально кликнуть на другую ячейку дата устанавливается в двух ячейках, а хотелось бы только в той в которой прописано в коде. пример приложил.
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#2
06.06.2018 11:29:58
Так ведь сами две прописали:
Код
Private Sub Calendar1_Click()
     ActiveCell = Calendar1.Value
     ActiveCell.NumberFormat = "dd/mm/yyyy"
     [B1].Activate
     [B1] = Calendar1.Value
End Sub

P.S. у меня код вообще не работает, ибо нет этого календаря.
 
 
 
#3
06.06.2018 11:32:11
так прописал а кликните на другую ячейку, а потом вызовите календарь и установите дату, дата покажется в двух ячейках
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#4
06.06.2018 11:33:47
Дмитрий Дунаев, Вы записываете в активную и в В1. Сами ведь так указали.
 
 
 
#5
06.06.2018 11:33:51
Цитата
Hugo написал:
P.S. у меня код вообще не работает, ибо нет этого календаря.
да да простите упустил из виду, поправлюсь
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#6
06.06.2018 11:37:54
думаю так понятнее будет
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#7
06.06.2018 11:42:02
Дмитрий Дунаев, файлы не смотрел, но, отталкиваясь от кода, который привел Игорь в #2 - Вы СНАЧАЛА записываете в активную ячейку (любую), а потом  принудительно активируете ячейку В1 - вот и получаете в двух ячейках. Уберите из кода упоминание В1 и получите запись только в активной..
 
 
 
#8
06.06.2018 11:51:36
убирал , может и не правильно  но ни чего не изменилось
Код
If Not Application.Intersect(Range("B1"), Target) Is Nothing Then 'было

.....

If Not Application.Intersect(Range(" "), Target) Is Nothing Then 'убрал
Изменено: Дмитрий Дунаев - 06.06.2018 11:52:01
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#9
06.06.2018 11:55:50
Да не там убрали... См. #2.
 
 
 
#10
06.06.2018 11:59:31
да я понял, и у меня выводится только там где активна ячейка, но мне бы хотелось бы не там где активна а там где принудительно "должна быть дата" не зависимо от первоначальной активности ячейки, вот я и попробовал принудительно кодом активировать ячейку но не получается, что то можно сделать?  
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#11
06.06.2018 12:03:03
Объясните толком: нужно в активную или в В1?
 
 
 
#12
06.06.2018 12:06:26
конкретно в B1  
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#13
06.06.2018 12:07:23
Зачем тогда активировать?
Код
Private Sub Calendar1_Click()
     'ActiveCell = Calendar1.Value
     'ActiveCell.NumberFormat = "dd/mm/yyyy"
     '[B1].Activate
     [B1] = Calendar1.Value
End Sub
 
 
 
#14
06.06.2018 12:12:27
активируйте кликом любую другую ячейку, и у вас дата появится в двух местах, а хотелось бы исключить этот момент, т.е. дата прописывается и в активную ячейку и в ту которая прописана кодом а хотелось бы исключить запись в активную ячеку
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#15
06.06.2018 12:15:58
Дмитрий Дунаев, Вы использовали код из #13 (с закомментированными строками) и у Вас дата появляется в двух ячейках?
 
 
 
#16
06.06.2018 12:23:24
Помнится там в коде самого календаря бывало указание куда писать дату. Сейчас этого у меня нет вообще.
 
 
 
#17
06.06.2018 12:27:02
У меня тоже нет этого календаря...
Дмитрий Дунаев, используйте календарь из стандартных элементов - найдите его в "Копилке". Автор Слэн. Хорошая штука - работает везде.
 
 
 
#18
06.06.2018 13:10:37
Встроил в Ваш файл календарь Слэна.
 
 
 
#19
06.06.2018 14:19:28
да конечно я тоже посидел внедрил в свой проект, спасибо!
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
Страницы: 1
Наверх