Закрепить шапку таблицы!

Upsss Гость	#1 14.09.2011 12:24:16 Простой и очень наивный вопрос: как сделать так, чтобы шапка таблицы всегда оставалась вверху (видна), когда спускаешься на много-много строчек вниз????

Guest Гость	#2 14.09.2011 12:26:22 вид - закрепить области

Upsss Гость	#3 14.09.2011 12:29:11 а в 2003?

Юрий М Модератор Сообщений: 61088 Регистрация: 14.09.2012 Контакты см. в профиле	#4 14.09.2011 12:29:40 Не Вид, а Окно. По крайне мере в 2003 это так.

Upsss Гость	#5 14.09.2011 12:34:12 СПАСИБО!!!:)

Ирина Гость	#6 31.03.2012 13:33:28 а в 2010?

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#7 31.03.2012 13:39:26 A в справке Excel набрать закрепить?

Ирина Гость	#8 31.03.2012 13:59:50 RAN, если Вы в этом разбираетесь, помогите, пожалуйста :))

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#9 31.03.2012 14:08:16 {quote}{login=}{date=14.09.2011 12:26}{thema=}{post}вид - закрепить области{/post}{/quote}

Ирина Гость	#10 31.03.2012 14:13:38 в 2010 нет Вида в Меню

Guest Гость	#11 31.03.2012 14:24:08 Например так: Sub splitRC() Rows("1:2").Columns("A:A").Select With ActiveWindow .SplitColumn = 0 .SplitRow = 2 End With ActiveWindow.FreezePanes = True End Sub Здесь две строки фиксируются.

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#12 31.03.2012 14:28:06 {quote}{login=Ирина}{date=31.03.2012 02:13}{thema=}{post}в 2010 нет Вида в Меню{/post}{/quote} Прикрепленные файлы post_322863.gif (40.14 КБ)

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#13 31.03.2012 14:28:39 {quote}{login=Ирина}{date=31.03.2012 02:13}{thema=}{post}в 2010 нет Вида в Меню{/post}{/quote}Да неужели? А если глазки открыть и в файлик посмотреть? Лень? Прикрепленные файлы post_322864.gif (49.29 КБ)

Ирина

Гость

#14

31.03.2012 14:31:58

Михаил, спасибо Вам большое за ответ. Дело в том, что у меня Меню выглядит по-другому и в нем действительно нет Вида. У меня только

Файл - Главная - Вставка - Разметка страницы - Формулы

Я не могу найти эту кнопку. Помогите, пожалуйста.

Заранее спасибо

Guest Гость	#15 31.03.2012 14:35:52 Придется настраивать панель инструментов.

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#16 31.03.2012 14:46:24 Интересно, что это за версия 2010... стартер, что ли... Тогда выводите кнопку на панель быстрого доступа: Файл - Параметры и дальше так Прикрепленные файлы post_322871.gif (51.54 КБ)

Serge

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

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

#17

31.03.2012 14:49:03

{quote}{login=Ирина}{date=31.03.2012 02:31}{thema=}{post}Я не могу найти эту кнопку.{/post}{/quote}
Пройдитесь по пути Файл - Справка - Дополнительные сведения - О программе и посмотрите, на последнем шаге, в полных данных о версии нет ли у Вас слова "Starter"?
Если есть - то меню Вид у Вас не будет, что бы Вы не делали.

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#18 31.03.2012 14:49:27 Получите такое Прикрепленные файлы post_322875.gif (26.07 КБ)

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#19 31.03.2012 14:50:55 . Прикрепленные файлы post_322876.gif (49.29 КБ)

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#20 31.03.2012 14:52:55 Если всё-же не стартер, то ПКМ по ленте, настроить, далее см. скрин, надо поставить галку Прикрепленные файлы post_322878.gif (72.37 КБ)

Guest Гость	#21 31.03.2012 14:58:18 {quote}{login=}{date=31.03.2012 02:24}{thema=}{post}Например так: Sub splitRC() .................... End Sub Здесь две строки фиксируются.{/post}{/quote} А можно сюда еще добавить фиксацию не только строки, но и определенного пользователем столбца

Guest

Гость

#22

31.03.2012 21:43:31

Sub splitRC()
Rows("1:2").Columns("A:A").Select 'строки с 1 по 2, столбец 1, но возможно любое количество подряд идущих строк и столбцов
With ActiveWindow
.SplitColumn = 0 ' количество нужных столбцов
.SplitRow = 2 ' количество нужных строк
End With
ActiveWindow.FreezePanes = True ' фиксируем
End Sub

Если не нужны книга с поддержкой макросов (2007), то после использования макроса можно его убить.

Guest Гость	#23 31.03.2012 22:22:50 Спасибо

Гость.

Гость

#24

01.04.2012 09:57:06

Привет
У меня тоже возник попутный вопрос-просьба.
Можно ли моздаить второй макрос, для снятия закрепления, встановленнре предыдущим макросом.
И установить два макроса,на одну кнопку с переключением надписи "закрепить шапку" и "снять закрепление", или как то так. Плз
Благодарю заранее

Guest Гость	#25 01.04.2012 11:17:25 Sub splitRC() ActiveWindow.FreezePanes = False Rows("1:2").Columns("A:A").Select If Cells(1000, 1000).Value <> "" Then ActiveWindow.FreezePanes = False Cells(1000, 1000).Value = "" Else With ActiveWindow .SplitColumn = 0 .SplitRow = 2 End With ActiveWindow.FreezePanes = True Cells(1000, 1000).Value = 1 End If End Sub

Guest

Гость

#26

01.04.2012 11:20:50

Приведенный макрос будет делать и то и другое в зависимости от значения ячейки (здесь это Cells(1000,1000)). А вот текст для кнопки придумываем самостоятельно)

П.С.: Вероятно есть способ более элегантно узнать закреплена ли область на листе, но мне такой способ не известен.

Гость. Гость	#27 01.04.2012 11:59:44 Не знаю, или я тупой или в макросе ошибка,. Чо то не работает. Вот на этой строке спотыкается: If Cells(1000, 1000).Value <> "" Then. И не придумывается кнопка. Если можна файл с примером, пжт

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#28 01.04.2012 12:10:07 {quote}{login=}{date=31.03.2012 02:24}{thema=}{post} Sub splitRC(){/post}{/quote} В стартере макросы отключены в принципе. Не в стартере есть меню Вид. Какой смысл в этом макросе?

Гость. Гость	#29 01.04.2012 13:01:29 Какой смысл. А если в проге убираются панели инструментов. Например у меня, такая уже работает.

Юрий М Модератор Сообщений: 61088 Регистрация: 14.09.2012 Контакты см. в профиле	#30 01.04.2012 13:14:16 {quote}{login=Гость.}{date=01.04.2012 11:59}{thema=}{post}не придумывается кнопка{/post}{/quote}Что значит "не придумывается"?

Читают тему