ขอวิธีแสดง วันที่ ใน UserForm ครับ

[candidshot]

1.อยากให้เวลาเรียกใช้ Userform ขึ้นมาแล้ว ในช่อง วันที่ มีค่า วันที่ตั้งต้นเป็นวัน/เดือน/ปี ปัจจุบันครับ และ สามารถแก้ไขวันที่ได้ด้วยครับ
2.กรณีที่ใส่ข้อมูลไม่ครบ แล้วมี ข้อความขึ้นเตือน "fill missing" หลังกด ok
- 2.1 ไม่ให้ ล้างข้อมูลที่ใส่ไว้ก่อนหน้า
- 2.2 และไม่ให้ข้อมูลที่ไม่ครบ กรอกลงที่ปลายทาง ของเวิร์คชีทที่ตั้งไว้



ขอรบกวนทุกท่านด้วยครับ

[snasui]

การใช้ VBA ต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยถามกันต่อครับ

สำหรับการแสดงวันที่ในลักษณะที่ถามมานั้นสามารถใช้ ComboBox เข้ามาช่วย ลองศึกษาได้ตาม Link นี้ครับ ComboBox

[candidshot]

ชอบคุณคุณ คนควน ครับ
combobox คือกดเลือกเอาใช่ไหมครับ ผมต้องการให้มันแสดงเลยตอนที่เปิดฟอร์มขึ้นมา ไม่ทราบว่าสามารถทำได้ไหมครับ


ขอบคุณครับ

ป.ล. code อยู่ด้านล่างครับ

Code: Select all

Dim intRows As Integer
Dim dDate As Date



Private Sub Cblist_Change()

End Sub



Private Sub Cmb2_Click()
                    
                    CbList.Text = ""
                        TbDate.Text = ""
                        TbRc.Text = ""
                        TbStk.Text = ""
                        TbSO.Text = ""
                       TbSh.Text = ""
                       
End Sub
Private Sub Cmb3_Click()
                    Windows(1).Activate
                    ActiveWorkbook.SaveAs Filename:= _
                    "D:\BackpackGiant\BPGA_JOB1cp.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
                    ActiveWorkbook.Close

End Sub

Private Sub Cmb1_Click()

                         'Check Blank TextBox.
                          If CbList.Value = blank Then MsgBox "Fill in missing data.?"
                         If TbDate.Text = blank Then MsgBox "Fill in missing data.?"
                         'If TbRc.Text = blank Then MsgBox "Fill in missing data.?"
                          'If TbStk.Text = blank Then MsgBox "Fill in missing data.?"
                          'If TbSO.Text = blank Then MsgBox "Fill in missing data.?"
                           'If TbSh.Text = blank Then MsgBox "Fill in missing data.?"
                intRows = LastRow + 1
               
                
                        Cells(intRows, 1).Value = TbDate.Text
                        Cells(intRows, 2).Value = CbList.Value
                        Cells(intRows, 3).Value = TbRc.Text
                        Cells(intRows, 4).Value = TbSO.Text
                        Cells(intRows, 5).Value = TbStk.Text
                       Cells(intRows, 6).Value = TbSh.Text
                        
                       
                         
                         
    
                        intRows = intRows + 1
                       TbDate.Text = ""
                        CbList.Value = ""
                        TbRc.Text = ""
                        TbSO.Text = ""
                        TbStk.Text = ""
                       TbSh.Text = ""
                        
                      
                        
End Sub





Private Sub TbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
     
            'Dim dDate As Date
            today = Date
            'dDate = DateSerial(Year(Date), Month(Date), Day(Date))
            TbDate.Value = Format(TbDate.Value, "dd/mm/yyyy")
            dDate = TbDate.Value
            TbDate.Value = Date
End Sub

[snasui]

ตัวอย่างการใส่ Code ใน TextBox tbDate ตามด้านล่างครับ

Code: Select all

Private Sub UserForm_Initialize()
    Me.TbDate.Value = Application.Text(Date, "mm/dd/yyyy")
End Sub

สำหรับ Code ด้านล่างเป็นการตรวจสอบเมื่อ TbDate มีการ Update ซึ่งจะถูกตรวจสอบทุกอักขระที่คีย์แม้แต่การลบให้เป็นค่าว่าง จึงไม่เหมาะที่จะนำมาใช้สำหรับการจัดการค่าในช่อง TbDate เพราะจะควบคุมลำบาก แต่ควรใช้ปุ่มอื่นเช่น ปุ่ม Done เข้ามาตรวจสอบแทน ยกตัวอย่างเช่น หากคีย์ไม่เป็นวันที่จะฟ้องให้คีย์ใหม่ เช่นนี้เป็นต้น

Code: Select all

Private Sub TbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    'Dim dDate As Date
    today = Date
    'dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TbDate.Value = Format(TbDate.Value, "dd/mm/yyyy")
    dDate = TbDate.Value
    TbDate.Value = Date
End Sub

[candidshot]

ตัวอย่างการใส่ Code ใน TextBox tbDate ตามด้านล่างครับ

Code: Select all

Private Sub UserForm_Initialize()
    Me.TbDate.Value = Application.Text(Date, "mm/dd/yyyy")
End Sub

ขอบคุณครับ ได้อย่างที่ต้องการเลยครับ แต่ว่าหลังผมกด ตกลง(done) เพื่อ กรอกข้อมูล ไปในครั้งแรก วันที่ก็หายไปเลยครับ ให้มันค้างไว้จนจบเลยได้ไหมครับ

[candidshot]

สำหรับ Code ด้านล่างเป็นการตรวจสอบเมื่อ TbDate มีการ Update ซึ่งจะถูกตรวจสอบทุกอักขระที่คีย์แม้แต่การลบให้เป็นค่าว่าง จึงไม่เหมาะที่จะนำมาใช้สำหรับการจัดการค่าในช่อง TbDate เพราะจะควบคุมลำบาก แต่ควรใช้ปุ่มอื่นเช่น ปุ่ม Done เข้ามาตรวจสอบแทน ยกตัวอย่างเช่น หากคีย์ไม่เป็นวันที่จะฟ้องให้คีย์ใหม่ เช่นนี้เป็นต้น

Code: Select all

Private Sub TbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    'Dim dDate As Date
    today = Date
    'dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TbDate.Value = Format(TbDate.Value, "dd/mm/yyyy")
    dDate = TbDate.Value
    TbDate.Value = Date
End Sub

[/quote]


วิธีใช้ปุ่มอื่น พอแนะนำได้ไหมครับ ขอบคุณครับ

[snasui]

ผมยกตัวอย่างไว้แล้วว่าใช้ปุ่มไหน พร้อมทั้งแนวทางว่าตรวจสอบในลักษณะใด ลองเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[snasui]

ขอบคุณครับ ได้อย่างที่ต้องการเลยครับ แต่ว่าหลังผมกด ตกลง(done) เพื่อ กรอกข้อมูล ไปในครั้งแรก วันที่ก็หายไปเลยครับ ให้มันค้างไว้จนจบเลยได้ไหมครับ

ใน Sub Cmb1_Click() ลบบรรทัดนี้ทิ้งไปครับ TbDate.Text = ""

[candidshot]

ขอบคุณครับ ได้อย่างที่ต้องการเลยครับ แต่ว่าหลังผมกด ตกลง(done) เพื่อ กรอกข้อมูล ไปในครั้งแรก วันที่ก็หายไปเลยครับ ให้มันค้างไว้จนจบเลยได้ไหมครับ

ใน Sub Cmb1_Click() ลบบรรทัดนี้ทิ้งไปครับ TbDate.Text = ""

ขอบคุณครับ

[candidshot]

สอบถามเพิ่มเติมครับ
ในกรณีที่ในช่องว่าง (textbox) ลืมใส่คำตอบ หรือข้อมูล แล้วมี ข้อความขึ้นเตือน หลังจากปิดไปแล้วจะเกิด เหตุการณ์ ข้ึน 2 เหตุการณ์ ดังนี้ครับ
1. ข้อมูลถูกเติมลงไปใน ชีทงาน
2.ข้อมูลที่กรอกไว้แล้วหายไป


อยากทราบวิธีแก้ไขครับ ไม่ให้เกิดเหตุการณ์ ทั้ง 2 เหตุการณ์ ครับ

[snasui]

ควรจะมีการ Validate หมายถึงตรวจสอบความสมบูรณ์ของข้อมูลที่จำเป็นว่าถูกต้องและมีครบทุกช่อง หากมีไม่ครบทุกช่อง หรือ มีครบแต่ไม่อยู่ในรูปแบบที่กำหนดจะต้องไม่วางลงไปในพื้นที่เป้าหมาย สำหรับการ Validate ให้ลองเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[candidshot]

ควรจะมีการ Validate หมายถึงตรวจสอบความสมบูรณ์ของข้อมูลที่จำเป็นว่าถูกต้องและมีครบทุกช่อง หากมีไม่ครบทุกช่อง หรือ มีครบแต่ไม่อยู่ในรูปแบบที่กำหนดจะต้องไม่วางลงไปในพื้นที่เป้าหมาย สำหรับการ Validate ให้ลองเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

ขอบคุณครับ