28.04.2017, 10:10 UTC+2

Вы не зарегистрированы.

  • Войти

kvv81 Мужской

Продвинутый

Дата регистрации: 17.02.2006

Сообщения: 303

Пол: Мужской

Место проживания: Dresden

1

12.04.2017, 11:15

Excel всавка актуальной даты.

Есть таблица в которой используется код для Visual Basic

Исходный текст

1
2
3
4
5
6
Sub Kontrollkästchen9_Klicken()
Dim D As Date
D = Now
        Dim FormatString As String
        MsgBox (Format(D, "DD-MM-YYYY HH:mm"))
End Sub


как заменить MsgBox на заданную ячейку.

в кратце: в таблице при вводе галочки, должно в определенной ячейки отобразиться актуальная дата. нашел кусок кода когда при вводе отображается дата в отдельном окне "MsgBox" как реализовать отображение в заданной ячейки




_______________
  • К началу страницы

ge-nka Мужской

Продвинутый

Дата регистрации: 24.02.2003

Сообщения: 488

Пол: Мужской

Место проживания: niedersachsen

2

12.04.2017, 19:07

aus dem Kopf ohne zu prüfen

austauschen:
MsgBox (Format(D, "DD-MM-YYYY HH:mm"))

in Tabelle:
me.cells(1,1).value = Format(D, "DD-MM-YYYY HH:mm") 'aktuelle tabelle celle a1, (zeile,spalte)
oder
me.range("A1").value = Format(D, "DD-MM-YYYY HH:mm")

im Modul muss die Tabelle benannt werden:
Tabelle1.range("A1").value = Format(D, "DD-MM-YYYY HH:mm")
Shets("NameDerTabelle").range("A1").value = Format(D, "DD-MM-YYYY HH:mm")




_______________
  • К началу страницы


Рыбалка    покупка, ремонт, аренда дома или квартиры в Германии

Lr Shop,Jungle Man Parfüm und Colostrum bestellen in Deutschland und Aloe vera gel

Lr Joyce Schmuck

Lr Jungle Man Parfüm



TopList