Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Hohlik
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Блокировка пересчета функции "сегодня". Или вставка даты макросом
 
#
07.06.2017 17:28:44
Ещё раз огромное спасибо!!!
 
Перейти    
Блокировка пересчета функции "сегодня". Или вставка даты макросом
 
#
07.06.2017 11:34:06
Так просто)))


Иван, спасибо вам огромное очень помогли)))

а этот скрипт при запуске программы срабатывает?  А то мне не проверить)))
 
Перейти    
Блокировка пересчета функции "сегодня". Или вставка даты макросом
 
#
07.06.2017 10:58:57
В общем вот!!

Это код
Код
Private Sub Worksheet_Calculate()
   Columns(45).Hidden = IIf([AS6] = 0, True, False)
   Columns(44).Hidden = IIf([AR6] = 0, True, False)
   Columns(43).Hidden = IIf([AQ6] = 0, True, False)
End Sub
В этом файле месяц ставится автоматом.
Если поставить птичку рябом с месяцами, то в дате "месяц" поменяется, и макрос пересчитает таблицу, скрыв или показав столбцы

Цитата
Hohlik написал:
Надо что-бы, Этот код сработал при запуске программы
и при выборе месяца в поле со списком (элемент управления формы)
а всё оставшиеся время молчал!
А то при каждом вводе значений таблица пересчитывается, и из-за этого не работает кнопка ctrl+z. А это жуть как не удобно!
Изменено: Hohlik - 07.06.2017 11:02:47
 
Перейти    
Блокировка пересчета функции "сегодня". Или вставка даты макросом
 
#
07.06.2017 09:49:13
Цитата
JayBhagavan написал:
Иван , на форуме негласное правило не помогать нарушителям. В данном случает ТС не оформляет код посредством кнопки  
Что это значит?
 
Перейти    
Блокировка пересчета функции "сегодня". Или вставка даты макросом
 
#
07.06.2017 09:44:11
Спасибо большое!
Но у меня что-то не фурычит))
Я вставил этот код в "эта книга", при запуске программы выдает ошибку:

Compile error:
Ambiguous name detected: Workboor_Open
Пробовал удалять свой код с листа. Всё равно выдаёт ошибку
и что сделать что бы код срабатывал и при втором условии
Цитата
Hohlik написал:
и при выборе месяца в поля со списком (элемент управления формы)

Извините. Но задавать буду самые глупые вопросы))

Изменено: Hohlik - 05.09.2017 09:50:33
 
Перейти    
Блокировка пересчета функции "сегодня". Или вставка даты макросом
 
#
07.06.2017 08:59:37
Я в VBA полный профан! Мне не так совет нужен, как помощь ))))
вот код
Код
Private Sub Worksheet_Calculate()
   Columns(45).Hidden = IIf([AS6] = 0, True, False)
End Sub

Надо что-бы, Этот код сработал при запуске программы
и при выборе месяца в поля со списком (элемент управления формы)
а всё оставшиеся время молчал!

Подскажите какими иероглифами обставить эту функцию, чтоб это чудо заработало???
Заранее благодарен!
 
Перейти    
Блокировка пересчета функции "сегодня". Или вставка даты макросом
 
#
07.06.2017 00:51:25
Как?
Уверен что на форуме эта тема обсуждалась, не поделитесь ссылкой?
Прочитал кучу статей ни чего похожего не нашёл((
Изменено: Hohlik - 07.06.2017 21:42:51
 
Перейти    
Блокировка пересчета функции "сегодня". Или вставка даты макросом
 
#
07.06.2017 00:27:45
Доброго времени суток!

У меня таблица (что-то, типо, календаря), естественно работает на основе функции "сегодня".
Так вот, т.к. в месяцах разное количество дней, Я прописал макрос, который прячет ненужные столбцы.
Ну и из-за того что "Сегодня" пересчитывается при каждом действии, то и макрос, соответственно, тоже срабатывает каждый рас. в следствии чего кнопка "отменить действие" не работает!

ВОПРОС!
1. Можно ли ограничить действие функции "Сегодня" тем, что оно пересчитается только при запуске. и не будет пересчитываться до закрытия книги?
или
2. Сделать так, что бы макрос сработал только при запуске и при нажатии кнопки "смена месяца" ?

Заранее благодарен!
 
Перейти    
Перенос части текста в другую ячейку 2, как перенести текс в ячейку №3 и №4
 
#
01.09.2016 10:25:10
Спасибо большое!!
То что надо)
Формула понятная, 4-ую строку сам сделаю))
 
Перейти    
Перенос части текста в другую ячейку 2, как перенести текс в ячейку №3 и №4
 
#
01.09.2016 09:46:18
Спасибо,

Но эта формула переносит текст не взирая на слова.
нужно что-бы она переносила по словам!
 
 
Перейти    
Перенос части текста в другую ячейку 2, как перенести текс в ячейку №3 и №4
 
#
31.08.2016 17:35:25
Вопрос такой.

Мне нужно длинный текст перенести в 4 ячейки, так чтобы он не заходил за поля бланка ( ячея №1 58символов, №2-90 символов, №3-90 , №4-90)

в теме Перенос части текста в другую ячейку есть пример переноса на вторую строчку. Но адоптировать эту формулу для третей и четвёртой ячейки Мне не удалось.


Заранее благодарен!
 
Перейти    
Страницы: 1
Наверх