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

or

Как изменить значение ячейки, нажав на ячейку?

Возможно ли изменить значение ячейки, нажав на ячейку в Excel? Например, когда вы нажимаете на определенную ячейку A1, в первый раз, она показывает текст «Excel», если вы снова нажмете A1, появится текст «Word», и при нажатии этой кнопки появится текст «Outlook» ячейки в третий раз. В этом случае значение в ячейке A1 будет повторяться от «Excel» до «Word» до «Outlook» до «Excel» ...... в следующем скриншоте:

doc изменить значение щелчком 1

Измените значение ячейки, нажав на ячейку с кодом VBA

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

arrow синий правый пузырь Измените значение ячейки, нажав на ячейку с кодом VBA


Чтобы завершить эту задачу в Excel, следующий код VBA может вам помочь, пожалуйста, сделайте следующее:

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

Код VBA: изменение значения ячейки, нажав на ячейку:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161123
  Application.EnableEvents = False
  With Target
  If .Address = Range("A1").Address Then
    Select Case .Value
      Case "Excel"
        .Value = "Word"
      Case "Word"
        .Value = "Outlook"
      Case "Outlook"
        .Value = "Excel"
      Case Else
        .Value = "Word"
    End Select
  End If
  End With
  Range("A2").Select
  Application.EnableEvents = True
End Sub

doc изменить значение щелчком 2

Внимание: В приведенном выше коде, A1 это ячейка, в которую вы хотите изменить значение, щелкнув "Excel","Word","Outlook"- это значения ячеек, которые вы хотите отображать повторно, вы можете изменить их в соответствии с вашими потребностями.

2, После вставки кода сохраните код и закройте окно. Теперь, когда вы нажимаете на ячейку A1 в первый раз, текст «Excel» отображается сразу, снова нажимает на него, появляется текст «Word», текст «Outlook» отображается, если вы нажмете его в третий раз, см. снимок экрана:

doc изменить значение щелчком 1


Другие статьи по теме:

Как фильтровать данные, просто щелкнув содержимое ячейки в Excel?

Как отсортировать данные столбца, щелкнув заголовок в Excel?


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.
    Zack · 2 years ago
    I am trying to apply this to an entire column of individual cells, not just one cell. Is this possible? When I change the range from "A1" to "A1:A100" nothing happens when I click the cells in that range.
    • To post as a guest, your comment is unpublished.
      Kalle · 3 months ago
      You can do that by declaring the range you want to have as KeyCells and than put that into the Application.Intersection Method. This will let you change the Value of your choice from all the cells. Worked for me but i am bad at explaining ^^


      Application.EnableEvents = False
      With Target


      Dim KeyCells as Range

      Set KeyCells = Range("A1:A100")

      If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

      Select Case .Value

      ...
    • To post as a guest, your comment is unpublished.
      Kalle · 3 months ago
      You can do that by declaring the range you want to have as KeyCells and than put that into the Application.Intersection Method. This will let you change the Value of your choice from all the cells. Worked for me but i am bad at explaining ^^

      Dim KeyCells as Range

      Set KeyCells = Range("A1:A100")

      If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

      Select Case .Value

      ...
    • To post as a guest, your comment is unpublished.
      Paji Shoitan · 6 months ago
      I did it but i will not tell anyone MUWAHAHAHAHAHAHAHAHAHA