Макрос, добавляющий необходимые столбцы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос, добавляющий необходимые столбцы (Макросы Sub)

alber2jr

Дата: Среда, 30.10.2013, 14:20 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый день. Работаю с большим объемом данных. Суть. Имеется разрез по менеджерам и товарам. Требуется добавить столбец слева и 2 столбца справа, чтобы в них считать показатели работы конкретного менеджера. Макрос записал. Но он не работает. Тест макроса приложил ниже. А в приложенном файле excel показал, что есть и что надо получить. Заранее благодарю за помощь

[vba]

Код

Sub ПробаДляФоурма()
'
' ПробаДляФоурма Макрос
Selection.Insert Shift:=xlToRight
ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.Select
ActiveCell.Offset(0, 2).Range("A1").Activate
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
ActiveCell.Offset(0, -2).Range("A1:D1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Показатель 1"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Показатель 2"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Показатель 3"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Показатель 4"
ActiveCell.Offset(1, -3).Range("A1").Select
End Sub

[/vba]
[moder]Оформляйте коды тегами, кнопка #[/moder]

К сообщению приложен файл: _Microsoft_Exce.xls (21.5 Kb)

Ответить

Макрос, добавляющий необходимые столбцы (Макросы Sub)

Страница 1 из 1
1