Làm cách nào để bật lên lịch khi nhấp vào một ô cụ thể trong Excel?
Giả sử có một phạm vi cột trong trang tính mà bạn cần phải thường xuyên nhập và thay đổi ngày tháng bên trong, nhưng bạn sẽ cảm thấy nhàm chán khi nhập hoặc thay đổi ngày theo cách thủ công mỗi lần. Làm cách nào để nhập nhanh ngày mà không cần nhập thủ công vào phạm vi cột? Bài viết này nói về việc bật lên lịch khi nhấp vào các ô trong một phạm vi nhất định, sau đó tự động chèn ngày vào ô đã chọn sau khi chọn ngày trong lịch.
Bật lịch khi nhấp vào ô cụ thể có mã VBA
Vui lòng giải quyết vấn đề này như sau từng bước.
Chú thích: Phương pháp này chỉ có thể hoạt động trên Microsoft Excel 32-bit.
Bước 1: Tạo UserForm với lịch
Vui lòng tạo một UserForm chứa lịch bạn sẽ bật lên bằng cách nhấp vào một ô.
1. nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Biểu mẫu người dùng.
3. Sau đó a Biểu mẫu người dùng và Hộp công cụ cửa sổ bật lên, trong Hộp công cụ, nhấp vào bất kỳ một điều khiển nào và nhấp chuột phải, sau đó chọn Kiểm soát bổ sung từ menu chuột phải. Xem ảnh chụp màn hình:
4. bên trong Kiểm soát bổ sung hộp thoại, cuộn xuống để kiểm tra Kiểm soát Microsoft MonthView tùy chọn trong Kiểm soát có sẵn và sau đó bấm vào OK .
5. Sau đó, bạn có thể thấy Chế độ xem tháng nút được thêm vào Hộp công cụ cửa sổ. Vui lòng nhấp vào nút Chế độ xem tháng này, sau đó nhấp vào cửa sổ UserForm1 để tạo Lịch trong Biểu mẫu người dùng.
Chú thích: Bạn có thể điều chỉnh kích thước của cửa sổ UserForm cho phù hợp với lịch được chèn bằng cách kéo đường viền của UserForm.
6. Nhấp đúp vào lịch đã chèn trong UserForm1 và trong Mã cửa sổ, vui lòng thay thế mã gốc bằng tập lệnh VBA sau.
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
Chú thích: Mã này có thể giúp chèn ngày vào ô đã chọn sau khi chọn ngày từ lịch.
Bước 2: Kích hoạt Lịch khi nhấp vào ô
Bây giờ bạn cần chỉ định các ô nhất định để bật lên lịch khi nhấp vào. Hãy làm như sau.
7. Nhấp đúp vào tên trang tính chứa các ô bạn sẽ nhấp để bật lên lịch ở bên trái Dự án , sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mã. Xem ảnh chụp màn hình:
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
Chú thích: trong mã, A2: A10 là các ô bạn sẽ nhấp vào để bật lên lịch. Vui lòng thay đổi phạm vi ô nếu bạn cần.
8. nhấn Khác + Q các phím đồng thời để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.
Từ bây giờ, khi nhấp vào bất kỳ ô nào bên trong phạm vi được chỉ định trong trang tính hiện tại, một lịch sẽ bật lên như hình minh họa bên dưới. Và ngày sẽ được tự động chèn vào ô đã chọn sau khi chọn ngày từ lịch.
Bật lịch khi nhấp vào ô cụ thể có mã VBA
Phần này giới thiệu Bảng chọn ngày tiện ích của Kutools cho Excel. Sau khi kích hoạt tính năng này, nhấp vào một ô ngày tháng sẽ bật lên một lịch, bạn có thể dễ dàng thay thế ngày hiện tại bằng một ngày mới. Vui lòng làm theo các bước dưới đây để áp dụng tính năng này.
1. nhấp chuột Kutools > Nội dung > Bật công cụ chọn ngày.
2. Sau khi bật tính năng này, hãy nhấp vào ô ngày và biểu tượng lịch sẽ bật lên ngay bên phải ô.
3. Nhấp vào biểu tượng lịch để mở Bảng chọn ngày hộp thoại, sau đó bấm vào một ngày mới để thay thế ngày trong ô đã chọn.
Ghi chú:
- Nút hoàn tác: Nhấp vào nút này để hoàn tác ngày thay thế;
- Nút đóng: Nhấp vào nút này để đóng hộp thoại Bộ chọn ngày;
- Tính năng này chỉ có thể áp dụng cho các ô chứa ngày tháng.
Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.
Các bài liên quan:
- Làm thế nào để kích hoạt hoặc chạy Macro bằng cách nhấp vào một ô cụ thể trong Excel?
- Làm cách nào để thay đổi màu ô khi ô được nhấp hoặc chọn trong Excel?
- Làm thế nào để bật lên hộp thông báo khi nhấp vào một ô nhất định trong Excel?
- Làm cách nào để tắt nút sau khi nhấp một lần trong Excel?
- Làm thế nào để tắt nhấp chuột phải vào tab trang tính trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!