Лучше записывать в ячейку имена листов, а не номера, поскольку номера листов могут измениться.
Поэтому записываем в ячейку A4 текст ОДНОСТРОЧНЫЙ,СУДОВОЙ,ГРАФИК и пробуем макрос:
Поэтому записываем в ячейку A4 текст ОДНОСТРОЧНЫЙ,СУДОВОЙ,ГРАФИК и пробуем макрос:
| Код |
|---|
Sub Command()
Dim strFileName As String, s As String, publicSheets As sheets
With ThisWorkbook
s = .worksheets("ОДНОСТРОЧНЫЙ").Range("A4").Value
Set publicSheets = .worksheets(Split(s, ","))
publicSheets.Select
strFileName = "График " & worksheets("ОДНОСТРОЧНЫЙ").Range("A5").Value
On Error Resume Next
.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & strFileName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
publicSheets(1).Select ' Разгруппировали
End With
End Sub |
Владимир
), на листе "Шаг № 2 расчет" раскройте все столбцы, выделите все столбцы с формулами и в диалоге "Формат ячеек" / Выравнивание установите "Выравнивание по горизонтали": "по значению". Для ячеек с числами выравнивание должно быть вправо.