Как сделать так, чтобы одна кнопка выполняла два действия? - Мир MS Excel

Регистрация

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

= Мир MS Excel/Как сделать так, чтобы одна кнопка выполняла два действия? - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать так, чтобы одна кнопка выполняла два действия? (Макросы/Sub)

Как сделать так, чтобы одна кнопка выполняла два действия?

Фомулист

Дата: Среда, 16.03.2022, 18:02 | Сообщение № 1

Фомулист

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

Ранг: Обитатель

Сообщений: 383

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

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

Excel 2003

Здравствуйте.
Скажите, пожалуйста, как сделать так, чтобы при одном нажатии кнопки ячейке A2 присваивался текстовый формат, при втором это присвоение отменялось? Причём код на задание формата я даже на этом форуме видел, но не пойму, как сделать на одной кнопке два действия. Помогите, пожалуйста.

Терпение и труд всё перетрут!

Ответить

Дата: Среда, 16.03.2022, 18:48 | Сообщение № 2

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

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

Сообщений: 5629

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

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

2010

Цитата Фомулист, 16.03.2022 в 18:02, в сообщении № 1 (

)

как сделать на одной кнопке два действия

Использовать If (Если).

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

Ответить

Фомулист

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

Фомулист

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

Ранг: Обитатель

Сообщений: 383

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

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

Excel 2003

Цитата RAN, 16.03.2022 в 18:48, в сообщении № 2 (

)

Использовать If (Если).

Как использовать? Надо: нажали - Ячейке A2 присвоился формат Текстовый; нажали снова - произошла отмена присвоения ячейке A2 текстового формата. Как реализовать?

Терпение и труд всё перетрут!

Ответить

Дата: Среда, 16.03.2022, 22:57 | Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 3944

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

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

Excel 2013/2016

Фомулист, тригер имеет два состояния и перед переключеним производится оценка состояния и изменени й его на противоположное. Соотвтевенно смотрит на состояние того что нужно менять на противоположное и меняйте.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Дата: Четверг, 17.03.2022, 08:14 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 319

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

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

2003

Здравствуйте! Подходит?

К сообщению приложен файл: 6827979.xls(36.0 Kb)

Ответить

Фомулист

Дата: Четверг, 17.03.2022, 13:08 | Сообщение № 6

Фомулист

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

Ранг: Обитатель

Сообщений: 383

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

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

Excel 2003

Цитата pechkin, 17.03.2022 в 08:14, в сообщении № 5 (

)

Подходит?

В Вашем файле - всё супер! НО когда я скопировал макрос и кнопку в свой файл, то при запуске получаю ошибку "Невозможно получить свойство DrawongObjects класса Worksheet

Файл свой прилагаю. Помогите, пожалуйста преодолеть эту ошибку.

К сообщению приложен файл: 3699578.png(114.4 Kb) · 6800339.xls(44.0 Kb)

Терпение и труд всё перетрут!

Ответить

Дата: Четверг, 17.03.2022, 13:14 | Сообщение № 7

Группа: Модераторы

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

Сообщений: 6895

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

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

Excel 2007;2010;2016

у вас в файле кнопка 3, а в макросе кнопка 1. вот он и не находит

К сообщению приложен файл: 9919465.xls(43.0 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Фомулист

Дата: Четверг, 17.03.2022, 13:30 | Сообщение № 8

Фомулист

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

Ранг: Обитатель

Сообщений: 383

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

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

Excel 2003

Большое спасибо.

Цитата китин, 17.03.2022 в 13:14, в сообщении № 7 (

)

у вас в файле кнопка 3, а в макросе кнопка 1

Скажите, пожалуйста, а как можно в файле посмотреть номер кнопки?

Терпение и труд всё перетрут!

Ответить

Дата: Четверг, 17.03.2022, 14:44 | Сообщение № 9

Группа: Модераторы

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

Сообщений: 6895

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

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

Excel 2007;2010;2016

в макросе "Button 1" это кнопка под номером 1

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Фомулист

Дата: Четверг, 17.03.2022, 14:48 | Сообщение № 10

Фомулист

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

Ранг: Обитатель

Сообщений: 383

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

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

Excel 2003

китин, В макросе я знаю. А как посмотреть номер кнопки, которая в моём файле? Иными словами, как Вы увидели, что у меня в файле кнопка 3?

Терпение и труд всё перетрут!

Ответить

Дата: Четверг, 17.03.2022, 14:55 | Сообщение № 11

Группа: Модераторы

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

Сообщений: 6895

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

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

Excel 2007;2010;2016

ПКМ по кнопке

К сообщению приложен файл: 5926540.jpg(22.1 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 17.03.2022, 14:55 | Сообщение № 12

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

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

Сообщений: 5629

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

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

2010

[vba]

Код

Sub Формат()
    Dim a&, apCall$

    a = InputBox("Укажите количество ячеек." & vbLf & _
                 "Например 20", "Сколько ячеек форматировать?")

    apCall = Application.Caller
    With Sheets("Лист1")
        If .DrawingObjects(apCall).Caption = "Перейти в текстовый формат" Then
            .DrawingObjects(apCall).Caption = "Отменить текстовый формат"
            .DrawingObjects(apCall).Font.ColorIndex = 5
            .Range("A38").Resize(a).NumberFormat = "@"
        Else
            .DrawingObjects(apCall).Caption = "Перейти в текстовый формат"
            .DrawingObjects(apCall).Font.ColorIndex = 3
            .Range("A38").Resize(a).NumberFormat = "General"
        End If
    End With

End Sub

[/vba]

К сообщению приложен файл: 4039067.jpg(18.0 Kb)

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

Сообщение отредактировал RAN - Четверг, 17.03.2022, 14:59

Ответить

Фомулист

Дата: Четверг, 17.03.2022, 16:27 | Сообщение № 13

Фомулист

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

Ранг: Обитатель

Сообщений: 383

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

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

Excel 2003

Всем большое спасибо.

Терпение и труд всё перетрут!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать так, чтобы одна кнопка выполняла два действия? (Макросы/Sub)

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

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