Макрос "Скрытие/удаление/добавление столбца по условию" - Microsoft Office Excel - Страница 2

IgorGO · 12.10.2014, 14:44

щелкаете правой кнопкой миши по нужной ячейке в первой строке...

ShAM66 · 12.10.2014, 15:16

Код:

For i = 26 To 3 Step -1
If Cells(1, i).Value = 1 Then Cells(1, i).EntireColumn.Insert
Next i

Kapkom · 15.06.2016, 13:11

Добрый день!

У меня вопрос есть.
Я составил макрос на добавление двух строк по условию:
For Each c In Range("a1:a5000")
If c = 1 Then
c.EntireRow.Resize(2).Insert Shift:=xlUp
c.Select
Selection.ClearContents
End If
Next

По этому макросу добавление двух строк осуществляется благодаря команде Resize(2). Подскажите, пожалуйста, как вместо цифры "2" в данной команде сделать ссылку на ячейку, в которой указано количество необходимых к добавлению строк?

А то мне постоянно приходится открывать текст макроса, чтобы вручную поставить вместо "2", к примеру, "3" или "4".

Kapkom · 15.06.2016, 13:20

Извините, поторопился с вопросом. Я сам разобрался.

12.10.2014, 15:16	#12
ShAM66 Форумчанин Регистрация: 24.02.2012 Сообщений: 160	Код: `For i = 26 To 3 Step -1 If Cells(1, i).Value = 1 Then Cells(1, i).EntireColumn.Insert Next i`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Макрос "Скрытие строк при условии"	Kapkom	Microsoft Office Excel	2	22.09.2014 16:57
Постоянно слетает галочка "автоматически" в "Параметры Excel", "Формулы", "Вычисления в книге"	Alexsandrr	Microsoft Office Excel	4	19.10.2013 14:22
Создать класс "Фигура", от него наследованием создать 3 класса ("треугольник", "четырехугольник", "окружность")	funnyy	Помощь студентам	3	17.10.2012 17:40
Скрытие и отображения формы "Календарь"	MickMick	Microsoft Office Excel	10	06.12.2009 00:37
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой"	aleksei78	Microsoft Office Excel	13	25.08.2009 12:04

15.06.2016, 13:11	#13
Kapkom Пользователь Регистрация: 22.09.2014 Сообщений: 27	Добрый день! У меня вопрос есть. Я составил макрос на добавление двух строк по условию: For Each c In Range("a1:a5000") If c = 1 Then c.EntireRow.Resize(2).Insert Shift:=xlUp c.Select Selection.ClearContents End If Next По этому макросу добавление двух строк осуществляется благодаря команде Resize(2). Подскажите, пожалуйста, как вместо цифры "2" в данной команде сделать ссылку на ячейку, в которой указано количество необходимых к добавлению строк? А то мне постоянно приходится открывать текст макроса, чтобы вручную поставить вместо "2", к примеру, "3" или "4".

15.06.2016, 13:20	#14
Kapkom Пользователь Регистрация: 22.09.2014 Сообщений: 27	Извините, поторопился с вопросом. Я сам разобрался.