มีปัญหาการส่งข้อความจาก Textbox ที่เป็น วัน เดือน ปี ไปที่เซลแล้วไม่แสดงผลตามรูปแบบที่กำหนดไว้ในเซล

[tigerwit]

จากไฟล์ที่แนบมา
ใช้ form เรียกข้อมูลจากตาราง ขึ้นมาแก้ไข
แล้วส่งกลับไปวางเพื่ออัพเดตข้อมูลใหม่ ใน คลอลัมน์ C ของตาราง จัดรูปแบบไว้เป็น d mmm bbbb
ซึ่งเมื่ออัพเดตข้อมูลที่แก้ไขแล้ว ไม่แสดงรูปแบบตามที่กำหนดไว้
ต้องปรับแก้ไขอย่างไรครับ

Code: Select all

Private Sub CommandButton2_Click()
    Dim ProductId As String
    ProductId = TextBox1.Text
    lastRow = Worksheets("Bget").Cells(Rows.Count, 11).End(xlUp).Row
    If TextBox1.Value = "" Then
    MsgBox "กรุณากรอกรหัสอ้างอิงก่อนการอัพเดตข้อมูล"
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
    TextBox6.Value = ""
    TextBox7.Value = ""
    TextBox1.SetFocus
     Exit Sub
    End If
'       ActiveSheet.Unprotect Password:="1"

    For i = 2 To lastRow
        If Worksheets("Bget").Cells(i, 11).Value = ProductId Then
            Worksheets("Bget").Cells(i, 3).Value = TextBox2.Text
            Worksheets("Bget").Cells(i, 4).Value = TextBox3.Text
            Worksheets("Bget").Cells(i, 5).Value = TextBox4.Text
            Worksheets("Bget").Cells(i, 7).Value = TextBox5.Text
            Worksheets("Bget").Cells(i, 8).Value = TextBox6.Text
            Worksheets("Bget").Cells(i, 10).Value = TextBox7.Text
        End If
    Next
'    ActiveSheet.Protect Password:="1"
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
    TextBox6.Value = ""
    TextBox7.Value = ""
    TextBox1.SetFocus
End Sub

[puriwutpokin]

ลองเปลี่ยนตัวนี้

Code: Select all

Worksheets("Bget").Cells(i, 3).Value = TextBox2.Value

เป็น

Code: Select all

Worksheets("Bget").Cells(i, 3).Value = Format(CDate(TextBox2.Value), "d mmm yyyy")

[tigerwit]

ลองเปลี่ยนตัวนี้
CODE: SELECT ALL
Worksheets("Bget").Cells(i, 3).Value = TextBox2.Value
เป็น
CODE: SELECT ALL
Worksheets("Bget").Cells(i, 3).Value = Format(CDate(TextBox2.Value), "d mmm yyyy")

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

[puriwutpokin]

ลองเปลี่ยนเป็น

Code: Select all

 CDate(TextBox2.Value)

[tigerwit]

ขอบคุณครับ
สอบถามต่อจากโค๊ดนี้

Code: Select all

Private Sub CommandButton1_Click()
    Dim ProductId As String
    ProductId = TextBox1.Text
    lastRow = Worksheets("Bget").Cells(Rows.Count, 11).End(xlUp).Row
    
    If ProductId = "" Then
        MsgBox "กรุณากรอกรหัสอ้างอิง"
        TextBox1.SetFocus
    End If

    For i = 2 To lastRow
        If Worksheets("Bget").Cells(i, 11).Value = ProductId Then
            TextBox2.Text = Worksheets("Bget").Cells(i, 3).Value
            TextBox3.Text = Worksheets("Bget").Cells(i, 4).Value
            TextBox4.Text = Worksheets("Bget").Cells(i, 5).Value
            TextBox5.Text = Worksheets("Bget").Cells(i, 7).Value
            TextBox6.Text = Worksheets("Bget").Cells(i, 8).Value
            TextBox7.Text = Worksheets("Bget").Cells(i, 10).Value
        End If
        Next
        If Worksheets("Bget").Cells(i, 11).Value <> ProductId Then
            MsgBox "ไม่มีรหัสอ้างอิง"
            TextBox1.SetFocus
        End If
End Sub

ต้องการตรวจสอบว่า textbox1 เมื่อรับค่ามาแล้วไม่ตรงกับที่อยู่ในตาราง ให้แสดง Msgbox แจ้งเตือน
จะต้องปรับแก้โค๊ดอย่างไรครับ

[puriwutpokin]

ปรับเป็น

Code: Select all

Private Sub CommandButton1_Click()
    Dim ProductId As String
    ProductId = TextBox1.Text
    lastRow = Worksheets("Bget").Cells(Rows.Count, 11).End(xlUp).Row
    If ProductId = "" Then
        MsgBox "กรุณากรอกรหัสอ้างอิง"
        TextBox1.SetFocus
    End If
    x = Application.Match(ProductId, Worksheets("Bget").Cells(2, 11).Resize(lastRow).Value, 0)
     If Not IsNumeric(x) Then
            MsgBox "ไม่มีรหัสอ้างอิง"
           TextBox1.SetFocus
    End If
    For i = 2 To lastRow
        If Worksheets("Bget").Cells(i, 11).Value = ProductId Then
            TextBox2.Text = Worksheets("Bget").Cells(i, 3).Value
            TextBox3.Text = Worksheets("Bget").Cells(i, 4).Value
            TextBox4.Text = Worksheets("Bget").Cells(i, 5).Value
            TextBox5.Text = Worksheets("Bget").Cells(i, 7).Value
            TextBox6.Text = Worksheets("Bget").Cells(i, 8).Value
            TextBox7.Text = Worksheets("Bget").Cells(i, 10).Value
        End If
        Next
End Sub

[tigerwit]

ขอบคุณครับ