Страницы: 1
RSS
Дублирования данных из одного листа в другой с подчеркиванием
 
Всем привет. Прошу вашей помощи, помогите написать макрос для связи данных из листа 1 с листом 2, но так, чтобы сохранились подчеркивания, где они нужны (чтобы сохранилось исходное форматирование). Пример выделен красным цветом что должно получиться. Помогите, люди добрые.
 
Нужно сохранять все форматирование или только подчеркивание? Перефразирую: есть ли форматирование, которое обязательно НЕ НУЖНО сохранять?
 
Нужно сохранить только подчеркивание, например, "поверки манометра типа 1" (взято из строки тип манометра).
 
Код
Cells(2, 2).Characters(Start:=25, Length:=5).Font.Underline = xlUnderlineStyleSingle
Быстрее молнии, быстрее ветра, быстрее калькулятора
 
Как сделать так, чтобы вставлялись данные из листа ввод в соответствующие поля листа протокол?
 
Код
Sub vvv()
Sheets("2 Протокол").Cells(2, 2) = "поверки манометра типа №" & Sheets("1 Ввод").Cells(4, 3)
Sheets("2 Протокол").Cells(2, 2).Characters(Start:=25, Length:=5).Font.Underline = xlUnderlineStyleSingle
End Sub
Быстрее молнии, быстрее ветра, быстрее калькулятора
 
Все работает, вот только как сделать так, чтобы дата вставилась из листа ввод, так "02" июля 20 20 г.?
 
Вопрос не по теме
Страницы: 1
Наверх