Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.11.2014, 15:44   #1
cheyan
Пользователь
 
Регистрация: 24.11.2014
Сообщений: 17
По умолчанию Помогите написать макрос

Привет всем!
Задача:
на листе (макрос сам запускается при открытии книги), в выделенной ячейке только столбца "А" автоматически прописывается дата на текущий день в виде "27 чт", все записанное сохраняется.
Заранее спасибо.
cheyan вне форума Ответить с цитированием
Старый 27.11.2014, 17:41   #2
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

А если после открытия рабочей книги - в столбце "A" не будет выделенных ячеек ?
pashulka вне форума Ответить с цитированием
Старый 27.11.2014, 17:55   #3
cheyan
Пользователь
 
Регистрация: 24.11.2014
Сообщений: 17
По умолчанию

Уточнение - при открытии новой книги, в столбце "А" ячейки пустые, при нажатии на ячейку правой кнопкой мыши, в ней появляется "27 чт", даты в ячейках которые открывались остаются, документ можно сохранить - пройдет ли такой фокус?

Последний раз редактировалось cheyan; 27.11.2014 в 18:05.
cheyan вне форума Ответить с цитированием
Старый 27.11.2014, 17:59   #4
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Код:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target(1).Column = 1 Then Target(1) = Format(Now(), "dd ddd"): Cancel = True
End Sub
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 27.11.2014, 18:04   #5
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Код:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
    If Target(1, 1).Column = 1 And IsEmpty(Target(1, 1)) Then
       Target(1, 1) = LCase(Format(Now, "dd ddd"))
       Cancel = True: ThisWorkbook.Save
    End If
End Sub

Последний раз редактировалось pashulka; 27.11.2014 в 18:09.
pashulka вне форума Ответить с цитированием
Старый 27.11.2014, 18:09   #6
cheyan
Пользователь
 
Регистрация: 24.11.2014
Сообщений: 17
По умолчанию

Спасибо большое!
Попробую...
cheyan вне форума Ответить с цитированием
Старый 27.11.2014, 18:26   #7
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Цитата:
А если после открытия рабочей книги - в столбце "A" не будет выделенных ячеек ?
после ввода данных удаляется колонка А, на листе ее больше не будет!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 27.11.2014, 18:34   #8
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

cheyan, извините, но как так можно?
вы описываете задачу:
Цитата:
на листе (макрос сам запускается при открытии книги), в выделенной ячейке только столбца "А" автоматически прописывается дата на текущий день в виде "27 чт"
в то время когда решить надо:
Цитата:
при нажатии на ячейку правой кнопкой мыши, в ней появляется "27 чт"
понимаете, что общего тут только "27 чт"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 27.11.2014, 18:42   #9
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

IgorGO, Не понял сарказма, по поводу моего встречного вопроса ...

реально, где гарантия, что сразу после открытия книги - активной будет ячейка столбца "A" ?
pashulka вне форума Ответить с цитированием
Старый 27.11.2014, 18:47   #10
cheyan
Пользователь
 
Регистрация: 24.11.2014
Сообщений: 17
По умолчанию

извиняюсь за неточность - в ячейке которую выделил автоматически прописывается...
cheyan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите написать макрос... matveyqa Microsoft Office Excel 4 03.10.2009 13:00
Помогите написать макрос Govard Microsoft Office Excel 20 05.07.2009 21:29
Помогите написать макрос!!! zmax123 Microsoft Office Excel 4 16.03.2009 14:02
Помогите написать макрос Urban Microsoft Office Excel 3 03.03.2009 22:28
Помогите написать макрос Neo007 Microsoft Office Excel 4 24.10.2008 07:25