Создать два столбца с ценами, перенести ячейку, заменить значения

@MrRuslanBB · Регистрация: 02.04.2012

Добрый день!

Имеется excel файл напечатанного ниже формата:
Строка "1" - Наименования столбцов;
Столбец "A" - артикул;
Столбец "B" - стоимость;
Столбец "C" - наличие.

Ниже напечатан пример структуры "исходника" excel файла:
[A1] Артикул [B1] Стоимость базовая [C1] Наличие на складе
[A2] 5215 [B2] 211,667 [C2] 3
[A3] 5216 [B3] 732,647 [C3] 1
[A4] 54660 [B4] 666,46 [C4] 1
[A5] 57471 [B5] 748,86 [C5] нет
[A6] 54659 [B6] 417,08 [C6] нет
[A7] 5221 [B7] 145,864 [C7] 3

(1) Напишите пожалуйста макрос который создаст два столбца со сдвигом вправо, после столбца "B";
(2) Ячейки созданных столбцов "C" и "D" должны быть вычислены по формуле [C2]=B2*99%, [D2]=B2*99%, [C3]=B3*99%, [D3]=B3*99% и т. д.
(3) В столбце "C", после запятой должна быть одна цифра, а в столбце "D" должны отсутствовать цифры после запятой (значение с округлением в большую сторону);
(4) После выполнения выше перечисленных вычислений Значение ячейки [B1], должно перенестись в ячейку [D1];
(5) Последним шагом значение строки "1" должны измениться на ниже напечатанные:
1. с "Артикул" на "article"
2. с "Стоимость базовая" на "cost : basis"
3. с "Наличие на складе" на "stock : availability"

Пример структуры excel файла с "необходимым результатом":
[A1] article [D1] cost : basis [E1] stock : availability
[A2] 5215 [B2] 211,667 [C2] 209,6 [D2] 210 [E2] 3
[A3] 5216 [B3] 732,647 [C3] 725,3 [D3] 725 [E3] 1
[A4] 54660 [B4] 666,46 [C4] 659,8 [D4] 660 [E4] 1
[A5] 57471 [B5] 748,86 [C5] 741,4 [D5] 741 [E5] нет
[A6] 54659 [B6] 417,08 [C6] 412,9 [D6] 413 [E6] нет
[A7] 5221 [B7] 145,864 [C7] 144,4 [D7] 144 [E7] 3

В файле во вложении привожу пример страниц "Исходник" и "Необходимый результат".

@quende · 22.09.2016, 12:21

Visual Basic

Sub qweqwe()
    Columns("C:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C2").FormulaR1C1 = "=RC[-1]*99%"
    Range("D2").FormulaR1C1 = "=RC[-2]*99%"
    Range("C2:D2").AutoFill Destination:=Range("C2:D7"), Type:=xlFillDefault
    Columns("C:C").NumberFormat = "0.0"
    Columns("D:D").NumberFormat = "0"
    Range("B1").ClearContents
    Range("D1").FormulaR1C1 = "Стоимость"
    Range("A1").FormulaR1C1 = "article"
    Range("D1").FormulaR1C1 = "cost : basis"
    Range("E1").FormulaR1C1 = "stock : availability"
End Sub

Опции темы

Создать два столбца с ценами, перенести ячейку, заменить значения

Решение