Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як приховати або показати кнопку команди на основі вказаного значення комірки в Excel?

Припустимо, ви використовуєте командну кнопку для запуску сценарію VBA на своєму робочому аркуші. Якщо сценарій VBA в деяких випадках не використовується, вам потрібно зробити кнопку команди прихованою, а не відображати на аркуші. І відображайте його знову, коли потрібен сценарій VBA. У цій статті йдеться про приховування або показ командної кнопки на основі вказаного значення комірки в Excel. Будь ласка, виконайте наступне.

Приховати або показати кнопку команди на основі вказаного значення комірки за допомогою коду VBA


Приховати або показати кнопку команди на основі вказаного значення комірки за допомогою коду VBA


Ви можете запустити наведений нижче код VBA, щоб приховати або показати кнопку команди на основі вказаного значення комірки в Excel.

1. Клацніть правою кнопкою миші вкладку аркуша, яка містить кнопку команди, яку потрібно показати сховати, а потім клацніть Переглянути код з меню, що клацне правою кнопкою миші.

2. У спливаючому Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наведений нижче код VBA в код вікна.

Код VBA: приховання або відображення командної кнопки на основі вказаного значення комірки

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
        Me.CommandButton1.Visible = True
    Else
        Me.CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub

примітки: в коді, Клітини (1, 1), 1 і CommandButton1 вказують, що CommandButton1 буде приховано, коли комірка A1 містить номер 1, і відображатиметься, якщо комірка A1 містить будь-які інші значення, крім цифри 1. Дивіться знімок екрана нижче. І ви можете змінити їх залежно від ваших потреб.


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
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.
    lol · 4 months ago
    hola, el codigo esta bien? es que no me funciona y ya intente varias cosas para que funcione y nana, ayuda por favor es que lo necesito para algo importante  :c
  • To post as a guest, your comment is unpublished.
    Jordan · 4 months ago
    For some reason after the button go from invisible back to visible, the button no longer works. If I alt + F11 into the code select the XXX() sub and run with F5 the code works for my macro. Why doesn't it work when i click the button anymore? in properties 'Enabled' is set to true
  • To post as a guest, your comment is unpublished.
    sdf · 7 months ago
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
    Me.Shapes("Button 1").Visible = True
    Else
    Me.Shapes("Button 1")
    End If
    Application.ScreenUpdating = True
    End Sub
  • To post as a guest, your comment is unpublished.
    Et41 · 1 years ago
    Hello

    I am new to VBA, I have put this code into a new Excel. One CommnadButton, on Sheet1 but the code doesnt work.

    Do I have to do anything before this?


    Thanks in Advance
  • To post as a guest, your comment is unpublished.
    Jeremy · 2 years ago
    Use the ActiveX Control Button.
  • To post as a guest, your comment is unpublished.
    Bryce · 2 years ago
    I've put this code in and entered my button name (Finish), referenced the reference cell (P11 - 16, 11) but every time I make a change to the reference cell (P11) I get a compile error and it highlights the ".Finish" section of the code, seemingly meaning the button name I entered "Finish" is not found on the worksheet. I've confirmed, both in the drop down area to the left of the formula bar and in the "define name" area on the Formula tab that my button name is, in fact, "Finish", but it still does not work.


    Any help?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Bryce,
      I changed the button name to "Finish" in my worksheet, and it works well without any error displaying.
      Do you mind testing the code in a new blank workbook?
      Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    sebastian · 3 years ago
    hola que tal, tengo un boton con macro, que me devuelve a una hoja 'menu', pero no quiero que ese boton aparezca en la hoja menu como le puedo hacer?'


    saludos.-
    • To post as a guest, your comment is unpublished.
      Andreas · 5 months ago
      Hola Sebastia,

      Dónde debería mostrarse?
      - Uno es la hoja de menú
      - El botón está integrado en una hoja diferente, no?