Excel vba for скрыть ячейки в excel

Как скрыть или отобразить строки и столбцы с помощью свойства Range.Hidden из кода VBA Excel? Примеры скрытия и отображения строк и столбцов.

Range.Hidden — это свойство, которое задает или возвращает логическое значение, указывающее на то, скрыты строки (столбцы) или нет.

Синтаксис

Expression — выражение (переменная), возвращающее объект Range.

  • True — диапазон строк или столбцов скрыт;
  • False — диапазон строк или столбцов не скрыт.

Примечание

Указанный диапазон (Expression) должен охватывать весь столбец или строку. Это условие распространяется и на группы столбцов и строк.

Свойство Range.Hidden предназначено для чтения и записи.

Примеры кода с Range.Hidden

Пример 1

Варианты скрытия и отображения третьей, пятой и седьмой строк с помощью свойства Range.Hidden:

Sub Primer1()

‘Скрытие 3 строки

Rows(3).Hidden = True

‘Скрытие 5 строки

Range(«D5»).EntireRow.Hidden = True

‘Скрытие 7 строки

Cells(7, 250).EntireRow.Hidden = True

    MsgBox «3, 5 и 7 строки скрыты»

‘Отображение 3 строки

Range(«L3»).EntireRow.Hidden = False

‘Скрытие 5 строки

Cells(5, 250).EntireRow.Hidden = False

‘Скрытие 7 строки

Rows(7).Hidden = False

    MsgBox «3, 5 и 7 строки отображены»

End Sub

Пример 2

Варианты скрытия и отображения третьего, пятого и седьмого столбцов из кода VBA Excel:

Sub Primer2()

‘Скрытие 3 столбца

Columns(3).Hidden = True

‘Скрытие 5 столбца

Range(«E2»).EntireColumn.Hidden = True

‘Скрытие 7 столбца

Cells(25, 7).EntireColumn.Hidden = True

    MsgBox «3, 5 и 7 столбцы скрыты»

‘Отображение 3 столбца

Range(«C10»).EntireColumn.Hidden = False

‘Отображение 5 столбца

Cells(125, 5).EntireColumn.Hidden = False

‘Отображение 7 столбца

Columns(«G»).Hidden = False

    MsgBox «3, 5 и 7 столбцы отображены»

End Sub

Пример 3

Варианты скрытия и отображения сразу нескольких строк с помощью свойства Range.Hidden:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

Sub Primer3()

‘Скрытие одновременно 2, 3 и 4 строк

Rows(«2:4»).Hidden = True

    MsgBox «2, 3 и 4 строки скрыты»

‘Скрытие одновременно 6, 7 и 8 строк

Range(«C6:D8»).EntireRow.Hidden = True

    MsgBox «6, 7 и 8 строки скрыты»

‘Отображение 2, 3 и 4 строк

Range(«D2:F4»).EntireRow.Hidden = False

    MsgBox «2, 3 и 4 строки отображены»

‘Отображение 6, 7 и 8 строк

Rows(«6:8»).Hidden = False

    MsgBox «6, 7 и 8 строки отображены»

End Sub

Пример 4

Варианты скрытия и отображения сразу нескольких столбцов из кода VBA Excel:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

Sub Primer4()

‘Скрытие одновременно 2, 3 и 4 столбцов

Columns(«B:D»).Hidden = True

    MsgBox «2, 3 и 4 столбцы скрыты»

‘Скрытие одновременно 6, 7 и 8 столбцов

Range(«F3:H40»).EntireColumn.Hidden = True

    MsgBox «6, 7 и 8 столбцы скрыты»

‘Отображение 2, 3 и 4 столбцов

Range(«B6:D6»).EntireColumn.Hidden = False

    MsgBox «2, 3 и 4 столбцы отображены»

‘Отображение 6, 7 и 8 столбцов

Columns(«F:H»).Hidden = False

    MsgBox «6, 7 и 8 столбцы отображены»

End Sub
Источник

Довольно часто появляется необходимость в Excel скрывать или отображать строки или столбцы. Особенно это актуально, когда на листе размещается очень много информации и часть из них является вспомогательной и требуется не всегда и тем самым загромождает пространство, ухудшая восприятие.  Если это приходится делать часто, то делать это с помощью меню неудобно, особенно если приходится скрывать и отображать разные столбцы и строки.

Для существенного удобства можно написать простенький макрос, привязав его к кнопке и делать это  одним щелком мыши.

Вот так выглядят простые примеры, с помощью которых Вы без труда сможете скрывать или отображать строки и столбцы с помощью VBA

Пример 1: Скрыть строку 2 в Excel

Sub HideString()  ‘Это название макроса

Rows(2).Hidden = True

End Sub

Пример 2: Скрыть несколько строк в Excel (строку 3-5)

Sub HideStrings()

Rows(«3:5»).Hidden = True

End Sub

Пример 3: Скрыть столбец 2 в Excel

Sub HideCollumn()

Columns(2).Hidden = True

End Sub

Пример 4: Скрытие нескольких столбцов в Excel

Sub HideCollumns()

Columns(«E:F»).Hidden = True

End Sub

Пример 5: Скрытие строки по имени ячейки в Excel

Sub HideCell()

Range(«Возможности Excel»).EntireRow.Hidden = True

End Sub

Пример 6: Скрытие нескольких строк по адресам ячеек

Sub HideCell()

Range(«B3:D4»).EntireRow.Hidden = True

End Sub

Пример 7: Скрытие столбца по имени ячейки

Sub HideCell()

Range(«Возможности Excel»).EntireColumn.Hidden = True

End Sub

Пример 8: Скрытие нескольких столбцов по адресам ячеек

Sub HideCell()

Range(«C2:D5»).EntireColumn.Hidden = True

End Sub

Как видите процесс автоматического скрытия строк и столбцов очень прост, а применений данному приему огромное множество.

Для того, чтобы отобразить строки и  столбцы в Excel вы можете воспользоваться этими же макросами, но вместе True необходимо указать False

Например, макрос для того, чтобы отобразить строку 2 будет выглядеть следующим образом:

Sub ViewString()

Rows(2).Hidden = False

End Sub

Надеемся, что данная статья была полезна вам и ответила на вопрос: как скрыть или отобразить строки и столбцы в Excel с помощью VBA

Спасибо за внимание.

Источник

Всё о работе с ячейками в Excel-VBA: обращение, перебор, удаление, вставка, скрытие, смена имени.

Содержание:

Table of Contents:

  • Что такое ячейка Excel?
  • Способы обращения к ячейкам
    • Выбор и активация
    • Получение и изменение значений ячеек
      • Ячейки открытой книги
      • Ячейки закрытой книги 
    • Перебор ячеек
    • Перебор в произвольном диапазоне
  • Свойства и методы ячеек
    • Имя ячейки
    • Адрес ячейки
    • Размеры ячейки
  • Запуск макроса активацией ячейки

2 нюанса:

  1. Я почти везде стараюсь использовать ThisWorkbook (а не, например, ActiveWorkbook) для обращения к текущей книге, в которой написан этот код (считаю это наиболее безопасным для новичков способом обращения к книгам, чтобы случайно не внести изменения в другие книги). Для экспериментов можете вставлять этот код в модули, коды книги, либо листа, и он будет работать только в пределах этой книги. 
  2. Я использую английский эксель и у меня по стандарту листы называются Sheet1, Sheet2 и т.д. Если вы работаете в русском экселе, то замените Thisworkbook.Sheets(«Sheet1») на Thisworkbook.Sheets(«Лист1»). Если этого не сделать, то вы получите ошибку в связи с тем, что пытаетесь обратиться к несуществующему объекту. Можно также заменить на Thisworkbook.Sheets(1), но это менее безопасно.

Что такое ячейка Excel?

В большинстве мест пишут: «элемент, образованный пересечением столбца и строки». Это определение полезно для людей, которые не знакомы с понятием «таблица». Для того, чтобы понять чем на самом деле является ячейка Excel, необходимо заглянуть в объектную модель Excel. При этом определения объектов «ряд», «столбец» и «ячейка» будут отличаться в зависимости от того, как мы работаем с файлом.

Объекты в Excel-VBA. Пока мы работаем в Excel без углубления в VBA определение ячейки как «пересечения» строк и столбцов нам вполне хватает, но если мы решаем как-то автоматизировать процесс в VBA, то о нём лучше забыть и просто воспринимать лист как «мешок» ячеек, с каждой из которых VBA позволяет работать как минимум тремя способами:

  1. по цифровым координатам (ряд, столбец),
  2. по адресам формата А1, B2 и т.д. (сценарий целесообразности данного способа обращения в VBA мне сложно представить)
  3. по уникальному имени (во втором и третьем вариантах мы будем иметь дело не совсем с ячейкой, а с объектом VBA range, который может состоять из одной или нескольких ячеек). Функции и методы объектов Cells и Range отличаются. Новичкам я бы порекомендовал работать с ячейками VBA только с помощью Cells и по их цифровым координатам и использовать Range только по необходимости.

Все три способа обращения описаны далее

Как это хранится на диске и как с этим работать вне Excel? С точки зрения хранения и обработки вне Excel и VBA. Сделать это можно, например, сменив расширение файла с .xls(x) на .zip и открыв этот архив.

Пример содержимого файла Excel:

Далее xl -> worksheets и мы видим файл листа

Содержимое файла:

 То же, но более наглядно:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="x14ac xr xr2 xr3" xmlns:x14ac="http://schemas.microsoft.com/office/spreadsheetml/2009/9/ac" xmlns:xr="http://schemas.microsoft.com/office/spreadsheetml/2014/revision" xmlns:xr2="http://schemas.microsoft.com/office/spreadsheetml/2015/revision2" xmlns:xr3="http://schemas.microsoft.com/office/spreadsheetml/2016/revision3" xr:uid="{00000000-0001-0000-0000-000000000000}">
	<dimension ref="B2:F6"/>
	<sheetViews>
		<sheetView tabSelected="1" workbookViewId="0">
			<selection activeCell="D12" sqref="D12"/>
		</sheetView>
	</sheetViews>
	<sheetFormatPr defaultRowHeight="14.4" x14ac:dyDescent="0.3"/>
	<sheetData>
		<row r="2" spans="2:6" x14ac:dyDescent="0.3">
			<c r="B2" t="s">
				<v>0</v>
			</c>
		</row>
		<row r="3" spans="2:6" x14ac:dyDescent="0.3">
			<c r="C3" t="s">
				<v>1</v>
			</c>
		</row>
		<row r="4" spans="2:6" x14ac:dyDescent="0.3">
			<c r="D4" t="s">
				<v>2</v>
			</c>
		</row>
		<row r="5" spans="2:6" x14ac:dyDescent="0.3">
			<c r="E5" t="s">
				<v>0</v></c>
		</row>
		<row r="6" spans="2:6" x14ac:dyDescent="0.3">
			<c r="F6" t="s"><v>3</v>
		</c></row>
	</sheetData>
	<pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" footer="0.3"/>
</worksheet>

Как мы видим, в структуре объектной модели нет никаких «пересечений». Строго говоря рабочая книга — это архив структурированных данных в формате XML. При этом в каждую «строку» входит «столбец», и в нём в свою очередь прописан номер значения данного столбца, по которому оно подтягивается из другого XML файла при открытии книги для экономии места за счёт отсутствия повторяющихся значений. Почему это важно. Если мы захотим написать какой-то обработчик таких файлов, который будет напрямую редактировать данные в этих XML, то ориентироваться надо на такую модель и структуру данных. И правильное определение будет примерно таким: ячейка — это объект внутри столбца, который в свою очередь находится внутри строки в файле xml, в котором хранятся данные о содержимом листа.

Способы обращения к ячейкам

Выбор и активация

Почти во всех случаях можно и стоит избегать использования методов Select и Activate. На это есть две причины:

  1. Это лишь имитация действий пользователя, которая замедляет выполнение программы. Работать с объектами книги можно напрямую без использования методов Select и Activate.
  2. Это усложняет код и может приводить к неожиданным последствиям. Каждый раз перед использованием Select необходимо помнить, какие ещё объекты были выбраны до этого и не забывать при необходимости снимать выбор. Либо, например, в случае использования метода Select в самом начале программы может быть выбрано два листа вместо одного потому что пользователь запустил программу, выбрав другой лист.

Можно выбирать и активировать книги, листы, ячейки, фигуры, диаграммы, срезы, таблицы и т.д.

Отменить выбор  ячеек можно методом Unselect:

Selection.Unselect

Отличие выбора от активации — активировать можно только один объект из раннее выбранных. Выбрать можно несколько объектов.

Если вы записали и редактируете код макроса, то лучше всего заменить Select и Activate на конструкцию With … End With. Например, предположим, что мы записали вот такой макрос:

Sub Macro1()
' Macro1 Macro
    Range("F4:F10,H6:H10").Select 'выбрали два несмежных диапазона зажав ctrl
    Range("H6").Activate          'показывает только то, что я начал выбирать второй диапазон с этой ячейки (она осталась белой). Это действие ни на что не влияет
    With Selection.Interior       
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535            'залили желтым цветом, нажав на кнопку заливки на верхней панели
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Почему макрос записался таким неэффективным образом? Потому что в каждый момент времени (в каждой строке) программа не знает, что вы будете делать дальше. Поэтому в записи выбор ячеек и действия с ними — это два отдельных действия. Этот код лучше всего оптимизировать (особенно если вы хотите скопировать его внутрь какого-нибудь цикла, который должен будет исполняться много раз и перебирать много объектов). Например, так:

Sub Macro11()
'
' Macro1 Macro
    Range("F4:F10,H6:H10").Select '1. смотрим, что за объект выбран (что идёт до .Select)
    Range("H6").Activate
    With Selection.Interior       '2. понимаем, что у выбранного объекта есть свойство interior, с которым далее идёт работа
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub



Sub Optimized_Macro()
    With Range("F4:F10,H6:H10").Interior '3. переносим объект напрямую в конструкцию With вместо Selection
' ////// Здесь я для надёжности прописал бы ещё Thisworkbook.Sheet("ИмяЛиста") перед Range,
' ////// чтобы минимизировать риск любых случайных изменений других листов и книг
' ////// With Thisworkbook.Sheet("ИмяЛиста").Range("F4:F10,H6:H10").Interior
        .Pattern = xlSolid               '4. полностью копируем всё, что было записано рекордером внутрь блока with
        .PatternColorIndex = xlAutomatic
        .Color = 55555                   '5. здесь я поменял цвет на зеленый, чтобы было видно, работает ли код при поочерёдном запуске двух макросов
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Пример сценария, когда использование Select и Activate оправдано:

Допустим, мы хотим, чтобы во время исполнения программы мы одновременно изменяли несколько листов одним действием и пользователь видел какой-то определённый лист. Это можно сделать примерно так:

Sub Select_Activate_is_OK()
Thisworkbook.Worksheets(Array("Sheet1", "Sheet3")).Select 'Выбираем несколько листов по именам
Thisworkbook.Worksheets("Sheet3").Activate 'Показываем пользователю третий лист
'Далее все действия с выбранными ячейками через Select будут одновременно вносить изменения в оба выбранных листа

'Допустим, что тут мы решили покрасить те же два диапазона:
Range("F4:F10,H6:H10").Select
    Range("H6").Activate
    With Selection.Interior       
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

Единственной причиной использовать этот код по моему мнению может быть желание зачем-то показать пользователю определённую страницу книги в какой-то момент исполнения программы. С точки зрения обработки объектов, опять же, эти действия лишние.

Получение и изменение значений ячеек

Значение ячеек можно получать/изменять с помощью свойства value. 

'Если нужно прочитать / записать значение ячейки, то используется свойство Value
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value 'записать значение ячейки А1 листа "Sheet1" в переменную "a"
ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value = 1  'задать значение ячейки А1 (первый ряд, первый столбец) листа "Sheet1"

'Если нужно прочитать текст как есть (с форматированием), то можно использовать свойство .text:
ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text = "1" 
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text

'Когда проявится разница:
'Например, если мы считываем дату в формате "31 декабря 2021 г.", хранящуюся как дата
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value 'эапишет как "31.12.2021"
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text  'запишет как "31 декабря 2021 г."

Ячейки открытой книги

К ячейкам можно обращаться:

'В книге, в которой хранится макрос (на каком-то из листов, либо в отдельном модуле или форме)
ThisWorkbook.Sheets("Sheet1").Cells(1,1).Value        'По номерам строки и столбца
ThisWorkbook.Sheets("Sheet1").Cells(1,"A").Value      'По номерам строки и букве столбца
ThisWorkbook.Sheets("Sheet1").Range("A1").Value       'По адресу - вариант 1
ThisWorkbook.Sheets("Sheet1").[A1].Value              'По адресу - вариант 2
ThisWorkbook.Sheets("Sheet1").Range("CellName").Value 'По имени ячейки (для этого ей предварительно нужно его присвоить)

'Те же действия, но с использованием полного названия рабочей книги (книга должна быть открыта)
Workbooks("workbook.xlsm").Sheets("Sheet1").Cells(1,1).Value 'По номерам строки и столбца
Workbooks("workbook.xlsm").Sheets("Sheet1").Cells(1,"A").Value                'По номерам строки и букве столбца
Workbooks("workbook.xlsm").Sheets("Sheet1").Range("A1").Value                 'По адресу - вариант 1
Workbooks("workbook.xlsm").Sheets("Sheet1").[A1].Value                        'По адресу - вариант 2
Workbooks("workbook.xlsm").Sheets("Sheet1").Range("CellName").Value           'По имени ячейки (для этого ей предварительно нужно его присвоить)

Ячейки закрытой книги

Если нужно достать или изменить данные в другой закрытой книге, то необходимо прописать открытие и закрытие книги. Непосредственно работать с закрытой книгой не получится, потому что данные в ней хранятся отдельно от структуры и при открытии Excel каждый раз производит расстановку значений по соответствующим «слотам» в структуре. Подробнее о том, как хранятся данные в xlsx см выше.

Workbooks.Open Filename:="С:closed_workbook.xlsx"    'открыть книгу (она становится активной)
a = ActiveWorkbook.Sheets("Sheet1").Cells(1,1).Value  'достать значение ячейки 1,1
ActiveWorkbook.Close False                            'закрыть книгу (False => без сохранения)

Скачать пример, в котором можно посмотреть, как доставать и как записывать значения в закрытую книгу. 

Код из файла:

Option Explicit
Sub get_value_from_closed_wb() 'достать значение из закрытой книги
Dim a, wb_path, wsh As String
wb_path = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value 'get path to workbook from sheet1
wsh = ThisWorkbook.Sheets("Sheet1").Cells(3, 3).Value
Workbooks.Open Filename:=wb_path
a = ActiveWorkbook.Sheets(wsh).Cells(3, 3).Value
ActiveWorkbook.Close False
ThisWorkbook.Sheets("Sheet1").Cells(4, 3).Value = a
End Sub

Sub record_value_to_closed_wb() 'записать значение в закрытую книгу
Dim wb_path, b, wsh As String
wsh = ThisWorkbook.Sheets("Sheet1").Cells(3, 3).Value
wb_path = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value 'get path to workbook from sheet1
b = ThisWorkbook.Sheets("Sheet1").Cells(5, 3).Value 'get value to record in the target workbook
Workbooks.Open Filename:=wb_path
ActiveWorkbook.Sheets(wsh).Cells(4, 4).Value = b 'add new value to cell D4 of the target workbook
ActiveWorkbook.Close True
End Sub

Перебор ячеек

Перебор в произвольном диапазоне

Скачать файл со всеми примерами

Пройтись по всем ячейкам в нужном диапазоне можно разными способами. Основные:

  1. Цикл For Each. Пример: 
    Sub iterate_over_cells()

For Each c In ThisWorkbook.Sheets("Sheet1").Range("B2:D4").Cells
MsgBox (c)
Next c

End Sub​

    Этот цикл выведет в виде сообщений значения ячеек в диапазоне B2:D4 по порядку по строкам слева направо и по столбцам — сверху вниз. Данный способ можно использовать для действий, в который вам не важны номера ячеек (закрашивание, изменение форматирования, пересчёт чего-то и т.д.).

  2. Ту же задачу можно решить с помощью двух вложенных циклов — внешний будет перебирать ряды, а вложенный — ячейки в рядах. Этот способ я использую чаще всего, потому что он позволяет получить больше контроля над исполнением: на каждой итерации цикла нам доступны координаты ячеек. Для перебора всех ячеек на листе этим методом потребуется найти последнюю заполненную ячейку. Пример кода: 
    Sub iterate_over_cells()

Dim cl, rw As Integer
Dim x As Variant

'перебор области 3x3
For rw = 1 To 3 ' цикл для перебора рядов 1-3

    For cl = 1 To 3 'цикл для перебора столбцов 1-3
        x = ThisWorkbook.Sheets("Sheet1").Cells(rw + 1, cl + 1).Value
        MsgBox (x)
    Next cl
Next rw



'перебор всех ячеек на листе. Последняя ячейка определена с помощью UsedRange
'LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
'LastCol = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
'For rw = 1 To LastRow 'цикл перебора всех рядов
'    For cl = 1 To LastCol 'цикл для перебора всех столбцов
'        Действия 
'    Next cl
'Next rw


End Sub​
  3. Если нужно перебрать все ячейки в выделенном диапазоне на активном листе, то код будет выглядеть так: 
    Sub iterate_cell_by_cell_over_selection()
    Dim ActSheet As Worksheet
    Dim SelRange As Range
    Dim cell As Range
    
 
    Set ActSheet = ActiveSheet
    Set SelRange = Selection
    
    'if we want to do it in every cell of the selected range
    For Each cell In Selection
    MsgBox (cell.Value)
    
    Next cell

End Sub​

    Данный метод подходит для интерактивных макросов, которые выполняют действия над выбранными пользователем областями.

  4. Перебор ячеек в ряду 
    Sub iterate_cells_in_row()
    Dim i, RowNum, StartCell As Long
    
    RowNum = 3 'какой ряд
    StartCell = 0 ' номер начальной ячейки (минус 1, т.к. в цикле мы прибавляем i)
    
    For i = 1 To 10 ' 10 ячеек в выбранном ряду
    ThisWorkbook.Sheets("Sheet1").Cells(RowNum, i + StartCell).Value = i '(i + StartCell) добавляет 1 к номеру столбца при каждом повторении
    Next i

End Sub
  5. Перебор ячеек в столбце 
    Sub iterate_cells_in_column()
    Dim i, ColNum, StartCell As Long
    
    ColNum = 3 'какой столбец
    StartCell = 0 ' номер начальной ячейки (минус 1, т.к. в цикле мы прибавляем i)
    
    For i = 1 To 10 ' 10 ячеек
    ThisWorkbook.Sheets("Sheet1").Cells(i + StartCell, ColNum).Value = i ' (i + StartCell) добавляет 1 к номеру ряда при каждом повторении
    Next i

End Sub​

Свойства и методы ячеек

Имя ячейки

Присвоить новое имя можно так:

Thisworkbook.Sheets(1).Cells(1,1).name = "Новое_Имя"

Для того, чтобы сменить имя ячейки нужно сначала удалить существующее имя, а затем присвоить новое. Удалить имя можно так:

ActiveWorkbook.Names("Старое_Имя").Delete

Пример кода для переименования ячеек:

Sub rename_cell()

old_name = "Cell_Old_Name"
new_name = "Cell_New_Name"

ActiveWorkbook.Names(old_name).Delete
ThisWorkbook.Sheets(1).Cells(2, 1).Name = new_name
End Sub

Sub rename_cell_reverse()

old_name = "Cell_New_Name"
new_name = "Cell_Old_Name"

ActiveWorkbook.Names(old_name).Delete
ThisWorkbook.Sheets(1).Cells(2, 1).Name = new_name
End Sub

Адрес ячейки

Sub get_cell_address() ' вывести адрес ячейки в формате буква столбца, номер ряда
  '$A$1 style
  txt_address = ThisWorkbook.Sheets(1).Cells(3, 2).Address
  MsgBox (txt_address)
End Sub

Sub get_cell_address_R1C1()' получить адрес столбца в формате номер ряда, номер столбца
  'R1C1 style
  txt_address = ThisWorkbook.Sheets(1).Cells(3, 2).Address(ReferenceStyle:=xlR1C1)
  MsgBox (txt_address)
End Sub

  'пример функции, которая принимает 2 аргумента: название именованного диапазона и тип желаемого адреса 
  '(1- тип $A$1 2- R1C1 - номер ряда, столбца)
Function get_cell_address_by_name(str As String, address_type As Integer)
  '$A$1 style
  Select Case address_type
    Case 1
      txt_address = Range(str).Address
    Case 2
      txt_address = Range(str).Address(ReferenceStyle:=xlR1C1)
    Case Else
      txt_address = "Wrong address type selected. 1,2 available"
    End Select
  get_cell_address_by_name = txt_address
End Function

'перед запуском нужно убедиться, что в книге есть диапазон с названием, 
'адрес которого мы хотим получить, иначе будет ошибка
Sub test_function() 'запустите эту программу, чтобы увидеть, как работает функция
  x = get_cell_address_by_name("MyValue", 2)
  MsgBox (x)
End Sub

Размеры ячейки

Ширина и длина ячейки в VBA меняется, например, так:

Sub change_size()
Dim x, y As Integer
Dim w, h As Double

'получить координаты целевой ячейки
x = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value
y = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value

'получить желаемую ширину и высоту ячейки
w = ThisWorkbook.Sheets("Sheet1").Cells(6, 2).Value
h = ThisWorkbook.Sheets("Sheet1").Cells(7, 2).Value

'сменить высоту и ширину ячейки с координатами x,y
ThisWorkbook.Sheets("Sheet1").Cells(x, y).RowHeight = h
ThisWorkbook.Sheets("Sheet1").Cells(x, y).ColumnWidth = w


End Sub

Прочитать значения ширины и высоты ячеек можно двумя способами (однако результаты будут в разных единицах измерения). Если написать просто Cells(x,y).Width или Cells(x,y).Height, то будет получен результат в pt (привязка к размеру шрифта). 

Sub get_size()
Dim x, y As Integer
'получить координаты ячейки, с которой мы будем работать
x = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value
y = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value

'получить длину и ширину выбранной ячейки в тех же единицах измерения, в которых мы их задавали
ThisWorkbook.Sheets("Sheet1").Cells(2, 6).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).ColumnWidth
ThisWorkbook.Sheets("Sheet1").Cells(3, 6).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).RowHeight

'получить длину и ширину с помощью свойств ячейки (только для чтения) в поинтах (pt)
ThisWorkbook.Sheets("Sheet1").Cells(7, 9).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).Width
ThisWorkbook.Sheets("Sheet1").Cells(8, 9).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).Height

End Sub

Скачать файл с примерами изменения и чтения размера ячеек

Запуск макроса активацией ячейки

Для запуска кода VBA при активации ячейки необходимо вставить в код листа нечто подобное:

3 важных момента, чтобы это работало:

1. Этот код должен быть вставлен в код листа (здесь контролируется диапазон D4)

2-3. Программа, ответственная за запуск кода при выборе ячейки, должна называться Worksheet_SelectionChange и должна принимать значение переменной Target, относящейся к триггеру SelectionChange. Другие доступные триггеры можно посмотреть в правом верхнем углу (2).

Скачать файл с базовым примером (как на картинке)

Скачать файл с расширенным примером (код ниже)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        ' имеем в виду, что триггер SelectionChange будет запускать эту Sub после каждого клика мышью (после каждого клика будет проверяться:
          '1. количество выделенных ячеек и 
          '2. не пересекается ли выбранный диапазон с заданным в этой программе диапазоном.
        ' поэтому в эту программу не стоит без необходимости писать никаких других тяжелых операций

    If Selection.Count = 1 Then 'запускаем программу только если выбрано не более 1 ячейки


    'вариант модификации - брать адрес ячейки из другой ячейки:
    'Dim CellName as String
    'CellName = Activesheet.Cells(1,1).value 'брать текстовое имя контролируемой ячейки из A1 (должно быть в формате Буква столбца + номер строки)
    'If Not Intersect(Range(CellName), Target) Is Nothing Then
    'для работы этой модификации следующую строку надо закомментировать/удалить



        If Not Intersect(Range("D4"), Target) Is Nothing Then 
        'если заданный (D4) и выбранный диапазон пересекаются 
        '(пересечение диапазонов НЕ равно Nothing)

        'можно прописать диапазон из нескольких ячеек:
        'If Not Intersect(Range("D4:E10"), Target) Is Nothing Then
        'можно прописать несколько диапазонов:
        'If Not Intersect(Range("D4:E10"), Target) Is Nothing or Not Intersect(Range("A4:A10"), Target) Is Nothing Then

            Call program 'выполняем программу
        End If
    End If
End Sub

Sub program()

MsgBox ("Program Is running") 'здесь пишем код того, что произойдёт при выборе нужной ячейки


End Sub

Источник

добрый день

нужно скрыть сроки, которые = «»

нашел код в инете

Sub SelectCells()

Dim iCell As Range
Dim iUnionRange As Range
iDateOne = "" '"01/01/04" '
'iDateTwo = #1/2/2004# '"02/01/04"
For Each iCell In Range("A10003:A10125")
If iCell >= iDateOne And iCell <= iDateTwo Then
If iUnionRange Is Nothing Then
   Set iUnionRange = Union(iCell, iCell)
Else
   Set iUnionRange = Union(iUnionRange, iCell)
End If
End If
Next
If Not iUnionRange Is Nothing Then iUnionRange.EntireRow.Hidden = True
End Sub

вроде как работает, но ячейки обратно не отображаются. и только есть 2 раза кликнуть между строк, то они появляются обратно. кто может доработать этот код или скинуть свой вариант?

спасибо

хм… закрыл и открыл файл, вроде работает код

Шибко заморочено. Вариант:

Sub www()
   ActiveSheet.AutoFilterMode = 0:[A10003:A10125].AutoFilter 1, "=*?*", , , 0
End Sub

Я, как всегда, чертовски адекватен… Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

да уж немножко :)

Как вариант для отображения отфильтрованных ячеек можно использовать строку

Cells.AutoFilter
которая убирает фильтр вообще.

если же строки скрыты то

Cells.EntireRow.Hidden = False

Источник

Скрытие и раскрытие столбцов по нескольким критериям

mitox

 Дата: Четверг, 15.03.2018, 14:30 |
Сообщение № 1

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

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

Сообщений: 26


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

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


Excel 2016

День добрый.
Я столкнулся с проблемой, надеялся что смогу освоить написание макросов в эксель в короткие сроки, но перерыв инет понял что тут не все так просто (не могу понять сходу алгоритмы и логику — во всех макросах различная логика)
А стоит вроде простая задача — есть безумная таблица (см. вложение), в которой необходимо скрывать и раскрывать столбцы исходя из следующих критериев которые хотелось задавать/снимать по следующим критериям через выпадающие меню:
— период (выбрать один или несколько месяцев) — в строке 3
— ответственный (маркетинг или продажи) — в строке 4
— тип таблицы (план, корр 1 итд) — в строке 5

Понимаю что запуск изменения скрытых столбцов возможен только нажатием отдельной кнопки после выбора по заданным критериям

Группировка тут не поможет
Упростить таблицу — тоже не поможет (ибо так задано свыше)

Прошу помочь если есть возможность (сильно не надеюсь, но вдруг найдется кто)
В любом случае спасибо

К сообщению приложен файл:

8908960.xlsx
(53.3 Kb)

Сообщение отредактировал mitox — Четверг, 15.03.2018, 14:44
 

Ответить

K-SerJC

 Дата: Четверг, 15.03.2018, 20:01 |
Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487


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

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


Excel 2013

Доброго вечера!
у вас в файле именованные диапазоны с битыми ссылками
и с ссылками на другую книгу
типа вот таких
Мои документыAppDataLocalTempДеловые игрыЭкономика2018Бюджет план новый формат[План продаж_15032018_2.xlsm]Продажи’!$C:$FF

это вы пытались списки делать?
или это изначально такой файл у вас с таблицей?

в файле сделайте вариант как изначально выглядит, и как вы хоти чтобы выглядело при изменении
ато как то непонятно описали по строкам 3,4,5 не совпадают пожелания с тем что в файле указано.

Благими намерениями выстелена дорога в АД.

 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 06:22 |
Сообщение № 3

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

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

Сообщений: 26


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

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


Excel 2016

День добрый.
Битые ссылки я убрал (это я называл массивы на листах в рабочем файле для работы с формулой ВПР)

Наверно упрощу вопрос (умерю свой аппетит)
Критерия для отбора два:
— отображать колонки где в строке 5 выбран из выпадающего списка одно из наименований (там указаны: план, корр 1, корр 2, корр 3, корр 4)
— отображать колонки где в строке 4 выбрано наименование подразделения (маркетинг или продажи)
— запуск макроса кнопкой после выбора позиций критериям

Во вложении:
— на листе 1 я скрыл все колонки и оставил только те где я захотел видеть «план» по «маркетинг»
— на листе 2 я сформировал таблицу где захотел увидеть «корр 1» по «маркетингу» и «продажам»
Вариантов из критериев может быть и больше (к примеру хочу увидеть план и корр, по маркетингу, и т.д.

Сообщение отредактировал mitox — Пятница, 16.03.2018, 06:46
 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 06:56 |
Сообщение № 4

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

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

Сообщений: 26


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

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


Excel 2016

Макрос скрытия по содержанию ячейки в определенной строке я нашел, но это не решает задачу выбора по двум критериям и множеством значений в каждом из них которые нужно задавать через выпадающие меню

[vba]

Код

Sub Hide()
Dim cell As Range
Application.ScreenUpdating = False ‘отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells ‘проходим по всем ячейкам первой строки
If cell.Value = «x» Then cell.EntireColumn.Hidden = True ‘если в ячейке x — скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(1).Cells ‘проходим по всем ячейкам первого столбца
If cell.Value = «x» Then cell.EntireRow.Hidden = True ‘если в ячейке x — скрываем строку
Next
Application.ScreenUpdating = True
End Sub

Sub Show()
Columns.Hidden = False ‘отменяем все скрытия строк и столбцов
Rows.Hidden = False
End Sub

[/vba]

Заменил в нем поиск «х» на ссылку на ячейку где разместил выпадающий список — но получается что макрос скрывает выбранное мною одно значение, а нужно наоборот — скрывать все прочие кроме выбранного. Ищу дальше — в помощи очень нуждаюсь

Сообщение отредактировал mitox — Пятница, 16.03.2018, 08:09
 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 07:57 |
Сообщение № 5

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

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

Сообщений: 26


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

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


Excel 2016

Видимо алгоритм макроса должен искать в заданном диапазоне строки, а не во всей (нужно задать диапазон), и скрывать все кроме выбранного, при этом проверять второй критерий и учитывать его значение. С диапазоном проблем не возникло, а вот с учетом второго критерия и срытия кроме выбранного у меня беда
[vba]

Код

Sub Скрыть_Процесс()
Dim cell As Range
Application.ScreenUpdating = False ‘отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Range(«k4:es4»).Cells ‘проходим по заданному диапазону
If cell.Value = Range(«c3») Then cell.EntireColumn.Hidden = True ‘если в ячейке выбранное значение в ячейке с3 — скрываем столбец
Next
Application.ScreenUpdating = True
End Sub
Sub Скрыть_Этап()
Dim cell As Range
Application.ScreenUpdating = False ‘отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Range(«k5:es5»).Cells ‘проходим по проходим по заданному диапазону
If cell.Value = Range(«d3») Then cell.EntireColumn.Hidden = True ‘если в ячейке выбранное значение в ячейке d3 — скрываем столбец
Next
Application.ScreenUpdating = True
End Sub

Sub Раскрыть_все()
Columns.Hidden = False ‘отменяем все скрытия строк и столбцов
Rows.Hidden = False
End Sub

[/vba]

Прикрепил файл (на листе 2 — разместил содержание диапазонов и задал им наименование чтобы настроить списки)

Сообщение отредактировал mitox — Пятница, 16.03.2018, 08:09
 

Ответить

nilem

 Дата: Пятница, 16.03.2018, 08:31 |
Сообщение № 6

Группа: Авторы

Ранг: Старожил

Сообщений: 1612


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

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


Excel 2013, 2016

mitox, привет
Попробуйте
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range(«C3,F3,G3»)) Is Nothing Then Exit Sub

Dim rHid As Range, r As Range, MrPr$, Pl$, Kor$

MrPr = Range(«C3»).Value    ‘маркетинг, план, *
Pl = Range(«F3»).Value
Kor = Range(«G3»).Value
Set rHid = Range(«A1»)

With Range(«K4:ES5»)
    For Each r In .Rows(1).Cells
        If r.Value Like MrPr Then
            If r(2, 1) = Pl Or r(2, 1) = Kor Then
                Set rHid = Union(rHid, r)
            End If
        End If
    Next r
    .EntireColumn.Hidden = True
    Intersect(.Cells, rHid).EntireColumn.Hidden = False
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 08:57 |
Сообщение № 7

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

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

Сообщений: 26


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

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


Excel 2016

Спасибо огромное. Так проще конечно же. А что нужно сделать чтобы убрать отбор по ячейке G3 (полезно, но не в моем случае)?
Видимо так
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range(«C3,f3»)) Is Nothing Then Exit Sub

Dim rHid As Range, r As Range, MrPr$, Pl$

MrPr = Range(«C3»).Value    ‘маркетинг, план, *
Pl = Range(«f3»).Value
Set rHid = Range(«A1»)

With Range(«K4:ES5»)
    For Each r In .Rows(1).Cells
        If r.Value Like MrPr Then
            If r(2, 1) = Pl Or r(2, 1) = Kor Then
                Set rHid = Union(rHid, r)
            End If
        End If
    Next r
    .EntireColumn.Hidden = True
    Intersect(.Cells, rHid).EntireColumn.Hidden = False
End With
End Sub

[/vba]

Сообщение отредактировал mitox — Пятница, 16.03.2018, 09:00
 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 09:03 |
Сообщение № 8

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

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

Сообщений: 26


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

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


Excel 2016

Но есть проблема. Если пользователь сначала введет корр 1, а потом план. То план не отобразится — и они будут встревожены
 

Ответить

nilem

 Дата: Пятница, 16.03.2018, 09:15 |
Сообщение № 9

Группа: Авторы

Ранг: Старожил

Сообщений: 1612


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

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


Excel 2013, 2016

если нужен только план, выбираем в F3 план и в G3 план
если нужны корр1 и план, выбираем в F3 корр1 и в G3 план
Так не подходит?

Яндекс.Деньги 4100159601573

 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 09:19 |
Сообщение № 10

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

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

Сообщений: 26


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

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


Excel 2016

Можно, но это путает не искушенного пользователя — и это мои сотрудники (хотя могут и привыкнуть). Да и на сравнении кодов начинаешь понимать как они работают.
 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 09:21 |
Сообщение № 11

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

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

Сообщений: 26


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

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


Excel 2016

И второй вопрос, а как переписать этот код чтобы он работал по вертикали?
 

Ответить

nilem

 Дата: Пятница, 16.03.2018, 09:25 |
Сообщение № 12

Группа: Авторы

Ранг: Старожил

Сообщений: 1612


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

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


Excel 2013, 2016

По вертикали — скрывать строки?
В принципе так же, только
[vba]

Код

.EntireRow.Hidden = False

[/vba]

Яндекс.Деньги 4100159601573

 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 09:44 |
Сообщение № 13

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

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

Сообщений: 26


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

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


Excel 2016

Поправил, но где то ошибка
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range(«C5,f5,g5»)) Is Nothing Then Exit Sub

Dim rHid As Range, r As Range, MrPr$, Pl$, Kor$

MrPr = Range(«C5»).Value    ‘ìàðêåòèíã, ïëàí, *
Pl = Range(«f5»).Value
Kor = Range(«g5»).Value
Set rHid = Range(«A1»)

With Range(«b9:c16»)
    For Each r In .Rows(1).Cells
        If r.Value Like MrPr Then
            If r(2, 1) = Pl Or r(2, 1) = Kor Then
                Set rHid = Union(rHid, r)
            End If
        End If
    Next r
    .EntireRow.Hidden = True
    Intersect(.Cells, rHid).EntireRow.Hidden = False
End With
End Sub

[/vba]
 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 09:46 |
Сообщение № 14

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

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

Сообщений: 26


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

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


Excel 2016

не там поправил вот файл

К сообщению приложен файл:

2391545.xlsm
(22.2 Kb)
 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 09:55 |
Сообщение № 15

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

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

Сообщений: 26


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

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


Excel 2016

В нем строки уже скрыты
 

Ответить

nilem

 Дата: Пятница, 16.03.2018, 10:03 |
Сообщение № 16

Группа: Авторы

Ранг: Старожил

Сообщений: 1612


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

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


Excel 2013, 2016

вот

Яндекс.Деньги 4100159601573

 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 10:11 |
Сообщение № 17

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

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

Сообщений: 26


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

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


Excel 2016

Спасибо. Видел эту строку — и кажется ее правил правил
[vba]

Код

For Each r In .Columns(1).Cells

[/vba]
Кажется затупил .

Очень спасибо за ваше терпение. Можно последний вопрос по этой теме задать и я больше не буду вас мучать вопросами как проправить?
 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 10:19 |
Сообщение № 18

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

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

Сообщений: 26


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

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


Excel 2016

Снимаю вопрос. Всем большое спасибо
 

Ответить

mitox

 Дата: Пятница, 16.03.2018, 11:34 |
Сообщение № 19

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

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

Сообщений: 26


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

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


Excel 2016

Начал настраивать таблицу. В ней необходимо защищать большинство ячеек где размещены формулы — и макрос выдал ошибку.
Что делать?

Вопрос перенес в новую тему

Сообщение отредактировал mitox — Пятница, 16.03.2018, 13:04
 

Ответить
Источник
 

Sorov

Пользователь

Сообщений: 6
Регистрация: 05.07.2016

Добрый день!
Просьба помочь в написании макроса
Суть такая, есть определенные строки в документе, по умолчанию они скрыты (7:22). Необходимо чтобы при выполнении макроса отображались первые 4 строки из скрытых. При последующем выполнении этого же макроса отображались следующие 4 строки. И так далее.  Макрос должен работать только в этом диапазоне строк (c 7 по 22).

Прикрепленные файлы

  • Пример.xlsm (18.48 КБ)
 

Catboyun

Пользователь

Сообщений: 1631
Регистрация: 09.05.2015

судя по Вашему описанию, можно макрорекордером записать,
если я не прв извените, т.к. файл не смотрел.
 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

#3

05.07.2016 16:17:32

В ячейку А1 запишите 7 — первая строка блока
Затем запускайте макрос

Код 
Sub iHide()
Dim FirstRow As Integer
    FirstRow = Range("A1")
    Rows("7:22").Hidden = True
    Rows(FirstRow & ":" & FirstRow + 3).Hidden = False
    Range("A1") = FirstRow + 4
    If Range("A1") = 23 Then Range("A1") = 7
End Sub
 

Sorov

Пользователь

Сообщений: 6
Регистрация: 05.07.2016

кнопка цитирования не для ответа [МОДЕРАТОР]
Спасибо. Но только при повторном запуске макроса необходимо чтобы предыдущее не скрывалось

Изменено: Sorov — 06.07.2016 21:15:12
 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

#5

05.07.2016 17:32:46

Цитата
чтобы предыдущее не скрывалось
Код 
Sub iHide()
Dim FirstRow As Integer
    FirstRow = Range("A1")
    Rows("7:22").Hidden = True
    Rows("7:" & FirstRow + 3).Hidden = False
    Range("A1") = FirstRow + 4
    If Range("A1") = 23 Then
      Range("A1") = 7
      Rows("7:22").Hidden = True
    End If
End Sub
 

SAS888

Пользователь

Сообщений: 757
Регистрация: 01.01.1970

#6

06.07.2016 06:29:20

Можно обойтись без использования ячейки листа:

Код 
Sub qq()
    Static i As Integer
    i = IIf(i = 0, 7, i + 4)
    Rows(7 & ":" & i + 3).Hidden = False
    If i > 22 Then
        Rows("7:22").Hidden = True: i = 0
    End If
End Sub

Пример во вложении.

Прикрепленные файлы

  • Пример.xlsm (23.07 КБ)

Чем шире угол зрения, тем он тупее.

 

Sorov

Пользователь

Сообщений: 6
Регистрация: 05.07.2016

#7

06.07.2016 07:15:14

Kuzmich,

Цитата
Kuzmich написал: If Range(«A1») = 23 Then

23 заменил на 27, чтобы четвертый цикл появлялся…. и все.
Спасибо за помощь!
 

Sorov

Пользователь

Сообщений: 6
Регистрация: 05.07.2016
 

Ренат

Пользователь

Сообщений: 126
Регистрация: 20.05.2016

#9

06.07.2016 19:20:33

Тема: «… скрытие …» ;)

типа оффтоп

Можно в цикле с шагом 4 проверять строку на видимость и, если она скрыта, то отображать её + 3 последующие строки и останавливать выполнение макроса. Такой макрос будет продолжать начатое даже после перезапуска эксель при отображённых первых 8и строках (например). После цикла можно добавить скрытие всех строк 7-22 (которое выполнится только, когда макросу нечего будет отображать). Т.е. есть возможность «без лишних телодвижений» сделать бесконечное последовательное выполнение:

Код 
Отображение строк 7-10;
Отображение строк 11-14;
Отображение строк 15-18;
Отображение строк 19-22;
Скрытие строк 7-22;
...

Которое будет продолжаться с любого этапа (если при закрытии документа сохранить начатое) ;)
Тут, правда, ещё возникает вопрос «необходимо ли это заказчику?»… :)

Изменено: Ренат — 07.07.2016 06:59:36
(добавил вопрос о необходимости… поправил шаг цикла)

Успехов. И мне того же. Благодарю. :)

 

Ренат

Пользователь

Сообщений: 126
Регистрация: 20.05.2016

#10

07.07.2016 07:00:48

Цитата
Ренат написал: в цикле с шагом 3

*с шагом 4…  :oops:
Исправил(ся).

Успехов. И мне того же. Благодарю. :)

Источник

Sub Макрос()

    Dim rng1 As Range, rng2 As Range
    Dim i As Long

            ‘1. Отключение монитора, чтобы ускорить макрос.
    Application.ScreenUpdating = False

        ‘2. Присваиваем имена нужным диапазонам для удобства написания макроса.
    Set rng1 = Worksheets(«БД»).Range(«B2:B19»)
    Set rng2 = Worksheets(«Скрыть»).Range(«C12:C29»)

        ‘ Двигаемя по строкам диапазона «rng1».
    For i = 1 To rng1.Rows.Count

            ‘3. Если в ячейке пусто.
        ‘ CStr используется, чтобы не было run-time-ошибки, если в эксель-ячейке будет эксель-ошибка.
        If CStr(rng1.Cells(i, 1).Value) = «» Then
            ‘ Rows(i) — в нашем случае это строка, которая состоит только
                ‘ из одного столбца, т.к. диапазон «rng2» состоит из одного столбца.
                ‘ Чтобы обратиться к целой строке, используется «EntireRow».
            rng2.Rows(i).EntireRow.Hidden = True
        ‘4. Если в ячейке не пусто.
        Else
            ‘ Отображение строки.
            rng2.Rows(i).EntireRow.Hidden = False
        End If
    Next i

        ‘5. Вкл. монитора.
    Application.ScreenUpdating = True

End Sub

[свернуть]

Источник

Like this post? Please share to your friends:
  • Excel vba for workbook
  • Excel vba points to pixels
  • Excel vba for to ubound
  • Excel vba pivottable all
  • Excel vba for textbox