Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
Ежедневник
 
#1
10.01.2012 16:20:41
Добрый день.  
 
Помогите сделать простенький ежедневник в excel, для текущих дел по дням недели.)  
 
Подскажите пожалуйста, как можно при помощи макроса создавать группировки следующего вида.  
 
После срабатывания макроса появлялась группа отображающая текущий день недели и число.  
И потом при помощи другого макроса можно было бы вписывать туда текущие дела...  
 
Всем заранее спасибки ;)
 
 
 
#2
10.01.2012 22:53:54
Netali, последняя (розовая) строка - это кнопки макросов:
 
 
 
#3
11.01.2012 21:05:21
Спасибо вам огромное ))    
 
Таинственный незнакомец ))
 
 
 
#4
11.01.2012 21:30:14
А можно ли еще сделать планирование дел на будущую неделю, месяц ?  
 
Можно ли еще сделать кнопочку "Добавить неделю" ? при нажатие на которую появлялась неделя целиком.  
И что бы можно было  в любой день добавлять дело ? (пока можно добавлять только в текущий день)
 
 
 
#5
11.01.2012 21:59:32
{quote}{login=Netali}{date=11.01.2012 09:30}{thema=}{post}А можно ли еще сделать планирование дел на будущую неделю, месяц ?  
 
Можно ли еще сделать кнопочку "Добавить неделю" ? при нажатие на которую появлялась неделя целиком.  
И что бы можно было  в любой день добавлять дело ? (пока можно добавлять только в текущий день){/post}{/quote}  
Может сразу так:  
"- Подсудимый, в целях установления вашей личности и во избежание судебной ошибки, вам предлагается при свидетелях повторить известный подвиг барона Мюнхгаузена - полет на Луну." ©  
:-)
 
 
 
#6
11.01.2012 22:21:00
;)  
Ну тогда уж полет на луну на пушечном ядре )
 
 
 
#7
11.01.2012 22:48:37
Ждите, (если вернусь).  
--------  
"Господи, как умирать надоело." ©
 
 
 
#8
12.01.2012 13:02:38
Ну можно ли хотя бы сделать так, что бы дело добавлялось в любой день, а не только в текущий ?
 
 
 
#9
12.01.2012 23:40:49
{quote}{login=Netali}{date=12.01.2012 01:02}{thema=}{post}Ну можно ли хотя бы {/post}{/quote}  
Вот:
 
 
 
#10
12.01.2012 23:41:43
Сорь, файл:
 
 
 
#11
13.01.2012 16:16:01
Спасибо Вам *) Я даже не думала что так красиво можно все реализовать.  
Это то что нужно..  
 
Только вот номера дел не получается написать.."Защита листа"  
Хотя они особо и не нужны..вместо них бы галочку о выполнении бы поставить ))
 
 
 
#12
13.01.2012 16:31:47
Неправильно посмотрела...  
Можно ли под днем недели поставить галочку о выполнении...а под числом время выполнения, ну т.е. то время когда галочка будет стоять...
 
 
 
#13
13.01.2012 16:47:16
Вот так вот почти получается с временем...но не тот формат ячейки  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim cc As Range  
Application.ScreenUpdating = False  
Application.EnableEvents = False  
 
For Each cc In Target  
If Not Intersect(cc, Range("D2:D5000")) Is Nothing Then  
 
With cc(1, -1)  
.Value = IIf(Trim(cc) = "", "", TimeValue(Now))  
End With  
 
End If  
Next  
 
Application.EnableEvents = True  
Application.ScreenUpdating = True  
 
End Sub
 
 
 
#14
13.01.2012 17:07:49
Помогите пожалуйста разобраться с форматами ячеек...  
 
 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
   If Not Intersect(Target, Range("C2:C100")) Is Nothing Then  
       Cancel = True '÷òîáû íå óéòè â ðåæèì ðåäàêòèðîâàíèÿ  
       Target.Font.Name = "Marlett"  
           If Target = vbNullString Then  
               Target = "a"  
           Else  
               Target = vbNullString  
           End If  
   End If  
End Sub  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim cc As Range  
Application.ScreenUpdating = False  
Application.EnableEvents = False  
 
For Each cc In Target  
If Not Intersect(cc, Range("C2:C5000")) Is Nothing Then  
 
With cc(1, 0)  
.Value = IIf(Trim(cc) = "", "", TimeValue(Now))  
End With  
 
End If  
Next  
 
Application.EnableEvents = True  
Application.ScreenUpdating = True  
 
End Sub
 
 
 
#15
13.01.2012 17:36:24
{quote}{login=Netali}{date=13.01.2012 04:31}{thema=}{post}  
Можно ли под днем недели поставить галочку о выполнении...а под числом время выполнения, ну т.е. то время когда галочка будет стоять...{/post}{/quote}  
Fraulein Natali, в 16:00 я объявил войну Англии... (если вернусь).
 
 
 
#16
13.01.2012 17:43:12
{quote}{login=Netali}{date=13.01.2012 04:31}{thema=}{post}... Можно ли...{/post}{/quote}  
Кое-кто может - http://www.improvement.ru/zametki/fedorov-excel/
 
 
 
#17
13.01.2012 17:54:18
Кстати, на днях на Башорге не читали?  
 
АК90: Щас сотрудница с умилением в глазах рассказывала мне, что ее гениальная 20-летняя внучка написала ей шикарную программу-ежедневник.  
 
СКАМ; ну ты естественно познакомить попросил? ))) Умная, программистка, прям твой идеал.  
 
АК90: Попросил. Потом посмотрел 'программу'. Экселевский файл. 2400 листов вида 'декабрь 2011, январь 2012, февраль 2012'. В каждом табличка дней 1-31 и столбец 'дела'. Эх.  
 
СКАМ: ну хотя бы старательная )))
 
 
 
#18
13.01.2012 17:58:39
Ну это прям про меня ;))
 
 
 
#19
13.01.2012 18:03:55
ну, тогда давайте ваш телефон и Email )
 
 
 
#20
13.01.2012 18:10:58
klevo13@mail.ru
 
 
 
#21
14.01.2012 22:23:47
Сего года, 1783. Мая 32-го ©
 
 
 
#22
15.01.2012 08:42:34
Спасибо, только вот что то я не разобралась...как галочку ставить ? по символу "a" или по двойному клику на ячейку ? и время не ставится автоматический а вручную ячейка защищена от изменений....
 
 
 
#23
15.01.2012 11:11:10
"- Они положили сырой порох, Карл!  
.....  
- Этот сухой? Проверенный?" ©
 
 
 
#24
15.01.2012 11:54:40
а можно по двойному щелчку галочку ставить-убирать ?  
 
p.s. уж простите за наглость  
 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
If Not Intersect(Target, Range("C2:C100")) Is Nothing Then  
Cancel = True '÷òîáû íå óéòè â ðåæèì ðåäàêòèðîâàíèÿ  
Target.Font.Name = "Marlett"  
If Target = vbNullString Then  
Target = "a"  
Else  
Target = vbNullString  
End If  
End If  
End Sub
 
 
 
#25
15.01.2012 12:51:58
Можно.  
Искренне Ваш К.Ф.И.ф.М..
 
 
 
#26
15.01.2012 13:06:30
{quote}{login=Netali}{date=15.01.2012 11:54}{thema=}{post}а можно по двойному щелчку галочку ставить-убирать ?  
{/post}{/quote}  
Netali, создайте другую тему. Ваш вопрос имеет только косвенное отношение к этой.
 
 
 
#27
15.01.2012 13:16:13
Спасибо Вам...я разобралась...  
как вас можно отблагодарить, о мой гениальный таинственный незнакомец ?
 
 
 
#28
15.01.2012 13:55:55
{quote}{login=Netali}{date=15.01.2012 11:54}{thema=}{post}уж простите за наглость  
{/post}{/quote}  
Я.Д. 41001886239037
 
 
 
#29
17.01.2012 13:28:36
а можно вариант где нет какой либо защиты ячеек от редактирования! А то из-за этой защиты совершенно бесполезная вещь, ИМХО
 
 
 
#30
17.01.2012 15:22:41
Хотелось бы тоже немного подредактировать ежедневник. Netali поделитесь пожалуйста тайной таинственного незнакомца.
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх