Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Код для выделения закладок - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Код для выделения закладок (Выделять и снимать выделение с закладок.)
Код для выделения закладок
Otter Дата: Вторник, 04.09.2018, 15:17 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 150
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Есть код для чек бокса по выделению закладки , но он не работает.
Если код сделать для кнопки в форме то он срабатывает. Закладки выделяются квадратными скобками.
Пожалуйста помогите доработать код, чтобы работал в чек боксе и выделял желтым и снимал выделение с закладок.
[vba]
Код
Private Sub CheckBox2_Click()
    Dim p%
    If p Then Exit Sub
    With ThisDocument
        If CheckBox1.Value Then
ActiveWindow.View.ShowBookmarks = True 'выделить закладки
        Else
ActiveWindow.View.ShowBookmarks = False 'снять выделение с закладок
        End If
    End With
End Sub
[/vba]
К сообщению приложен файл: __.docm(25.6 Kb)


Сообщение отредактировал Otter - Вторник, 04.09.2018, 15:47
 
Ответить
СообщениеЕсть код для чек бокса по выделению закладки , но он не работает.
Если код сделать для кнопки в форме то он срабатывает. Закладки выделяются квадратными скобками.
Пожалуйста помогите доработать код, чтобы работал в чек боксе и выделял желтым и снимал выделение с закладок.
[vba]
Код
Private Sub CheckBox2_Click()
    Dim p%
    If p Then Exit Sub
    With ThisDocument
        If CheckBox1.Value Then
ActiveWindow.View.ShowBookmarks = True 'выделить закладки
        Else
ActiveWindow.View.ShowBookmarks = False 'снять выделение с закладок
        End If
    End With
End Sub
[/vba]

Автор - Otter
Дата добавления - 04.09.2018 в 15:17
_Boroda_ Дата: Вторник, 04.09.2018, 15:25 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13509
Репутация: 5528 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А файл?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА файл?

Автор - _Boroda_
Дата добавления - 04.09.2018 в 15:25
Otter Дата: Вторник, 04.09.2018, 15:31 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 150
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Файл прикрепил к первому посту.
Ошибку в чек боксе сам нашел. Там надо CheckBox1.Value заменить на CheckBox2.Value
Здесь прикрепил рабочий вариант с чек боксом в форме.

Остался вопрос:
Доработать код, чтобы выделял желтым (что в квадратных скобках)и снимал выделение желтым с закладок.
К сообщению приложен файл: 59.docm(27.0 Kb)


Сообщение отредактировал Otter - Вторник, 04.09.2018, 16:21
 
Ответить
СообщениеФайл прикрепил к первому посту.
Ошибку в чек боксе сам нашел. Там надо CheckBox1.Value заменить на CheckBox2.Value
Здесь прикрепил рабочий вариант с чек боксом в форме.

Остался вопрос:
Доработать код, чтобы выделял желтым (что в квадратных скобках)и снимал выделение желтым с закладок.

Автор - Otter
Дата добавления - 04.09.2018 в 15:31
_Boroda_ Дата: Вторник, 04.09.2018, 16:36 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13509
Репутация: 5528 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Private Sub CheckBox2_Click()
    If CheckBox2.Value Then
        z2_ = wdYellow
    Else
        z2_ = wdNoHighlight
    End If
    ActiveWindow.View.ShowBookmarks = CheckBox2.Value
    For Each bm In ThisDocument.Bookmarks
           bm.Range.HighlightColorIndex = z2_
    Next bm
End Sub
[/vba]

Вот так лучше
[vba]
Код
Private Sub CheckBox2_Click()
    ActiveWindow.View.ShowBookmarks = CheckBox2.Value
    For Each bm In ThisDocument.Bookmarks
       bm.Range.HighlightColorIndex = 7 - bm.Range.HighlightColorIndex
    Next bm
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Private Sub CheckBox2_Click()
    If CheckBox2.Value Then
        z2_ = wdYellow
    Else
        z2_ = wdNoHighlight
    End If
    ActiveWindow.View.ShowBookmarks = CheckBox2.Value
    For Each bm In ThisDocument.Bookmarks
           bm.Range.HighlightColorIndex = z2_
    Next bm
End Sub
[/vba]

Вот так лучше
[vba]
Код
Private Sub CheckBox2_Click()
    ActiveWindow.View.ShowBookmarks = CheckBox2.Value
    For Each bm In ThisDocument.Bookmarks
       bm.Range.HighlightColorIndex = 7 - bm.Range.HighlightColorIndex
    Next bm
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 04.09.2018 в 16:36
Otter Дата: Вторник, 04.09.2018, 20:19 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 150
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Большое Спасибо, за два варианта.
Осталось решить маленькую проблемку.
Да для моего примера все работает отлично. А если прикрутить макросы к шаблону Normal, чтобы работало для всех документов в скобки заключает, а желтым не красит. Как исправить?
 
Ответить
Сообщение_Boroda_, Большое Спасибо, за два варианта.
Осталось решить маленькую проблемку.
Да для моего примера все работает отлично. А если прикрутить макросы к шаблону Normal, чтобы работало для всех документов в скобки заключает, а желтым не красит. Как исправить?

Автор - Otter
Дата добавления - 04.09.2018 в 20:19
_Boroda_ Дата: Вторник, 04.09.2018, 21:21 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13509
Репутация: 5528 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
ThisDocument замените на ActiveDocument


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеThisDocument замените на ActiveDocument

Автор - _Boroda_
Дата добавления - 04.09.2018 в 21:21
Otter Дата: Среда, 05.09.2018, 09:37 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 150
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Да теперь все работает. Еще раз спасибо за помощь.
 
Ответить
Сообщение_Boroda_, Да теперь все работает. Еще раз спасибо за помощь.

Автор - Otter
Дата добавления - 05.09.2018 в 09:37
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Код для выделения закладок (Выделять и снимать выделение с закладок.)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!