ВПР с календарем не дружит.

[staniiislav]

Здравствуй форумчане.
Нашел календарик сделанный формой и макросами. Попытался применить к своему файлу, но столкнулся с проблемой, что впр не работает. Подскажите как подправить? И еще что нужно закоментировать, чтобы при нажатии отмена на календаре, не стиралась дата и при нажатии Del макрос не выдовал ошибку?
Спасибо!
Вот файлук

[EducatedFool]

Попробуйте эту надстройку для выбора дат в ячейках листа Excel: http://excelvba.ru/tools/DatePicker

Запускаете надстройку, открываете свой файл, выделяете ячейку с датой, - справа появляется кнопочка выбора даты.

[VictorM]

Посмотрите, так вроде "дружит"))

[staniiislav]

Сообщение от EducatedFool

Попробуйте эту надстройку для выбора дат в ячейках листа Excel: http://excelvba.ru/tools/DatePicker

Запускаете надстройку, открываете свой файл, выделяете ячейку с датой, - справа появляется кнопочка выбора даты.

Спасибо огромное, отличный календарь!
Есть три вопроса:
1) если я просто переместил все модуля и код из рабочий книги календаря, все данные в свой документ экселя, не будет проблем с документом, например не будет ссылаться на (C:\Program Files\Microsoft Office\OFFICExx\XLSTART) или может быть есть какие не будь проблемы из-за переноса календаря?
2) у меня на одном из листов стоит вот-такая процедура:

'Private Sub Worksheet_Change(ByVal Target As Range)
'If Not Intersect(Range("bo8:bp33").Precede nts, Target) Is Nothing Then Cells.EntireRow.AutoFit
'End Sub

и на данном листе, при смене даты календарем, эксель "ложится" полностью, пока не снимешь задачу экселя. Лист защищен паролем, прюс ВПР и в некоторых ячейках стоит перенос по словаю...

3) нечего не нужно закоментировать, при переноси в свой документ из надстройки? И еще столкнулся с проблемой, не всегда значек исчезает.
Заранее огромное спасибо!
А календарик и вправду очень красивый и удобный!

[staniiislav]

Сообщение от VictorM

Посмотрите, так вроде "дружит"))

спасбо за помощь VictorM. EducatedFool предложил календарь намного лучше чем я нашел.

[staniiislav]

Вообще ситуация в том, чтобы календарь запускался на разных компьютерах, без добавления его в папку миркософтЭксель. такую операцию можно сделать?
Вот еще проблема, если просто все перекопировал в документ эксель, если лист защищен, когда нажимаешь на ячейку, с право появляется значек календаря и не исчезает, а вот если защита снята, все нормально работает! где подправить? И как быть с
'Private Sub Worksheet_Change(ByVal Target As Range)
'If Not Intersect(Range("bo8:bp33").Precede nts, Target) Is Nothing Then Cells.EntireRow.AutoFit
'End Sub
???

[VictorM]

Вообще ситуация в том, чтобы календарь запускался на разных компьютерах, без добавления его в папку миркософтЭксель. такую операцию можно сделать?

Вот чем и хорошо предложенный календарь на форме.
Все находится в самом файле, который можно запустить на любом компьютере без установки надстроек. Как-то уже обсуждалась эта тема.

И как быть с

Если этот код не относится непосредственно к Вашей задаче, просто удалите его.
Кстати, в предложенном мною варианте, в коде листа остался только запуск календаря.
И модуль только один с объявлением переменных.

[staniiislav]

наверно вы правы. тогда не могли бы вы оставить функциональными все кнопки. Чтобы календарь был такой как я прислал в примере. Только чтобы ВПР работала(календарь открывался по двойному клику мышки. это нужно чтобы тем кому не удобно работать с календарем, кликали один раз на ячейку и вводили дату вручную).

[VictorM]

Ну, чтобы

календарь открывался по двойному клику мышки.

Просто замените код в модуле листа на этот

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range(ra)) Is Nothing Then Календарь.Show
End Sub

А найденный Вами календарь (кстати предложенный мною я делал именно из него) нужно посмотреть, давно это было))
Там дата выводится в текстовом формате, вот потому ВПР и не работает
Добавлю
чтобы после двойного щелчка курсор не заходил в ячейку, допишите

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

...
 
Cancel = True
End Sub

[VictorM]

календарь был такой как я прислал в примере. Только чтобы ВПР работала

Смотрите, проверяйте.