สอบถามปัญหา การสร้างฟอร์ม เพื่อบันทึกข้อมูล

[snasui]

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

Code: Select all

Private Sub CommandButton1_Click()
    Dim l As Long, i As Integer
    With Worksheets("Original")
        l = .Range("b" & .Rows.Count).End(xlUp).Row
        .Cells(l + 1, 1).Value = Me.TextBox1.Text
        For i = 1 To 6
            .Cells(l + i, 2).Value = Me.Controls("TextBox" & i * 2).Text
            .Cells(l + i, 3).Value = Me.Controls("TextBox" & i * 2 + 1).Text
            .Cells(l + i, 4).Value = Me.TextBox14.Text
            .Cells(l + i, 5).Value = Me.TextBox15.Text
        Next i
    End With
End Sub

ในโอกาสถัดไปกรุณาวาง Code ให้แสดงเป็นข้อความ Code ดูวิธีการได้จากกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

[snasui]

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

Code: Select all

Private Sub CommandButton1_Click()
    Dim l As Long, i As Integer
    Dim la As Integer
    With Worksheets("Original")
        l = .Range("b" & .Rows.Count).End(xlUp).Row
        If Me.TextBox1.Value = "" Then Exit Sub
        .Cells(l + 1, 1).Value = Me.TextBox1.Text
        For i = 1 To 6
            If Me.Controls("TextBox" & i * 2).Text <> "" Then
                la = la + 1
                .Cells(l + la, 2).Value = Me.Controls("TextBox" & i * 2).Text
                .Cells(l + la, 3).Value = Me.Controls("TextBox" & i * 2 + 1).Text
                .Cells(l + la, 4).Value = Me.TextBox14.Text
                .Cells(l + la, 5).Value = Me.TextBox15.Text
            End If
        Next i
    End With
End Sub

ในโอกาสหน้ากรุณาลองปรับมาเองก่อน ปรับได้เท่าไรก็เท่านั้น ติดตรงไหนค่อยมาถามกันต่อครับ