Создать процедуру, позволяющую третий столбец активного рабочего листа открытой рабочей книги Excel настраивать на формат значений типа дата - VB

Формулировка задачи:

Помогите плиз, Создать процедуру, позволяющую третий столбец активного рабочего листа открытой рабочей книги Excel настраивать на формат значений типа дата (использовать свойство NumberFormat для задания вида формата "mm/dd/yyyy").

Код к задаче: «Создать процедуру, позволяющую третий столбец активного рабочего листа открытой рабочей книги Excel настраивать на формат значений типа дата - VB»

textual
Private Sub Command1_Click()
Dim sh
On Error Resume Next
With GetObject(, "excel.application")
    If Err Then MsgBox "Excel не запущен!": Exit Sub
    Set sh = .activesheet
    If sh Is Nothing Then MsgBox "Нет текущего листа!": Exit Sub
    sh.Columns(3).NumberFormat = "dd\/mm\/yyyy"
    If Err Then MsgBox "Не удалось установить формат!"
End With
End Sub

6   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы