Установка и снятие закрепления областей в Excel

@mulberry · Регистрация: 17.10.2011

Author24 — интернет-сервис помощи студентам

Подскажите, как с помощью VB установить закрепление областей в Excel.

@Tsvet · 17.10.2011, 18:14

В принципе и макрорекодер может помочь справиться с этой задачей, типа вот так:

Visual Basic

With ActiveWindow
        .SplitColumn = 5
        .SplitRow = 6
    End With
    ActiveWindow.SplitRow = 14 ' нужное значение
    ActiveWindow.SplitColumn = 3' нужное значение
    ActiveWindow.FreezePanes = True
End Sub

Чтобы снять закрепление - ActiveWindow.FreezePanes = False

@Tsvet · 17.10.2011, 18:33

Сорри, не дописал

Visual Basic

Sub снять_закрепление()
With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 0
End With
End Sub

@mulberry · 17.10.2011, 18:43 **[ТС]**

спасибо. попробую.

17.10.2011, 18:52

хех.. нужно явно указывать сколько строк или столбцов.А то она на 4 части экран поделит.

@viper-x · 21.02.2022, 16:25

Сумрак, а как это сделать?
---------------------------------------------
Кроме того, мне всегда казалось, что код

Visual Basic

1
2
3

With ActiveWindow
        .SplitColumn = 4
End With

и

Visual Basic

1	ActiveWindow.SplitColumn = 4

делает вроде как одно и то же ...или нет?

@Zeag · 21.02.2022, 16:43

Код делает одно и то же. With пишется, когда с одним объектом много действий. Меньше писать и выше скорость, потому что эксель уже знает, кого "дергать".

@viper-x · 22.02.2022, 08:46

Я пытаюсь закрепить области выше и левее ячейки B2
Код

Visual Basic

With ActiveWindow
        .SplitColumn = 1
        .SplitRow = 1
End With

производит разделение экрана в этом месте,
а следующий код убирает его:

Visual Basic

With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 0
End With

Код же

Visual Basic

[b2].Select
ActiveWindow.FreezePanes = True
'...........
ActiveWindow.FreezePanes = False

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

@Punkt5 · 22.02.2022, 10:13

Сообщение от viper-x

Можно ли обойтись без лишнего Select?

Можно. Достаточно объединить оба ваших куска кода:

Visual Basic

Sheets(1).Activate 'делаем активным тот лист, который будем разделять
With ActiveWindow
  .SplitColumn = 4
  .SplitRow = 2
  .FreezePanes = True
End With

@mulberry 0 / 0 / 0 Регистрация: 17.10.2011 Сообщений: 3
		1
	Установка и снятие закрепления областей в Excel 17.10.2011, 17:48. Показов 28768. Ответов 8 Метки нет (Все метки) Подскажите, как с помощью VB установить закрепление областей в Excel. 0

@mulberry 0 / 0 / 0 Регистрация: 17.10.2011 Сообщений: 3
	17.10.2011, 18:43 [ТС]	4
	спасибо. попробую. 0

Сумрак
	17.10.2011, 18:52	5
	хех.. нужно явно указывать сколько строк или столбцов.А то она на 4 части экран поделит.

@Zeag 834 / 484 / 186 Регистрация: 09.03.2009 Сообщений: 1,664
	21.02.2022, 16:43	7
	Код делает одно и то же. With пишется, когда с одним объектом много действий. Меньше писать и выше скорость, потому что эксель уже знает, кого "дергать". 0

	22.02.2022, 10:13