Свой код для каждого листа - Microsoft Office Excel

Brucebelg · 26.01.2012, 13:56

Добрый день.

Подскажите, плиз, как создать коды для каждого листа в книге. Сейчас есть код, котроый работает на первом листе. Второй лист будет иметь свой код. Когда я открываю Developer и VB, в основном окне написан код для первого листа, слева в доп. окне Vba project c трямя снизу листами в форме файловой структуры и эта книга. Серым выделен лист 1 для которого уже написан код. Задача создать код для второго, третьего и тд и привязать их к этим листам.

Спасибо за помощь.

IgorGO · 26.01.2012, 14:11

Собственно, с какими проблемами Вы столкнулись при реализации столь мудренной задачи?
или забыли файл-пример прикрепить?

Казанский · 26.01.2012, 14:13

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

Brucebelg · 26.01.2012, 14:18

Проблема одна - как это сделать? Ни разу не пробовал. Файл прикреплен

Казанский · 26.01.2012, 14:40

Перенес в модуль книги, немного поправил.
ЗИП не загружается, прицепил в РАРе.

IgorGO · 26.01.2012, 14:45

это в модуль книги:

Код:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
  If Source.Address = [C3].Address Then
    Sh.UsedRange.EntireRow.Hidden = False
    Sh.Range(Source + 8 & ":28").EntireRow.Hidden = (Source > 0 And Source < 21)
  End If
End Sub

с модуля листа процедуру необходимо удалить

Brucebelg · 26.01.2012, 16:33

Сасибо и простите, что туплю, но

1) как удалить из модуля листа и как вставить в модуль книги? Если я пишу код в правом окне, то он потом остается в нем, невзирая на то на какой лист в левом окне я нажимаю. Собственно, вопрос и был - есть код, скажем для 1 листа и другой код для второго листа, как их связать с этими листами?

2) по собственно коду - будучи в книге он распространяет действие на все листы? Это не совсем то, что мне нужно, нужн свой код для каждого листа

Спасибо

Brucebelg · 26.01.2012, 16:39

по 1 вопросу разобрался сам, спасибо.

IgorGO · 26.01.2012, 16:41

в екселе правой кнопкой мыши по ярлыку листа / исходный текст - вы в модуле листа.
либо в редакторе VBA - Ctrl+R (откроется Project Explorer, там легко выбрать модуль листа, книги, пр.)

Brucebelg · 26.01.2012, 16:48

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

26.01.2012, 13:56	#1
Brucebelg Пользователь Регистрация: 18.05.2010 Сообщений: 61	Свой код для каждого листа Добрый день. Подскажите, плиз, как создать коды для каждого листа в книге. Сейчас есть код, котроый работает на первом листе. Второй лист будет иметь свой код. Когда я открываю Developer и VB, в основном окне написан код для первого листа, слева в доп. окне Vba project c трямя снизу листами в форме файловой структуры и эта книга. Серым выделен лист 1 для которого уже написан код. Задача создать код для второго, третьего и тд и привязать их к этим листам. Спасибо за помощь.

26.01.2012, 14:11	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Собственно, с какими проблемами Вы столкнулись при реализации столь мудренной задачи? или забыли файл-пример прикрепить? Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

26.01.2012, 14:13	#3
Казанский Старожил Регистрация: 31.12.2010 Сообщений: 2,133	Может, лучше создать универсальный код в модуле ЭтаКнига? Там тоже можно обрабатывать события листов, можно выполнять разные действия в зависимости от того, на каком листе произошло событие. exceleved@yandex.ru Яндекс.Деньги: 410011500007619

26.01.2012, 14:45	#6
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	это в модуль книги: Код: `Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range) If Source.Address = [C3].Address Then Sh.UsedRange.EntireRow.Hidden = False Sh.Range(Source + 8 & ":28").EntireRow.Hidden = (Source > 0 And Source < 21) End If End Sub` с модуля листа процедуру необходимо удалить Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

26.01.2012, 16:41	#9
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	в екселе правой кнопкой мыши по ярлыку листа / исходный текст - вы в модуле листа. либо в редакторе VBA - Ctrl+R (откроется Project Explorer, там легко выбрать модуль листа, книги, пр.) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

26.01.2012, 16:33	#7
Brucebelg Пользователь Регистрация: 18.05.2010 Сообщений: 61	Сасибо и простите, что туплю, но 1) как удалить из модуля листа и как вставить в модуль книги? Если я пишу код в правом окне, то он потом остается в нем, невзирая на то на какой лист в левом окне я нажимаю. Собственно, вопрос и был - есть код, скажем для 1 листа и другой код для второго листа, как их связать с этими листами? 2) по собственно коду - будучи в книге он распространяет действие на все листы? Это не совсем то, что мне нужно, нужн свой код для каждого листа Спасибо

26.01.2012, 16:39	#8
Brucebelg Пользователь Регистрация: 18.05.2010 Сообщений: 61	по 1 вопросу разобрался сам, спасибо.

26.01.2012, 16:48	#10
Brucebelg Пользователь Регистрация: 18.05.2010 Сообщений: 61	2 Казанский, спасибо за вариант. Как я понимаю, чтобы теперь создать код для второй страницы, я пишу его после этого в то

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как из memo1 переписать текст в memo2 изменяя код каждого символа на 3 ch:=chr(ord(ch)+3))	xpams	Компоненты Delphi	2	16.09.2011 19:35
за счет некоторой ошибки выполнить свой код.	ромик0	Помощь студентам	2	27.06.2011 23:27
Цикл для каждого листа.	Richard123	Microsoft Office Excel	3	24.01.2011 16:11
Как в этом макросе указать , что-бы было название каждого листа и книги ,при сборе всех листов на один ?	Александр 33	Microsoft Office Excel	9	06.01.2011 18:40
посчитать значение по каждой статье за определенный период для каждого листа	Graver	Microsoft Office Excel	5	04.12.2009 01:31