Снять выделение в Комбоксе - Мир MS Excel

Регистрация

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

= Мир MS Excel/Снять выделение в Комбоксе - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Снять выделение в Комбоксе (Макросы/Sub)

Снять выделение в Комбоксе

Дата: Среда, 21.08.2019, 13:34 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Доброго дня всем форумчанам.
При запуске формы с комбоксом в комбоксе есть выделение выбираемых действий. как убрать выделение при запуске формы.

К сообщению приложен файл: 4341960.xlsm (22.4 Kb)

Ответить

Дата: Среда, 21.08.2019, 14:02 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Не уверена, что правильно поняла. Так хотели?

К сообщению приложен файл: 4680448.xlsm (22.2 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Среда, 21.08.2019, 14:07 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Добрый день

Цитата Otter, 21.08.2019 в 13:34, в сообщении № 1 ()

как убрать выделение при запуске формы.

в UserForm_Initialize удалить строки, которые выделение устанавливают (содержащие [vba]

Код

comboComments.ListIndex =

[/vba])

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Среда, 21.08.2019, 14:31 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Цитата krosav4ig, 21.08.2019 в 14:07, в сообщении № 3 ()

в UserForm_Initialize удалить строки, которые выделение устанавливают (содержащие
comboComments.ListIndex =

Тогда ошибка:
Compile error:
Case without Select Case

Ответить

Дата: Среда, 21.08.2019, 14:35 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Цитата Pelena, 21.08.2019 в 14:02, в сообщении № 2 ()

Не уверена, что правильно поняла. Так хотели?

Да вы правильно поняли. При запуске нет выделения, а когда выбираем другую позицию
оно опять появляется и чтобы снять приходится выделять какую нибудь ячейку для его снятия.
А еще появилась пустая строка вверху ее тоже надо убрать.

Ответить

Дата: Среда, 21.08.2019, 14:47 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Обратите внимание, что если при запуске формы мы щелкаем по какой нибудь ячейке
выделение снимается и далее оно не появляется при переборе других значений комбокса.
А задачка то не простая как кажется, но должно же быть решение. <_<

<_<

Сообщение отредактировал Otter - Среда, 21.08.2019, 15:01

Ответить

Дата: Среда, 21.08.2019, 14:59 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Зачем так мудрить?
[vba]

Код

Private Sub UserForm_Initialize()
   '   Fill the ComboBoxes
    With comboComments
        .Clear
        .AddItem "Только индикатор"
        .AddItem "Показать"
        .AddItem "Скрыть"
    End With
'   Get the current settings
    With Application
        cbFullScreen = .DisplayFullScreen
    End With
    End Sub

Private Sub comboComments_Change()
    Select Case comboComments ' .ListIndex
        Case "Только индикатор": Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        Case "Показать": Application.DisplayCommentIndicator = xlCommentAndIndicator
        Case "Скрыть": Application.DisplayCommentIndicator = xlNoIndicator
    End Select
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Среда, 21.08.2019, 15:09 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Цитата RAN, 21.08.2019 в 14:59, в сообщении № 7 ()

Зачем так мудрить?

Ну так сделайте проще или по другому. Главное чтобы нужная задачка выполнялась.
При вашем упрощении после запуска пустая строка и когда выбираем пункты списка они тоже становятся выделенными.

Ответить

Дата: Среда, 21.08.2019, 19:49 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Otter, 21.08.2019 в 14:31, в сообщении № 4 ()

Тогда ошибка:
Compile error:
Case without Select Case

ну дык зачем было удалять строку
[vba]

Код

Select Case comboComments.ListIndex

[/vba]?

Цитата Otter, 21.08.2019 в 14:35, в сообщении № 5 ()

появилась пустая строка вверху ее тоже надо убрать.

Кто вам мешает это сделать?

Цитата Otter, 21.08.2019 в 15:09, в сообщении № 8 ()

Главное чтобы нужная задачка выполнялась.

читаем заголовок темы и первый пост

Цитата Otter, 21.08.2019 в 13:34, в сообщении № 1 ()

Снять выделение в Комбоксе

Цитата Otter, 21.08.2019 в 13:34, в сообщении № 1 ()

как убрать выделение при запуске формы

код из #7 на 100% этой задаче соответствует
снятие выделения комбобокса
[vba]

Код

comboComments.ListIndex = -1

[/vba]напишете эту строку сами там, где вам нужно выделение снять

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Среда, 21.08.2019, 19:51 | Сообщение № 10

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата Otter, 21.08.2019 в 15:09, в сообщении № 8 ()

Ну так сделайте проще или по другому.

Да я бы с удовольствием, но...

PS судя по всему, под "выделением" понимается не наличие текста в ячейке, а его окрашивание в синий цвет, как при выделении фрагмента.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 21.08.2019, 20:17

Ответить

Дата: Среда, 21.08.2019, 20:29 | Сообщение № 11

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Цитата RAN, 21.08.2019 в 19:51, в сообщении № 10 ()

судя по всему, под "выделением" понимается не наличие текста в ячейке, а его окрашивание в синий цвет, как при выделении фрагмента.

Да это Вы сто процентов поняли. Нужно чтобы не было этого синего цвета после запуска формы и дальнейшем выбором из списка.

Цитата

comboComments.ListIndex = -1

Куда только я это не вставлял. Окрашивание в синий цвет не пропадает.

Сообщение отредактировал Otter - Среда, 21.08.2019, 20:40

Ответить

Дата: Среда, 21.08.2019, 20:51 | Сообщение № 12

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Хотя...

К сообщению приложен файл: 4341960-4-.xlsm (22.6 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Среда, 21.08.2019, 21:00 | Сообщение № 13

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

RAN, Спасибо огромное.
Вы не только поняли ошибку формулирования вопроса,
но и дали правильный вариант решения, которого я и ждал.

Сообщение отредактировал Otter - Среда, 21.08.2019, 21:00

Ответить

Дата: Среда, 21.08.2019, 21:19 | Сообщение № 14

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Оопс, а если подставить [vba]

Код

TextBox1.SetFocus

[/vba] в мой файл выдает ошибку Run-time error '424':
Object required

Ответить

Дата: Среда, 21.08.2019, 21:23 | Сообщение № 15

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

ну и до кучи, если форма немодальная, то достаточно просто .SetFocus [vba]

Код

Private Sub UserForm_Initialize()
   '   Fill the ComboBoxes
    With comboComments
        .List = Array("Только индикатор", "Скрыть", "Показать")
    End With
    '   Get the current settings
    With Parent
        cbFullScreen = .DisplayFullScreen
        comboComments.ListIndex = .DisplayCommentIndicator + 1
    End With
End Sub
Private Sub comboComments_Change()
    With comboComments
        .SetFocus
        Application.DisplayCommentIndicator = .ListIndex - 1
    End With
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Среда, 21.08.2019, 21:25 | Сообщение № 16

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Otter, 21.08.2019 в 21:19, в сообщении № 14 ()

Run-time error '424':
Object required

на форму нужно поместить невидимый текстбокс с именем TextBox1

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 21.08.2019, 21:26

Ответить

Дата: Среда, 21.08.2019, 22:11 | Сообщение № 17

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Цитата krosav4ig, 21.08.2019 в 21:25, в сообщении № 16 ()

на форму нужно поместить невидимый текстбокс с именем TextBox1

Если бы не Ваша подсказка я бы не понял смысла фокуса. Спасибо.

Ответить

Дата: Среда, 21.08.2019, 22:13 | Сообщение № 18

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Не невидимый, а расположенный за пределами окна формы. С невидимым (Visible = False) работать не будет.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Четверг, 22.08.2019, 17:33 | Сообщение № 19

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Цитата RAN, 21.08.2019 в 22:13, в сообщении № 18 ()

Не невидимый, а расположенный за пределами окна формы

Да сначала была подсказка, а потом после экспериментов сам нашел "где собака порылась" yes

yes

Ответить

Снять выделение в Комбоксе (Макросы/Sub)

Страница 1 из 1
1

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