Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как включить или отключить кнопку на основе значения ячейки в Excel?

В этой статье я расскажу о некоторых методах включения или отключения кнопки на основе значения ячейки в листе Excel.

Включение или отключение двух кнопок на основе двух данных столбца с кодом VBA

Включить или отключить кнопку на основе двух значений ячейки с кодом VBA


Включение или отключение двух кнопок на основе двух данных столбца с кодом VBA


Например, у меня есть две кнопки команды на листе, если в столбце А есть данные, кнопка 1 включена, а кнопка 2 отключена; если столбец C содержит данные, кнопка 2 включена, а кнопка 1 отключена. Чтобы решить эту задачу, вам может помочь следующий код VBA.

1, Щелкните правой кнопкой мыши лист, содержащий кнопки, а затем выберите Просмотреть код из контекстного меню, см. снимок экрана:

2. В Microsoft Visual Basic для приложений окне, скопируйте и вставьте код ниже в пустой модуль:

Код VBA: включение или отключение двух кнопок на основе двух столбцов:

Private Sub Worksheet_Change(ByVal Target As Range)
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
        CommandButton2.Enabled = True
    End If
    If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
        CommandButton1.Enabled = True
    End If
End Sub

Внимание: В приведенном выше коде, CommandButton1 CommandButton2 имена кнопок, A: C: C это два столбца, которые вы используете для включения или отключения двух кнопок, пожалуйста, измените их в соответствии с вашими потребностями.

3, Затем сохраните и закройте окно кода, теперь вы получите следующий результат по мере необходимости:

(1.) Если данные типа в столбце A, кнопка 1 включена и кнопка 2 отключена, см. Снимок экрана:

(2.) Если данные типа в столбце C, кнопка 2 включена и кнопка 1 отключена, см. Снимок экрана:

(3.) Оба столбца A и столбец C имеют данные, все кнопки включены, см. Снимок экрана:

(4.) Две кнопки отключены, если в столбце A и столбце C нет данных, см. Снимок экрана:


Включить или отключить кнопку на основе двух значений ячейки с кодом VBA

Если вы хотите включить или отключить командную кнопку на основе двух значений ячейки, например, когда значение в A1 больше значения в B1, кнопка включена, иначе кнопка отключается. Следующий код VBA также может оказать вам услугу.

1, Щелкните правой кнопкой мыши лист, содержащий кнопку, а затем выберите Просмотреть код из контекстного меню, в Microsoft Visual Basic для приложений окне, скопируйте и вставьте код ниже в пустой модуль, см. снимок экрана:

Код VBA: включение или отключение кнопки на основе двух значений ячейки:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TargetAdd As String
    Dim xTemp As Double
    On Error GoTo ExitSub
    TargetAdd = Target.Address
    CommandButton1.Enabled = False
    If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
        If Range("A1") > Range("B1") Then
            CommandButton1.Enabled = True
        End If
    End If
ExitSub:
End Sub

Внимание: В приведенном выше коде, A1 B1 являются значениями ячеек, которые вы используете, CommanButton1 это имя кнопки, изменить их на свой.

2, Затем сохраните и закройте окно кода, если значение ячейки в A1 больше, чем B1, кнопка включена, иначе, если значение ячейки в A1 меньше, чем B1, кнопка отключена, см. Снимок экрана:


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mike · 6 months ago
    I receive a "Expected Function or variable" error when I incorporate this code - could you show the code you set up for the two buttons? May help me solve the error.