Страницы: 1
RSS
Макрос для вставки в любой ячейки ФИО и текущей даты под ним
 
Здравствуйте! помогите пожалуйста. перекопал много информации, не могу найти решение. Проблема в том, что не могу написать макрос который будет вставлять в любую ячейку ФИО и текущую дату под этой ячейкой
 
Код
Sub qqq()
    ActiveCell = "ФИО"
    ActiveCell.Offset(1, 0) = Date
End Sub
 
Сделал. Если кому-то нужно будет пользуйтесь (цвет и шрифт уберете)
Код
Sub Макрос1()



    Selection.Font.Bold = True
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 14
    ActiveCell.Value = "Ваше ФИО "
    
    
    
    With ActiveCell.Offset(RowOffset:=1)
    .Font.Bold = True
    .Font.Size = 12
    .Font.Color = vbRed
    .Font.Name = "Arial"
    .Value = DateValue(Now)
    .EntireColumn.AutoFit
     End With
    
End Sub
Изменено: EdinoroGOK - 03.04.2020 14:09:49
 
EdinoroGOK, У меня короче )).
Вернитесь в своё сообщение и оформите код соответствующим тего при помощи кнопки (см. скрин)
 
Лично в моем случае, нужно было ещё некоторое форматирование текста, но ваш вариант в любом случае короче моего. Спасибо
Изменено: EdinoroGOK - 03.04.2020 14:16:57
Страницы: 1
Наверх