Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Одна кнопка на все листы
 
#1
20.12.2008 23:14:28
Кто знает как сделать CommandButton видимую на всех листах, не копируя её на каждый лист отдельно.И что б при добавлении нового листа она уже там сидела. Подскажите а    
 Спасибо
 
 
 
#2
20.12.2008 23:20:46
Я бы создал кнопку на первом (единственном) листе. А в модуль Эта книга вставил бы процедуру копирования этой кнопки на новый лист. Если уже есть достаточное ко-во листов - копирование можно выполнить циклом, перебирая все имеющиеся листы.
 
 
 
#3
20.12.2008 23:25:46
Буду благодарен, если Вы напишете эту процедуру. На сколько, интересно, увеличеться размер файла с 70 листами из-за такого количества кнопок,надеюсь не сильно?
 
 
 
#4
20.12.2008 23:52:23
У меня не получается определить ПОСЛЕДНИЙ (новый) лист. Количество считаю, а вот как узнать имя последнего не знаю. И поэтому пока вставляются кнопки на все уже существующие листы по несколько раз.
 
 
 
#5
20.12.2008 23:53:26
Минутку - Вам нужно вставить кнопки на уже имеющиеся листы? Это для меня проще. Уточните.
 
 
 
#6
21.12.2008 00:00:27
{quote}{login=Юрий М}{date=20.12.2008 11:53}{thema=}{post}Минутку - Вам нужно вставить кнопки на уже имеющиеся листы? Это для меня проще. Уточните.{/post}{/quote}  
В принципе на данном этапе только на имеющиеся листы , но в будущем прийдёться добавлять листы. И если прийдётся менять код кнопки чтоб он автоматом менялся на всех листах.Может создать одну кнопку на 1 листе а на остальных гиперссылку на эту кнопку (если такое возможно)
 
 
 
#7
21.12.2008 00:25:55
Вот копирование существующей кнопки на добавляемые листы
 
 
 
#8
21.12.2008 00:41:24
{quote}{login=Юрий М}{date=21.12.2008 12:25}{thema=}{post}Вот копирование существующей кнопки на добавляемые листы{/post}{/quote}  
Вставка - лист  :( выдаёт ошибку????
 
 
 
#9
21.12.2008 00:42:47
У меня не выдаёт :-)  
Попробуйте сохранить файл на диск и уже потом проверьте.
 
 
 
#10
21.12.2008 00:47:28
Спасибо работает.
 
 
 
#11
21.12.2008 00:48:33
Что-то Вы перемудрили с копированием кода к каждой кнопке. На кнопку первого листа цепляем какой-то макрос, а все скопированные кнопки будут выполнять именно ЭТОТ макрос.
 
 
 
#12
21.12.2008 00:52:35
Спасибо РАБОТАЕТ
 
 
 
#13
21.12.2008 00:55:30
Ещё вот что: можно обойтись без кнопок:  
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)  
If Not Intersect(Target, Range("A1")) Is Nothing Then  
MsgBox "Сработало"  
End If  
Как только встанете на А1 любого листа - сработает нужный Вам макрос. А ячейку можно "раскрасить" под кнопку.
 
 
 
#14
21.12.2008 01:00:12
Возможно проще сделать свою панель инструментов с этой кнопкой или добавить кнопку на существующую панель инструментов.
 
 
 
#15
21.12.2008 13:35:27
пожалуйста прокомментируйте строку  
If Not Intersect(Target, Range("A1")) Is Nothing Then  
точнее:  
Not Intersect  
Target  
Is Nothing
 
 
 
#16
21.12.2008 15:45:31
If Not Intersect(Target, Range("A1")) Is Nothing Then  
 
Если ячейки(Диапазон1, Диапазон2) пересекаются тогда  
 
 
P.S. Дословно    
 
Если пересечение(Диапазон1, Диапазон2)) не равен нулю Тогда  
 
Intersect - пересечение  
Target - какой-то диапазон (или ячейка)  
Is Nothing - равно нулю
 
 
 
#17
21.12.2008 16:31:08
спасибо
 
 
 
Страницы: 1
Читают тему
Наверх