แทรก Excel Date Picker ทั้งคอลัมน์: คู่มือทีละขั้นตอน

Date Picker เป็นเครื่องมือน่าสนใจของ Microsoft Excel ช่วยหลุดพ้นจากการกรอกข้อมูลวันที่ในแต่ละเซลล์ด้วยมือ ด้วย Date Picker เราเลือกวันที่จากปฏิทินป๊อปอัปได้ ในบทความนี้จะสอนวิธีแทรก Excel Date Picker และใช้กับทั้งคอลัมน์

Excel Date Picker คืออะไร?

Excel Date Picker เป็นฟีเจอร์น่าสนใจของ Excel เสนอปฏิทินป๊อปอัป เลือกวันที่ได้ง่าย ฟีเจอร์นี้ใช้ได้กับ 32-bit Excel 365, 2019, 2016, 2013, 2010 แต่ไม่ทำงานบน 64-bit

วิธีแทรก Excel Date Picker

อธิบายทีละขั้นตอน ก่อนแทรกต้องเพิ่มฟีเจอร์ Developer ใน Main tabs ก่อน

1. เพิ่มแท็บ Developer สำหรับ Date Picker

ขั้นตอน 1: กดแท็บ File

ขั้นตอน 2: เลือก Options

ขั้นตอน 3: เลือก Customize Ribbon ซ้าย, Main Tabs ขวา, ติ๊ก Developer, กด OK

ตอนนี้แท็บ Developer จะแสดงบน Ribbon

อ่านเพิ่ม: How to Calculate Due Date with Formula in Excel

2. แทรก Excel Date Picker

ขั้นตอน 1: คลิกแท็บ Developer > Insert ในกลุ่ม Controls > เลือก More Controls จาก ActiveX Controls

ขั้นตอน 2: เลือก Microsoft Date and Time Picker Control 6.0 (SP6) จากกล่องโต้ตอบ More Controls > กด OK

Date Picker จะปรากฏ ดึงวันที่วันนี้มาแสดง

ขั้นตอน 3: คลิกที่ Date Picker

สูตร EMBEDDED จะแสดงบน Formula Bar ไม่สามารถแก้ไขได้

อ่านเพิ่ม: How to Insert Current Date in Excel

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

Excel VBA to Find Week Number (6 Quick Examples)
VBA Date to String Conversion in Excel (6 Methods)
Now and Format Functions in Excel VBA (4 Examples)
How to Use VBA DateSerial Function in Excel (5 Easy Applications)

3. ควบคุมและปรับแต่ง Date Picker

ขั้นตอน 1 - ย้าย: คลิกขวาที่ Date Picker ged ค้าง แล้วลากเคอร์เซอร์ Date Picker จะเคลื่อนที่ตาม

ขั้นตอน 2 - ปรับขนาด: วางเคอร์เซอร์ขอบ Date Picker ค้างลาก ขนาดจะเปลี่ยนตาม

ขั้นตอน 3 - Properties: คลิกขวา Date Picker > เลือก Properties

หน้าต่าง Properties ปรับความยาว ความกว้าง ฟอนต์ ฯลฯ ได้

อ่านเพิ่ม: How to Use Excel Date Shortcut

4. ลิงก์ Date Picker กับเซลล์ที่ต้องการ

เพื่อใช้ Date Picker จริง ต้องลิงก์กับเซลล์

ขั้นตอน 1: ชี้ Date Picker > คลิกขวา > Properties

ขั้นตอน 2: ในหน้าต่าง Properties ไปที่แถว LinkedCell ใส่ Cell C5

ขั้นตอน 3: กด Enter

ต้องเปลี่ยน Checkbox property จาก False เป็น True

ขั้นตอน 4: ไป Properties อีกครั้ง > เลือก True ที่แถว CheckBox > กด Enter

ขั้นตอน 5: ชี้ Date Picker > คลิกขวา > เลือก DTPicker Object > Properties

ขั้นตอน 6: เลือกแท็บ Format ติ๊ก CheckBox บนหน้าต่าง DTPicker Properties > กด Apply แล้ว OK

ดูไฟล์ Excel วันที่วันนี้แสดงที่ Cell C5

ขั้นตอน 7: ไป View Code ของ Date Picker โดยคลิกขวา

จะเห็นโค้ด VBA Date Picker ทำงานจาก VBA Macro นี้

แทรก Date Picker ให้ทั้งคอลัมน์ด้วย VBA Macro

นำ Date Picker ไปใช้ได้หลายแบบ ตอนนี้สอนใช้กับทั้งคอลัมน์

ขั้นตอน 1: ลบค่าเวลาออก (ใส่แค่วันที่) > ไป View Code

ขั้นตอน 2: ใส่โค้ดด้านล่างใน Command Module

Private Sub Worksheet_SelectionChange(ByVal Dest As Range)
    With Sheet1.DTPicker1
        .Height = 20
        .Width = 20
        If Not Intersect(Dest, Range("C:C")) Is Nothing Then
            .Visible = True
            .Top = Dest.Top
            .Left = Dest.Offset(0, 1).Left
            .LinkedCell = Dest.Address
        Else
            .Visible = False
        End If
    End With
End Sub

บันทึกโค้ด VBA ไม่ต้อง Run

ขั้นตอน 3: กลับไฟล์ Excel หลัก > แท็บ Developer > ปิด Design Mode

คลิกเซลล์ไหนใน Column C ก็ตาม

กล่องจะแสดงที่ทุกเซลล์ของ Column C

ขั้นตอน 4: คลิกกล่องนั้น ปฏิทินป๊อปอัปขึ้น เลือกวันที่ต้องการ

คลิกชื่อเดือนเพื่อเปลี่ยนเดือน

มีเครื่องหมาย Up-down เปลี่ยนปีได้

กรอกวันที่ที่ต้องการทั้งคอลัมน์

สามารถตั้งวันที่ที่เซลล์ไหนใน Column C ก็ได้

อ่านเพิ่ม: How to Use VBA DateSerial Function in Excel

💬 สิ่งที่ต้องจำ

ไม่พบ Date Picker ใน Excel 64-bit
ไม่สามารถใส่วันที่ใน Design Mode ได้
ต้องบันทึกไฟล์เป็น Macro-Enabled Workbook (.xlsm)
เปลี่ยนวันที่ได้ด้วยปุ่มลูกศรบนปฏิทิน

สรุป

บทความนี้อธิบายวิธีแทรก Date Picker ใน Excel และใช้กับทั้งคอลัมน์ หวังว่าจะตอบโจทย์ความต้องการ โปรดเยี่ยมชม Exceldemy.com และแสดงความคิดเห็นได้ครับ

อ่านเพิ่มเติม

Use Year Function in Excel VBA (5 Suitable Examples)
How to Use Excel VBA MONTH Function (7 Suitable Examples)
Use EoMonth in Excel VBA (5 Examples)
How to Use the VBA DatePart Function in Excel (7 Examples)