| Вопрос: Excel | Добавлено: 19.05.05 10:52 |
Автор вопроса:  Ramil | Web-сайт: www.Ramil.boom.ru | ICQ: 286597559 |
|
Pomogite kto mojet ...
Mne nado ispolzivovat' kalendar Excel tot kalendar katoriy v "Vstavka obyekta" Nado chtob pri vibore mesyaca v Range("a1"),Range("a2"),Range(a3) naprimer pisalas' nomer mesyaca (Yanvar' - 01 ... v yacheyke "a1") Pri vibore goda tochno takje (2005 - 05 ... v yacheyke "a2") i pri vibore den' (01 - 01 ... v yacheyke "a3") POJALUYSTA POMOGITE KTO MOJET. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #1 | Добавлено: 19.05.05 21:57 |
|
Я бы вставил через панель "элементы управления"->"другие элементы. Так проще работатьс календарём.
А как у Вас, то: Код в ЭтаКнига: Private Sub Workbook_Open()
Connect_vCalendar End Sub Код в модуле листа: Dim WithEvents vCalendar As MSACAL.Calendar
Sub Connect_vCalendar() Set vCalendar = Лист1.OLEObjects(1).Object End Sub Private Sub vCalendar_Click() Лист1.Range("A3"  = vCalendar.Day
Лист1.Range("A2" = vCalendar.Month
Лист1.Range("A1" = vCalendar.Year
Лист1.Range("B1" = vCalendar.Value
End Sub PS У меня почему - то не работают события Private Sub vCalendar_NewMonth() Private Sub vCalendar_NewYear() по этому не поставил их в код. А у Вас? |
||
|
Номер ответа: 2 Автор ответа:  Ramil ICQ: 286597559 Вопросов: 13 Ответов: 25 |
Web-сайт: Профиль | | #2 | Добавлено: 20.05.05 09:51 |
|
Zdrastvuyte ... Xachu skozat' chto ya ochen' priznatelen chto vi mne otvetili .
A programma rabotaet ... mne prosta prishlos' udalit' iz vashego koda Dim WithEvents vCalendar As MSACAL.Calendar
i pomenyat' vCalenrad na Calendar1 ... tak kak u menya ona tak nazivalas'  .
A Private Sub vCalendar_NewMonth() Private Sub vCalendar_NewYear() Rabotaet
Prosta posle tavo kak vibrat' mesyac ili god nado najat' esho i na den'. Spasibo vam bol'shoe. |
||
|
Номер ответа: 3 Автор ответа: ДмитВопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #3 | Добавлено: 20.05.05 18:06 |
|
Прошу прощения - перемудрил с первым ответом.
1. Всё равно как вставлять календарь, получатся равноправные объекты. 2. Событие на клик - можно просто в режиме конструктора кликнуть два раза по календарю и редактор вставит его куда нодо. |
||
Страница: 1 |