Note: The other languages of the website are Google-translated. Back to English

Как активировать ячейки для редактирования одним щелчком мыши в Excel?

В этой статье говорится об активации ячеек для редактирования одним щелчком мыши в Excel. Пожалуйста, сделайте следующее шаг за шагом.

Активируйте ячейки для редактирования одним щелчком по коду VBA


Активировать ячейку для редактирования одним щелчком по коду VBA

Следующий код VBA может помочь вам активировать ячейки для редактирования одним щелчком мыши.

1. Откройте рабочий лист, который вам нужен, чтобы активировать ячейки одним щелчком мыши. Щелкните правой кнопкой мыши вкладку «Лист» и выберите Просмотреть код из контекстного меню.

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

Код VBA: активировать ячейку для редактирования одним щелчком мыши

#If Win64 Then
'Updated by Extendoffice 2018/2/2
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If
Const VK_NUMLOCK = 144
Const VK_CAPITAL = 20
Const VK_SCROLL = 145
Dim xOldNLState As Long
Dim xOldCLState As Long
Dim xOldSLState As Long
Const KEY_MASK As Integer = &HFF80 '

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (GetKeyState(vbKeyShift) And KEY_MASK) <> 0 Then Exit Sub
    xOldNLState = GetAsyncKeyState(VK_NUMLOCK)
    xOldCLState = GetAsyncKeyState(VK_CAPITAL)
    xOldSLState = GetAsyncKeyState(VK_SCROLL)
    SendKeys "{F2}"
    If GetAsyncKeyState(VK_NUMLOCK) <> xOldNLState Then
        Application.SendKeys "{NUMLOCK}"
    End If
    If GetAsyncKeyState(VK_CAPITAL) <> xOldCLState Then
        Application.SendKeys "{CAPSLOCK}"
    End If
    If GetAsyncKeyState(VK_SCROLL) <> xOldSLState Then
        Application.SendKeys "{SCROLLLOCK}"
    End If
End Sub

3. нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.

С этого момента, если один раз щелкнуть любую ячейку на текущем листе, ячейка будет немедленно активирована.


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (7)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, ребята. У меня был вопрос о странном побочном эффекте этого кода, когда я использую его на одном из своих рабочих листов.
Код, который я пробовал, был упомянут в сообщении.
//
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
SendKeys "{F2}"
End Sub
//
Побочный эффект, который я получаю, заключается в том, что когда я активирую ячейку, мой Numlock выключается/включается.
Любая помощь будет оценена по достоинству.
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Код обновляется с решением проблемы. Спасибо за ваш комментарий.
Этот комментарий был сведен к минимуму модератором на сайте
Привет всем, во-первых, большое спасибо за публикацию этого, это определенно экономит время. Только что заметил, что если вы попытаетесь использовать «Shift + Tab» для перемещения на одну ячейку влево, вместо этого будет создано поле комментария. В любом случае, чтобы решить эту проблему? Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Извините, не уверен, что мой последний пост был опубликован. Вот еще раз на всякий случай:

Привет всем, во-первых, большое спасибо за публикацию этого, это определенно экономит время. Только что заметил, что если вы попытаетесь использовать клавиатурную команду «Shift + Tab» для перемещения на одну ячейку влево, вместо этого будет создано поле комментария. В любом случае, чтобы решить эту проблему? Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Дорогой Уэйн,
Код теперь обновлен с исправленной проблемой. Спасибо за ваш отзыв.
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ сделать так, чтобы можно было в одном окне программы кликнуть в окно для excel и в ячейку одним кликом? Я заметил, что, хотя он переходит прямо в режим редактирования, он переходит к предыдущей ячейке, когда вы щелкаете в программе, поэтому для начала редактирования по-прежнему требуется два щелчка.
Этот комментарий был сведен к минимуму модератором на сайте
красиво и понятно
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL