Snasui Excel Forum

คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/

ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

https://www.snasui.com/viewtopic.php?t=14519

Page 1 of 1

ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 8:59 pm
by akekorn
สวัสดีครับคุณคนควน และ เพื่อนสมาชิกทุกท่าน
วันนี้ผมมีข้อสงสัย เกียวกับ event ใน datetime picker ว่า สาเหตุใด code ที่ผมเขียน ไว้ เวลาใช้งานกับ event กลับไม่ค่อยตอบสนอง
แบบทันที เนื่องจากผมลองทำ form ตรวจสอบวันและวันหยุดนักขัตฤกษ์ ในปี 2018 - 2019
ผมมีข้อสงสัยดังนีั้
1 event ต้องใช้ event ใด object จึงจะตอบสนองกลับแบบทันที ครับเพราะจากตัวอย่างผมใช้ หลาย event แต่ไม่ตอบสนองทันที
2 code ที่ผมลองทำดู ผมรู้สึกว่ามันยังไม่ดี อยากรบกวนคุณคนควน หรือเพื่อนสมาชิกอนุเคราะห์ว่าหากผมอยากเป็น loop ควรจะแก้อย่างไรดี
เพราะผมทำแบบนี้มัน hard code เกินใป แต่เนื่องจากความรู้ความสามารถยังค่อนข้างด้อยจึงขอรบกวนเพื่อนสมาขิกแนะนำด้วยครับ
ผมได้แนบตัวอย่างที่ทำมาด้วยครับ
่ขอรบกวนด้วยครับ
เอก

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 9:37 pm
by snasui
:D กรุณาลำดับการทำงานและแจ้งปัญหาที่เป็นมาด้วยครับ

ผมไม่ได้ใช้ Date Time Picker โปรดทำใจไว้ก่อนได้เลยว่าผมอาจจะหาสาเหตุให้ไม่ได้หากต้องคลิก Object ของ Date Time Picker ในการทดสอบครับ

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 9:49 pm
by akekorn
ครับผม แต่ผมขออยากขอความอนุเคราะห์ในข้อ 2 ครับว่าผมควรปรับ code อย่างไรให้ดูไม่เวิ่นเว้อครับผม
ขอบคุณครับ

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 9:53 pm
by snasui
:D Code นั้นชื่ออะไร อยู่ตรงไหน ต้องการทำอะไรกรุณาแจ้งมาด้วยครับ

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 9:57 pm
by akekorn
Sub holidays()
Dim score As Integer, result As String
Dim I As Integer
Select Case Weekday(DTPicker1.Value, vbMonday)
Case Is = 1
result = "วันจันทร์"
Case Is = 2
result = "วันอังคาร"
Case Is = 3
result = "วันพุธ"
Case Is = 4
result = "วันพฤหัสบดี"
Case Is = 5
result = "วันศุกร์"
Case Is = 6
result = "วันเสาร์"
Case Is = 7
result = "วันอาทิตย์"
Case Else
result = "NA"
End Select
If Month(UserForm1.DTPicker1) = 1 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันขึ้นปีใหม่ 1 มกราคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันขึ้นปีใหม่ 2 มกราคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 2 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 3 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันมาฆบูชา 1 มีนาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 4 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันจักรี 1 เมษายน " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันสงกรานต์ 13 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสงกรานต์ 16 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 5 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันแรงงาน 1 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันวิสาขบูชา 29 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 6 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้ไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 7 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันอาสาฬหบูชา 27 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันหยุดชดเชย ร.10 30 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 8 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันหยุดชดเชย ราชินี 13 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 9 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 10 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันหยุดชดเชยคล้ายวันสรรคต ร.9 15 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันปิยะมหาราช 23 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 11 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 12 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันประสูติร.9 5 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันรัฐธรรมนูญ 10 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสิ้นปี 31 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 1 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันขึ้นปีใหม่ 1 มกราคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 2 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันมาฆบูชา 19 กุมภาพันธ์ " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 3 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 4 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันจักรี 8 เมษายน " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันสงกรานต์ 15 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสงกรานต์ 16 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 5 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันแรงงาน 1 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันหยุดชดเชยวิสาขบูชา 20 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 6 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้ไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 7 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันอาสาฬหบูชา 16 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันคล้ายวันประสูติ ร.10 29 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 8 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันประสูติราชินี 12 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 9 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 10 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันสรรคต ร.9 14 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันปิยะมหาราช 23 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 11 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 12 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันประสูติร.9 5 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันรัฐธรรมนูญ 10 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสิ้นปี 31 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""

End If

End Sub

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 10:11 pm
by akekorn
อยากขอความอนุเคราะห์ครับจะปรับอย่างไรไม่ให้เวิ่นเว้อยืดยาว
ครับผม

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 10:16 pm
by snasui
:D กรุณาแก้ไขโพสต์ให้แสดงเป็น Code ด้วยครับ

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 10:31 pm
by akekorn
Sub holidays()
Dim score As Integer, result As String
Dim I As Integer
Select Case Weekday(DTPicker1.Value, vbMonday)
Case Is = 1
result = "วันจันทร์"
Case Is = 2
result = "วันอังคาร"
Case Is = 3
result = "วันพุธ"
Case Is = 4
result = "วันพฤหัสบดี"
Case Is = 5
result = "วันศุกร์"
Case Is = 6
result = "วันเสาร์"
Case Is = 7
result = "วันอาทิตย์"
Case Else
result = "NA"
End Select
If Month(UserForm1.DTPicker1) = 1 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันขึ้นปีใหม่ 1 มกราคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันขึ้นปีใหม่ 2 มกราคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 2 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 3 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันมาฆบูชา 1 มีนาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 4 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันจักรี 1 เมษายน " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันสงกรานต์ 13 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสงกรานต์ 16 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 5 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันแรงงาน 1 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันวิสาขบูชา 29 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 6 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้ไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 7 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันอาสาฬหบูชา 27 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันหยุดชดเชย ร.10 30 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 8 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันหยุดชดเชย ราชินี 13 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 9 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 10 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันหยุดชดเชยคล้ายวันสรรคต ร.9 15 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันปิยะมหาราช 23 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 11 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 12 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันประสูติร.9 5 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันรัฐธรรมนูญ 10 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสิ้นปี 31 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 1 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันขึ้นปีใหม่ 1 มกราคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 2 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันมาฆบูชา 19 กุมภาพันธ์ " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 3 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 4 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันจักรี 8 เมษายน " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันสงกรานต์ 15 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสงกรานต์ 16 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 5 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันแรงงาน 1 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันหยุดชดเชยวิสาขบูชา 20 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 6 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้ไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 7 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันอาสาฬหบูชา 16 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันคล้ายวันประสูติ ร.10 29 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 8 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันประสูติราชินี 12 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 9 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 10 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันสรรคต ร.9 14 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันปิยะมหาราช 23 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 11 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 12 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันประสูติร.9 5 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันรัฐธรรมนูญ 10 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสิ้นปี 31 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""

End If

End Sub

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 10:32 pm
by akekorn

Code: Select all

Sub holidays()
Dim score As Integer, result As String
Dim I As Integer
Select Case Weekday(DTPicker1.Value, vbMonday)
Case Is = 1
result = "วันจันทร์"
Case Is = 2
result = "วันอังคาร"
Case Is = 3
result = "วันพุธ"
Case Is = 4
result = "วันพฤหัสบดี"
Case Is = 5
result = "วันศุกร์"
Case Is = 6
result = "วันเสาร์"
Case Is = 7
result = "วันอาทิตย์"
Case Else
result = "NA"
End Select
If Month(UserForm1.DTPicker1) = 1 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันขึ้นปีใหม่ 1 มกราคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันขึ้นปีใหม่ 2 มกราคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 2 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 3 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันมาฆบูชา 1 มีนาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 4 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันจักรี 1 เมษายน " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันสงกรานต์ 13 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสงกรานต์ 16 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 5 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันแรงงาน 1 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันวิสาขบูชา 29 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 6 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้ไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 7 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันอาสาฬหบูชา 27 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันหยุดชดเชย ร.10 30 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 8 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันหยุดชดเชย ราชินี 13 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 9 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 10 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันหยุดชดเชยคล้ายวันสรรคต ร.9 15 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันปิยะมหาราช 23 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 11 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 12 And Year(UserForm1.DTPicker1) = 2018 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันประสูติร.9 5 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันรัฐธรรมนูญ 10 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสิ้นปี 31 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 1 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันขึ้นปีใหม่ 1 มกราคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 2 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันมาฆบูชา 19 กุมภาพันธ์ " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 3 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 4 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันจักรี 8 เมษายน " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันสงกรานต์ 15 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสงกรานต์ 16 เมษายน" & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 5 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันแรงงาน 1 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันหยุดชดเชยวิสาขบูชา 20 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 6 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้ไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 7 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันอาสาฬหบูชา 16 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันคล้ายวันประสูติ ร.10 29 กรกฎาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 8 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันประสูติราชินี 12 พฤษภาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 9 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 10 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันสรรคต ร.9 14 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันปิยะมหาราช 23 ตุลาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 11 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = ""
UserForm1.Label4 = ""
UserForm1.Label5 = ""
UserForm1.Label6 = ""
ElseIf Month(UserForm1.DTPicker1) = 12 And Year(UserForm1.DTPicker1) = 2019 Then
UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
UserForm1.Label3 = "วันคล้ายวันประสูติร.9 5 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label4 = "วันรัฐธรรมนูญ 10 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label5 = "วันสิ้นปี 31 ธันวาคม " & Year(UserForm1.DTPicker1)
UserForm1.Label6 = ""

End If

End Sub

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Sun Dec 02, 2018 10:32 pm
by akekorn
วางเป็น code แล้วครับผม
ขอบคุณครับ

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Mon Dec 03, 2018 5:28 am
by snasui
:D ที่เขียนมาใช้ได้อยู่แล้วครับ และปกติถ้า Code ไม่มีปัญหาไม่จำเป็นต้องปรับครับ

ด้านล่างนี้เป็นการสร้างตัวแปรเพิ่มและ Clear Label ทิ้งเสียก่อน จากนั้นค่อยนำตัวแปรไปใช้และกำหนดค่าให้กับ Label เฉพาะที่เกี่ยวข้องกับเงื่อนไขนั้น ๆ

Code: Select all

Sub holidays()
    Dim score As Integer, result As String
    Dim I As Integer, mn As Integer, yr As Integer
    
    mn = Month(UserForm1.DTPicker1).Text
    yr = Year(UserForm1.DTPicker1).Text
    
    Select Case Weekday(DTPicker1.Value, vbMonday)
        Case Is = 1
            result = "วันจันทร์"
        Case Is = 2
            result = "วันอังคาร"
        Case Is = 3
            result = "วันพุธ"
        Case Is = 4
            result = "วันพฤหัสบดี"
        Case Is = 5
            result = "วันศุกร์"
        Case Is = 6
            result = "วันเสาร์"
        Case Is = 7
            result = "วันอาทิตย์"
        Case Else
            result = "NA"
    End Select
    UserForm1.Label2 = ""
    UserForm1.Label3 = ""
    UserForm1.Label4 = ""
    UserForm1.Label5 = ""
    UserForm1.Label6 = ""
    If mn = 1 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันขึ้นปีใหม่ 1 มกราคม " & yr
        UserForm1.Label4 = "วันขึ้นปีใหม่ 2 มกราคม " & yr
    ElseIf mn = 2 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
    ElseIf mn = 3 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันมาฆบูชา 1 มีนาคม " & yr
    ElseIf mn = 4 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันจักรี 1 เมษายน " & yr
        UserForm1.Label4 = "วันสงกรานต์ 13 เมษายน" & yr
        UserForm1.Label5 = "วันสงกรานต์ 16 เมษายน" & yr
    ElseIf mn = 5 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันแรงงาน 1 พฤษภาคม " & yr
        UserForm1.Label4 = "วันวิสาขบูชา 29 พฤษภาคม " & yr
    ElseIf mn = 6 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้ไม่มีวันหยุดนักขัตฤกษ์ "
    ElseIf mn = 7 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันอาสาฬหบูชา 27 กรกฎาคม " & yr
        UserForm1.Label4 = "วันหยุดชดเชย ร.10 30 กรกฎาคม " & yr
    ElseIf mn = 8 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันหยุดชดเชย ราชินี 13 พฤษภาคม " & yr
    ElseIf mn = 9 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
    ElseIf mn = 10 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันหยุดชดเชยคล้ายวันสรรคต ร.9 15 ตุลาคม " & yr
        UserForm1.Label4 = "วันปิยะมหาราช 23 ตุลาคม " & yr
    ElseIf mn = 11 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
    ElseIf mn = 12 And yr = 2018 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันคล้ายวันประสูติร.9 5 ธันวาคม " & yr
        UserForm1.Label4 = "วันรัฐธรรมนูญ 10 ธันวาคม " & yr
        UserForm1.Label5 = "วันสิ้นปี 31 ธันวาคม " & yr
    ElseIf mn = 1 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันขึ้นปีใหม่ 1 มกราคม " & yr
    ElseIf mn = 2 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี่มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันมาฆบูชา 19 กุมภาพันธ์ " & yr
    ElseIf mn = 3 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
    ElseIf mn = 4 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันจักรี 8 เมษายน " & yr
        UserForm1.Label4 = "วันสงกรานต์ 15 เมษายน" & yr
        UserForm1.Label5 = "วันสงกรานต์ 16 เมษายน" & yr
    ElseIf mn = 5 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันแรงงาน 1 พฤษภาคม " & yr
        UserForm1.Label4 = "วันหยุดชดเชยวิสาขบูชา 20 พฤษภาคม " & yr
    ElseIf mn = 6 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้ไม่มีวันหยุดนักขัตฤกษ์ "
    ElseIf mn = 7 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันอาสาฬหบูชา 16 กรกฎาคม " & yr
        UserForm1.Label4 = "วันคล้ายวันประสูติ ร.10 29 กรกฎาคม " & yr
    ElseIf mn = 8 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันคล้ายวันประสูติราชินี 12 พฤษภาคม " & yr
    ElseIf mn = 9 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
    ElseIf mn = 10 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันคล้ายวันสรรคต ร.9 14 ตุลาคม " & yr
        UserForm1.Label4 = "วันปิยะมหาราช 23 ตุลาคม " & yr
    ElseIf mn = 11 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนีไม่มีวันหยุดนักขัตฤกษ์ "
    ElseIf mn = 12 And yr = 2019 Then
        UserForm1.Label2 = "วันนี้เป็น " & result & "เดือนนี้มีวันหยุดนักขัตฤกษ์ "
        UserForm1.Label3 = "วันคล้ายวันประสูติร.9 5 ธันวาคม " & yr
        UserForm1.Label4 = "วันรัฐธรรมนูญ 10 ธันวาคม " & yr
        UserForm1.Label5 = "วันสิ้นปี 31 ธันวาคม " & yr
    End If
End Sub

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Mon Dec 03, 2018 9:33 pm
by akekorn
อ้อครับขอบคุณครับผม

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Wed Dec 05, 2018 9:24 am
by akekorn
รบกวนอีกข้อครับคือตอนที่ form แสดง ผมไม่อยากให้ เห็นชีทด้านหลัง ลองใช้

Code: Select all

Private Sub UserForm_Click()
Sheet1.Visible = xlSheetHidden  ' หรือ ด้านล่าง
'Sheet1.Visible = xlSheetVeryHidden
Call holidays
End Sub
ก็จะเกิด error เพราะมันไม่สามารถซ่อนชีทเพียงชีทเดียวได้
ผมอยากขอคำแนะนำว่าควรใช้วิธีใด ในการแก้ไขปัญหานี้ครับ
ขอบคุณครับ

Re: ขอคำแนะนำโปรแกรม ตรวจสอบวันหยุดในปี

Posted: Wed Dec 05, 2018 11:18 am
by snasui
:D ทำได้หลายวิธีครับ
  • สร้าง Object ขึ้นมาบัง ยกเลิกเมื่อทำงานเสร็จ
  • กำหนดรูปแบบให้เป็นสีทึบ ยกเลิกเมื่อทำงานเสร็จ
  • เพิ่มชีตขึ้นมาใหม่แล้ว Activate ชีตนั้น ลบทิ้งเมื่อทำงานเสร็จ
  • ฯลฯ
ลองเขียนมาสักวิธี ติดแล้วค่อยถามกันต่อครับ
All times are UTC+07:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited