Как в Visual Basic задать активной ячейке значение
Код:
.ActiveCell.FormulaR1C1 = "Показатель"
Код:
Set nash_list = MyExcel.ActiveWorkbook.Sheets("Основные показатели")
nash_list.Columns("A:A").ColumnWidth = 12
With nash_list.Range("A1:A2") '.Selection
.HorizontalAlignment = -4108
.VerticalAlignment = -4117
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = -5002
.MergeCells = True
.ActiveCell.FormulaR1C1 = "Показатель"
End With
nash_list.Columns("A:A").ColumnWidth = 12
With nash_list.Range("A1:A2") '.Selection
.HorizontalAlignment = -4108
.VerticalAlignment = -4117
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = -5002
.MergeCells = True
.ActiveCell.FormulaR1C1 = "Показатель"
End With
Код:
MyExcel.ActiveCell = "Показатель"
Код:
With nash_list.Range("A1:A2")
...
.Value = "Показатель"
.MergeCells = True
End With
...
.Value = "Показатель"
.MergeCells = True
End With
Спасибо