Vba: วิธีรับชื่อเดือนจากวันที่

คุณสามารถใช้ฟังก์ชัน MonthName ใน VBA เพื่อรับชื่อเดือนจากวันที่ใน Excel

นี่เป็นวิธีทั่วไปในการใช้ฟังก์ชันนี้ในทางปฏิบัติ:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i) = MonthName(Month(Range(" A " & i)))
Next i

End Sub

มาโครเฉพาะนี้จะค้นหาชื่อเดือนของวันที่แต่ละวันในช่วง A2:A11 และแสดงชื่อเหล่านี้ในเซลล์ที่เกี่ยวข้องในช่วง C2:C11

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: วิธีรับชื่อเดือนนับจากวันที่โดยใช้ VBA

สมมติว่าเรามีชุดข้อมูลต่อไปนี้ใน Excel ซึ่งมีข้อมูลเกี่ยวกับยอดขายของบริษัทในวันที่ต่างกัน:

สมมติว่าเราต้องการรับชื่อเดือนสำหรับแต่ละเซลล์ในคอลัมน์ วันที่

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)))
Next i

End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดทราบว่าคอลัมน์ C มีชื่อเดือนสำหรับวันที่ที่สอดคล้องกันแต่ละวันในคอลัมน์ A

ถ้าคุณต้องการส่งคืนชื่อเดือนแบบย่อแทน คุณสามารถใช้อาร์กิวเมนต์ True เผื่อเลือกในฟังก์ชัน MonthName ได้ดังนี้:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)), True )
Next i

End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

ตอนนี้คอลัมน์ C มีชื่อเดือนแบบย่อสำหรับวันที่ตรงกันแต่ละวันในคอลัมน์ A

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีเปรียบเทียบวันที่ใน VBA
วิธีแปลงสตริงเป็นวันที่ใน VBA
วิธีคำนวณวันระหว่างวันที่สองวันใน VBA