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 для 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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (7)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Гей, хлопці. У мене виникло запитання щодо дивного побічного ефекту, який викликає цей код, коли я використовую його на одній зі своїх робочих сторінок.
Код, який я спробував, був згаданим у пості.
//
Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Відправити ключі "{F2}"
End Sub
//
Побічний ефект, який я отримую, — це коли я активую клітинку, мій Numlock вимикається/вмикається.
Будь-яка допомога буде вдячна.
Цей коментар був мінімізований модератором на сайті
Хороший день,
Код оновлюється разом із вирішенням проблеми. Дякуємо за коментар.
Цей коментар був мінімізований модератором на сайті
Привіт всім, по-перше, велике спасибі за публікацію цього повідомлення, це певна економія часу. Щойно помітив, що якщо ви спробуєте використовувати «Shift+tab», щоб перемістити одну клітинку ліворуч, замість цього створюється поле для коментарів. Якось вирішити цю проблему? Спасибі!
Цей коментар був мінімізований модератором на сайті
Вибачте, не знаю, чи опубліковано мій останній пост. Ось ще раз про всяк випадок:

Привіт всім, по-перше, велике спасибі за публікацію цього повідомлення, це певна економія часу. Щойно помітив, що якщо ви спробуєте використати команду клавіатури "Shift+tab", щоб перемістити одну клітинку ліворуч, замість цього створюється поле для коментарів. Якось вирішити цю проблему? Спасибі!
Цей коментар був мінімізований модератором на сайті
Шановний Вейн,
Тепер код оновлено, проблема вирішена. Спасибі за ваш відгук.
Цей коментар був мінімізований модератором на сайті
Чи є спосіб зробити це так, щоб ви могли перебувати в одному вікні програми, клацнувши у вікні Excel, і перейти в клітинку одним клацанням миші? Я помітив, що в той час як він переходить безпосередньо в режим редагування, він переходить до попередньої клітинки, коли ви клацнете в програмі, тому для початку редагування все одно потрібно два кліки.
Цей коментар був мінімізований модератором на сайті
приємно і зрозуміло
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця