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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2013, 10:16   #1
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию Подорожнiй лист

Господа.
Подскажите, как сделать:
Что бы при открытии документа в яч. Н4, автоматом ставилась текущая дата в формате хх.мммм.уууу., но и с возможностью ручного ввода.
После установки даты курсор переместить в яч. К2

Всё позабывал, ужас!!

Вот так сделал, ???

Код:
Private Sub Workbook_Open()
  Cells(4, 8) = Date 'вставляем дату
  Cells(2, 11).Activate 'передвигаем курсор
End Sub

Последний раз редактировалось valerij; 30.05.2013 в 10:58.
valerij вне форума Ответить с цитированием
Старый 30.05.2013, 11:06   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Код:
Private Sub Workbook_Open()
  [h4] = Format(Date, "dd.mmmm.yyyy")  'вставляем дату
  [k2].Activate 'передвигаем курсор
End Sub
Только ведь нужно еще и с листом определиться.
А то будет ставить все это на первый попавшийся (сохраненный) рабочий лист.

Цитата:
но и с возможностью ручного ввода.
А какие тут могут быть проблемы?
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 30.05.2013, 13:36   #3
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
[CODE]А какие тут могут быть проблемы?
Нема проблем, поспешил с темой.

Спасибо.
valerij вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование строк таблицы по условию одной ячейки из Лист 1 в Лист 2 Людвиг Microsoft Office Excel 5 25.10.2014 11:46
Скрытый Лист segail Microsoft Office Excel 27 20.07.2009 11:41
Новый лист Berrimor Microsoft Office Excel 1 08.09.2008 10:37
Лист ZhekON Общие вопросы Delphi 5 17.04.2007 11:34
защитить лист zetrix Microsoft Office Excel 2 27.11.2006 17:21