Как вставить дату в форму?

@avv-avv · Регистрация: 29.11.2010

Author24 — интернет-сервис помощи студентам

Как вставить дату в форму?
Типа так:

Последнее обновление базы: 01 октября 2004 года
Обновить базу?
'Далее в форме кнопки:
'Обновить' 'Отмена'

Дата берется из определенной ячейки, например A1

@XPraptor · 09.12.2010, 15:50

А в чем собственно проблемма? Вставь в текстбокс значение даты из нужной ячейки.

@avv-avv · 09.12.2010, 17:16 **[ТС]**

Куда вставлять-то?

@Masalov · 10.12.2010, 06:41

Я бы не стал ради этого городить форму, а воспользовался MsgBox:

Visual Basic

Sub Вопрос()
vb = MsgBox('Последнее обновление базы: ' & Sheets('Лист1').Cells(5, 1) & _
     vbCr & 'Обновить базу?', vbQuestion + vbOKCancel, '')
If vb = vbOK Then
  MsgBox 'Делать '
Else
  MsgBox 'Не делать '
End If
End Sub

Где в клетке 'А5' Ваша дата.

@avv-avv · 13.12.2010, 17:02 **[ТС]**

2 Masalov
Спасибо большое за совет, но это не то, что нужно.

Меня интерисует вопрос, как вставить в форму сцилку на ячейку, содержащую дату.

чтобы вот так:

Последнее обновление базы: =Лист1!A2
Обновить базу?

Да нет

@avv-avv · 13.12.2010, 17:11 **[ТС]**

Уточню, что в при попытке вставить в TextBox значение =Лист1!A2 в итоге призапуске и вижу только этот самый '=Лист1!A2', а не значение из указанной ячейки.

@vlth · 14.12.2010, 00:32

Visual Basic

Private Sub UserForm_Initialize()
Me.Label1.Caption = Sheets(1).Cells(1, 1)
'или Me.textbox1.text = Sheets(1).Cells(1, 1)
End Sub

@avv-avv · 14.12.2010, 12:56 **[ТС]**

Спасибо!
Работает, но текст вылезает куда-то не туда, куда нужно (на 2-3 строки ниже строчки 'Последнее обновление:').
Как сделать, чтобы сразу после слов 'Последнее обновление: 06.10.04'
Кроме того, использование оператора =NOW для сохранения даты последнего обновления не подходит - каждый раз показывает текущую дату, когда открывается приложение.

Вопросы.

@vlth · 14.12.2010, 13:06

Ну уж это сам...

@avv-avv 0 / 0 / 0 Регистрация: 29.11.2010 Сообщений: 42
		1
	Как вставить дату в форму? 09.12.2010, 15:25. Показов 2655. Ответов 8 Метки нет (Все метки) Как вставить дату в форму? Типа так: Последнее обновление базы: 01 октября 2004 года Обновить базу? 'Далее в форме кнопки: 'Обновить' 'Отмена' Дата берется из определенной ячейки, например A1 0

@XPraptor 0 / 0 / 3 Регистрация: 28.01.2010 Сообщений: 279
	09.12.2010, 15:50	2
	А в чем собственно проблемма? Вставь в текстбокс значение даты из нужной ячейки. 0

@avv-avv 0 / 0 / 0 Регистрация: 29.11.2010 Сообщений: 42
	09.12.2010, 17:16 [ТС]	3
	Куда вставлять-то? 0

@avv-avv 0 / 0 / 0 Регистрация: 29.11.2010 Сообщений: 42
	13.12.2010, 17:02 [ТС]	5
	2 Masalov Спасибо большое за совет, но это не то, что нужно. Меня интерисует вопрос, как вставить в форму сцилку на ячейку, содержащую дату. чтобы вот так: Последнее обновление базы: =Лист1!A2 Обновить базу? Да нет 0

@avv-avv 0 / 0 / 0 Регистрация: 29.11.2010 Сообщений: 42
	13.12.2010, 17:11 [ТС]	6
	Уточню, что в при попытке вставить в TextBox значение =Лист1!A2 в итоге призапуске и вижу только этот самый '=Лист1!A2', а не значение из указанной ячейки. 0

@avv-avv 0 / 0 / 0 Регистрация: 29.11.2010 Сообщений: 42
	14.12.2010, 12:56 [ТС]	8
	Спасибо! Работает, но текст вылезает куда-то не туда, куда нужно (на 2-3 строки ниже строчки 'Последнее обновление:'). Как сделать, чтобы сразу после слов 'Последнее обновление: 06.10.04' Кроме того, использование оператора =NOW для сохранения даты последнего обновления не подходит - каждый раз показывает текущую дату, когда открывается приложение. Вопросы. 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	14.12.2010, 13:06	9
	Ну уж это сам... 0