จะแสดงปฏิทินเมื่อคลิกเซลล์ใดเซลล์หนึ่งใน Excel ได้อย่างไร?

สมมติว่ามีช่วงคอลัมน์ในแผ่นงานที่คุณต้องป้อนและเปลี่ยนวันที่ภายในบ่อยๆ แต่เบื่อที่จะป้อนหรือเปลี่ยนวันที่ด้วยตนเองต่อครั้ง วิธีป้อนวันที่อย่างรวดเร็วโดยไม่ต้องพิมพ์ลงในช่วงคอลัมน์ด้วยตนเอง บทความนี้พูดถึงการเปิดปฏิทินเมื่อคลิกที่เซลล์ในช่วงหนึ่งจากนั้นแทรกวันที่ลงในเซลล์ที่เลือกโดยอัตโนมัติหลังจากเลือกวันที่ในปฏิทิน

เปิดปฏิทินเมื่อคลิกเซลล์ที่ต้องการด้วยรหัส VBA

โปรดแก้ไขปัญหานี้ตามขั้นตอนต่อไปนี้

หมายเหตุ: วิธีนี้ใช้ได้กับ Microsoft Excel 32 บิตเท่านั้น

ขั้นตอนที่ 1: สร้าง UserForm ด้วยปฏิทิน

โปรดสร้าง UserForm ซึ่งมีปฏิทินที่คุณจะปรากฏขึ้นโดยคลิกที่เซลล์

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > แบบฟอร์มผู้ใช้.

3. จากนั้นก แบบฟอร์มผู้ใช้ และ กล่องเครื่องมือ หน้าต่างจะปรากฏขึ้นใน กล่องเครื่องมือคลิกปุ่มควบคุมใดปุ่มหนึ่งแล้วคลิกขวาจากนั้นเลือก การควบคุมเพิ่มเติม จากเมนูคลิกขวา ดูภาพหน้าจอ:

4 ใน การควบคุมเพิ่มเติม กล่องโต้ตอบเลื่อนลงเพื่อตรวจสอบไฟล์ การควบคุม Microsoft MonthView ตัวเลือกใน การควบคุมที่มีอยู่ จากนั้นคลิกที่ไฟล์ OK ปุ่ม

5. จากนั้นคุณจะเห็นไฟล์ มุมมองรายเดือน เพิ่มปุ่มในไฟล์ กล่องเครื่องมือ หน้าต่าง. โปรดคลิกปุ่ม 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 คลิก Kutools > คอนเทนต์ > เปิดใช้งานตัวเลือกวันที่.

2. หลังจากเปิดใช้งานคุณสมบัตินี้ให้คลิกที่เซลล์วันที่จากนั้นไอคอนปฏิทินจะปรากฏขึ้นที่เซลล์นั้น

3. คลิกไอคอนปฏิทินเพื่อเปิดไฟล์ เลือกวันที่ กล่องโต้ตอบจากนั้นคลิกวันที่ใหม่เพื่อแทนที่วันที่ในเซลล์ที่เลือก

หมายเหตุ:

• ปุ่มเลิกทำ: คลิกปุ่มนี้เพื่อเลิกทำการเปลี่ยนวันที่
• ปุ่มปิด: คลิกปุ่มนี้เพื่อปิดกล่องโต้ตอบตัวเลือกวันที่
• ฟีเจอร์นี้ใช้ได้กับเซลล์ที่มีวันที่เท่านั้น

บทความที่เกี่ยวข้อง:

• วิธีทริกเกอร์หรือเรียกใช้แมโครโดยคลิกเซลล์เฉพาะใน Excel
• วิธีเปลี่ยนสีของเซลล์เมื่อเซลล์ถูกคลิกหรือเลือกใน Excel
• จะปรากฏกล่องข้อความเมื่อคลิกที่เซลล์ใดเซลล์หนึ่งใน Excel ได้อย่างไร?
• จะปิดการใช้งานปุ่มหลังจากคลิกหนึ่งครั้งใน Excel ได้อย่างไร
• วิธีปิดการใช้งานคลิกขวาที่แท็บแผ่นงานใน Excel