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

Як спливати календар при натисканні певної комірки в Excel?

Припустимо, що на аркуші є діапазон стовпців, який потрібно часто вводити та змінювати дати всередині, але нудно вводити або змінювати дату вручну за раз. Як швидко ввести дати, не вводячи вручну в діапазон стовпців? У цій статті йдеться про вискакування календаря при натисканні на клітинки в певному діапазоні, а потім про автоматичне вставлення дати у вибрану комірку після вибору дати в календарі.


Вискакуйте календар, натискаючи певну комірку з кодом VBA

Будь ласка, вирішіть цю проблему наступним чином крок за кроком.

примітки: Цей метод може працювати лише в 32-розрядному Microsoft Excel.

Крок 1: Створіть UserForm з календарем

Будь ласка, створіть UserForm, який містить календар, який ви з’явите, натиснувши клітинку.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Форма користувача.

3. Тоді a Форма користувача і Інструменти вікна спливають, в Інструменти, клацніть будь-який елемент управління та клацніть правою кнопкою миші, а потім виберіть Додаткові елементи керування з меню правої клавіші миші. Дивіться знімок екрана:

4 В Додаткові елементи керування діалоговому вікні, прокрутіть вниз, щоб перевірити Управління Microsoft MonthView опція в Доступні елементи керування , а потім клацніть на OK кнопки.

5. Тоді ви можете побачити MonthView Кнопка додана в Інструменти вікно. Натисніть цю кнопку MonthView, а потім натисніть вікно UserForm1, щоб створити календар у Userform.

примітки: Ви можете налаштувати розмір вікна UserForm відповідно до вставленого календаря, перетягнувши межу UserForm.

6. Двічі клацніть на вставлений календар у UserForm1 та в код вікно, будь ласка, замініть оригінальний код наступним сценарієм VBA.

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

примітки: Цей код може допомогти вставити дату у вибрану комірку після вибору дати з календаря.

Крок 2: Активуйте Календар, натискаючи клітинку

Тепер вам потрібно вказати певні клітинки, які з’являтимуться календарем при натисканні. Будь ласка, виконайте наступне.

7. Двічі клацніть назву аркуша, який містить клітинки, які ви клацнете, щоб відкрити календар зліва Проекти панелі, а потім скопіюйте та вставте наведений нижче код VBA у вікно коду. Дивіться знімок екрана:

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

примітки: у коді, A2: A10 - клітинки, які ви натискаєте, щоб відкрити спливаючий календар. Будь ласка, змініть діапазон комірок, як вам потрібно.

8. прес інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.

Відтепер при натисканні на будь-яку клітинку в межах зазначеного діапазону на поточному аркуші з’явиться календар, як показано на знімку екрана нижче. І дата буде автоматично вставлена ​​у вибрану комірку після вибору дати з календаря.


Вискакуйте календар, натискаючи певну комірку з кодом VBA

Цей розділ представляє Вибір дати корисність Kutools для Excel. Увімкнувши цю функцію, клацніть клітинку дати, з’явиться календар, ви зможете легко замінити наявну дату на нову. Будь ласка, виконайте наведені нижче дії, щоб застосувати цю функцію.

1. клацання Кутулс > зміст > Увімкнути вибір дати.

2. Після ввімкнення цієї функції натисніть клітинку на дату, і піктограма календаря з’явиться прямо до комірки.

3. Клацніть піктограму календаря, щоб відкрити Вибір дати і натисніть нову дату, щоб замінити дату у вибраній комірці.

Примітки:

  • Кнопка "Скасувати": натисніть цю кнопку, щоб скасувати дату заміни;
  • Кнопка "Закрити": натисніть цю кнопку, щоб закрити діалогове вікно "Вибір дати";
  • Ця функція може застосовуватися лише до комірок, що містять дату.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї утиліти, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


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


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

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (18)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Я хочу показати спливаючий календар під вибраною коміркою. Як мені зробити?
Цей коментар був мінімізований модератором на сайті
Я використовував ці коди VBA, і поки що все добре. Діапазон — A2:A10, і календар з’являється, коли ви вибираєте в ньому клітинку. Але якщо знову позначити рядок від 2 до 10, календар знову з’явиться. Те саме зі стовпцем "A", якщо ви його позначите, календар знову з'явиться. Як мені діяти, щоб отримати календар лише у визначеному мною діапазоні?
Цей коментар був мінімізований модератором на сайті
Привіт всім,

Чи може хтось підказати мені, як відкрити календар у діапазоні клітинок, але починаючи лише з клітинки праворуч під заголовком таблиці та внизу в стовпці Excel.


Спасибо заранее.
Цей коментар був мінімізований модератором на сайті
Хороший день,
Вибачте, я не отримав ваше запитання. Було б добре, якби ви надали знімок екрана того, що ви намагаєтеся зробити.
Цей коментар був мінімізований модератором на сайті
Використовуйте, наприклад: діапазон ("B6:C30")
Цей коментар був мінімізований модератором на сайті
Використовуйте, наприклад: діапазон ("B6:C30")
Цей коментар був мінімізований модератором на сайті
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
Цей коментар був мінімізований модератором на сайті
якщо я спробую вибрати рядок, спливне вікно активується, і дата з’явиться в кожній клітинці цього рядка


як я можу цього уникнути
Цей коментар був мінімізований модератором на сайті
Привіт, Сем,
Код оновлено в статті з вирішенням проблеми. Будь ласка, спробуйте і дякую за ваш коментар.
Цей коментар був мінімізований модератором на сайті
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
Цей коментар був мінімізований модератором на сайті
Привіт, чи можна розмістити спливаюче вікно вибору дати для кількох стовпців, оскільки в моєму аркуші є «дата початку», «дата завершення» та «дата угоди». якщо так, то як?
Цей коментар був мінімізований модератором на сайті
Привіт Джіт,
Виконайте вказівки та замініть діапазон «A2:A10» у другому коді VBA на діапазон стовпців (наприклад, C2:E2).
Цей коментар був мінімізований модератором на сайті
Дуже дякую! Ці вказівки були дуже корисними :)
Цей коментар був мінімізований модератором на сайті
З’явиться календар, але коли я натисну дату, клітинка не заповнюється
Цей коментар був мінімізований модератором на сайті
привіт,
У моєму випадку код працює добре. Яку версію Excel ви використовуєте?
Цей коментар був мінімізований модератором на сайті
У списку не вказано елемент керування Microsoft MonthView (Office 365), а вказівки тут не пояснюють, як можна отримати цей елемент керування, тому це майже марно, якщо ви не використовуєте старішу версію Excel.
Цей коментар був мінімізований модератором на сайті
Я не бачу елемент керування Microsoft MonthView у списку, але, як зазначив Піт (#32847), це не працюватиме в Office 365 або 64-розрядній версії Microsoft Office.
Цей коментар був мінімізований модератором на сайті
Привіт, Тіган Кодл,
Я шукав і пробував методи, запропоновані в Google, але зрештою не зміг зареєструвати елемент керування MonthView в Microsoft 365.
Вибачте за незручності. Можливо, ви можете це перевірити.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця