โปรแกรม เก็บข้อมูลครั้งก่อนหน้า และครั้งล่าสุด

[diamondbom]

ผมต้องการออกแบบโปรแกรม เก็บข้อมูลครั้งก่อนหน้า และครั้งล่าสุด

โดยกำหนดค่าให้ S1 S2 และ S3 ครับ เมื่อใส่ค่าใหม่ลงไปค่าเก่อนหน้าจะถูกเก็บในตัวแปร

และนำไปเติมให้กับคอลัมน์ก่อนหน้า แต่โปรแกรมที่ผมออกแบบนั้น ไม่นำค่าทศนิยม

ไปด้วย และวันที่ก็ผิดเพี้ยนไปจากเดิม รบกวนผู้รู้ด้วยครับ

___ขอบคุณครับ___

[snasui]

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

Code: Select all

Private Sub CommandButton1_Click()

    Dim Sa As Integer, S1 As Double
    Dim S2 As Double, S3 As Date
    
    With Worksheets("Sheet1")
        Sa = 2
        S1 = .Cells(Sa, 4).Value
        S2 = .Cells(Sa, 5).Value
        S3 = .Cells(Sa, 6).Value
        
        If .Cells(Sa, 4).Value = "" Then
            .Cells(Sa, 1).Value = ""
            .Cells(Sa, 2).Value = ""
            .Cells(Sa, 3).Value = ""
            .Cells(Sa, 4).Value = TB1.Value
            .Cells(Sa, 5).Value = TB2.Value
            .Cells(Sa, 6).Value = TB3.Value
        Else
            .Cells(Sa, 1).Value = S1
            .Cells(Sa, 2).Value = S2
            .Cells(Sa, 3).Value = S3
            .Cells(Sa, 4).Value = TB1.Value
            .Cells(Sa, 5).Value = TB2.Value
            .Cells(Sa, 6).Value = TB3.Value
        End If
    End With
End Sub

[diamondbom]

ขอลคุณครับ

[diamondbom]

ในขั้นตอนการบันทึกวันที่นั้น วัน กับ เดือน จะสลับกันเมื่อกดบันทึก แก้ใชอย่างไรครับผม

รบกวนอีกครับ ขอบคุณครับ

[niwat2811]

ลองเพิ่ม Code นี้เข้าไปครับว่าใช้ได้ตามต้องการไหม

Code: Select all

.Cells(Sa, 3).NumberFormat = "mm/dd/yyyy"
.Cells(Sa, 6).NumberFormat = "mm/dd/yyyy"

[diamondbom]

ได้ครับ ขอบคุณครับ