UserForm แสดงผลวันที่สลับจาก ddmmyyyy เป็น mmddyyyy ครับ

[ironsulfide]

ทดสอบUserform.xlsm

ผมลองหัดทำชุด UserForm เพื่อให้น้องเอาไปใช้จัดสต๊อคสินค้าในร้านเล็กๆครับ
ในไฟล์ฐานข้อมูลระบุวันที่เป็นปกติครับคือ ddmmyyyy แต่เมื่อเราเรียกข้อมูลขึ้นบน UserForm วันที่จะแสดงเป็น mmddyyyy
ซึ่งหากเรากดแก้ไขข้อมูลการแสดงผลด้วยคำสั่ง

Code: Select all

TextBox5 = Format(TextBox5, "dd/mm/yyyy")

ก็ยังแก้ไม่ได้ครับ ลองมาหลายวิธีแล้ว

ประเด็นคือเมื่อเราจะต้องกดค้นหาข้อมูลด้วยวันที่ ซึ่งในที่นี้คือ การใส่วันที่ลงในช่อง วันที่รับสินค้า
เราก็ต้องใส่เป็นรูปแบบ dd/mm/yyyy ด้วยเช่นกันครับไม่อย่างนั้นจะค้นหาไม่เจอ ทำให้เวลาค้นหาข้อมูลทำได้ลำบากมากครับ
เพราะตามวิสัยเราใช้วันที่กันแบบ ddmmyyyy และตอนที่เซฟข้อมูลลงไปข้อมูลก็ยังกลับเป็น ddmmyyyy
เพียงแต่การเรียกขึ้นมาบน UserForm จะสลับเป็น mmddyyyy ครับ

ไฟล์ที่แนบมา วิธีค้นข้อมูล ให้ใส่ข้อมูลลงในช่องวันที่รับสินค้าเพียงช่องเดียว และกดค้นหา ครับ

Code: Select all

Private Sub CommandButton10_Click() 
Dim dte As Date

On Error Resume Next
Err.Clear
If TextBox1.Value <> "" Then
        txtbox_No = 1
       Set nRow = Sheet1.Columns(1).Find(TextBox1.Text)
ElseIf TextBox2.Value <> "" Then
        txtbox_No = 2
        Set nRow = Sheet1.Columns(2).Find(TextBox2.Text)
ElseIf TextBox3.Value <> "" Then
        txtbox_No = 3
        Set nRow = Sheet1.Columns(3).Find(TextBox3.Text)
ElseIf TextBox4.Value <> "" Then
        txtbox_No = 4
        Set nRow = Sheet1.Columns(4).Find(TextBox4.Text)
ElseIf TextBox5.Value <> "" Then
 mbox = TextBox5.Text

 If IsDate(mbox) Then
     'dte = CDate(mbox)
     Set nRow = Sheet1.Columns(5).Find(TextBox5.Text)
  Else
     MsgBox "ข้อมูลไม่ตรงกับรหัสของวันที่"
  End If
     'MsgBox "Date Search Not Now Active Please Use Other Function"
     'GoTo nNext
ElseIf TextBox7.Value <> "" Then
        txtbox_No = 7
        Set nRow = Sheet1.Columns(7).Find(TextBox7.Text)
ElseIf TextBox8.Value <> "" Then
        txtbox_No = 8
        Set nRow = Sheet1.Columns(6).Find(TextBox8.Value)
End If

If Err.Number = 91 Then
    TextBox2.Value = "NotFound DATA"
    TextBox3.Value = "NotFound DATA"
    TextBox4.Value = "NotFound DATA"
    TextBox5.Value = "NotFound DATA"
    TextBox6.Value = "NotFound DATA"
    TextBox7.Value = "NotFound DATA"
    TextBox8.Value = "NotFound DATA"
    TextBox9.Value = "NotFound DATA"
        MsgBox "Don't Have this Word in Record"
    GoTo nNext
End If

TextBox1.Value = Cells(nRow.Row, 1)
TextBox2.Value = Cells(nRow.Row, 2)
TextBox3.Value = Cells(nRow.Row, 3)
TextBox4.Value = Cells(nRow.Row, 4)
TextBox5.Value = Cells(nRow.Row, 5)
TextBox7.Value = Cells(nRow.Row, 7)
TextBox8.Value = Cells(nRow.Row, 6)
TextBox9.Value = Cells(nRow.Row, 8)

Cells(nRow.Row, 1).Activate
nNext:
End Sub

ขออภัยที่เขียนมาค่อนข้างยาว หากข้อความไหนผิดพลาดต้องขออภัยด้วยครับ ขอบพระคุณล่วงหน้าสำหรับคำตอบครับ

[snasui]

ตัวอย่างการปรับ Code ตามล่างครับ

TextBox5.Value = Application.Text(Cells(TextBox1.Value, 5).Value, "dd/mm/yyyy")

TextBox5.Value = Application.Text(Cells(2, 5).Value, "dd/mm/yyyy")

[ironsulfide]

ขอบพระคุณอาจารย์มากครับ จาก Code ที่ได้มาทำให้ผมสามารถแสดงผลใน UserFrom เป็นแบบ dd/mm/yyyy ได้แล้ว

ต้องขอโทษอาจารย์ด้วยครับ เนื่องจากโพสต์ผมลงปัญหาที่ 2 ไว้ผิดพลาดไม่ชัดเจน
คือปัญหาที่ 2 ในการกดค้นหา ต้องกดค้นหาด้วยรูปแบบ mm/dd/yyyy ครับไม่อย่างนั้นจะหาข้อมูลไม่พบ
(ในโพสต์บนเขียนผิด) ความต้องการคือ ต้องการค้นหาวันที่ด้วยรูปแบบ dd/mm/yyyy ครับ


Codeในส่วนการค้นหาอยู่ในส่วนของโพสต์ครับ ขออนุญาตไม่ลงเพิ่มเพราะเป็น Code ชุดเดียวกันครับ

[snasui]

ตัวอย่างการค้นหาและ Set ค่าให้ตัวแปร nRow ครับ

Code: Select all

Dim Rng as Range, strDte As Variant
strDte = Split(TextBox5.Text, "/")

For Each Rng In Sheet1.Columns(5).SpecialCells(xlCellTypeConstants, 1)
    If Rng.Value2 = CLng(DateSerial(strDte(2), strDte(1), strDte(0))) Then
        Set nRow = Rng
        Exit For
    End If
Next Rng