Snasui Excel Forum

snasui wrote: Thu Dec 19, 2019 7:01 pm หลักการคือให้ตรวจสอบว่า Bar Code นั้น ๆ อยู่ในบรรทัดที่เท่าใด จากนั้นให้นำค่าไปบวกเพิ่มที่บรรทัดและคอลัมน์ที่สัมพันธ์กันครับ

สำหรับ Code จะต้องปรับกันมาเองก่อน ติดแล้วค่อยถามกันต่อตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

snasui wrote: Wed Dec 18, 2019 7:17 pm ตัวอย่าง Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
    Do
        r = r + 1
    Loop Until Cells(r, 1) = ""
    Cells(r, 1) = TextBox1.Text
    Cells(r, 2) = TextBox2.Text
    Cells(r, 3) = TextBox3.Text
    Cells(r, 4) = TextBox4.Text
    Cells(r, 5) = TextBox5.Text
    Cells(r, 6) = TextBox6.Text
    
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
End Sub

Private Sub TextBox1_AfterUpdate()
    Dim q, p As Long
    q = Application.WorksheetFunction.CountA(Sheet2.Range("B:B"))
    If Me.TextBox1.Text = "" Or Application.CountIf(Sheet2.Range("a:a"), Me.TextBox1.Text) = 0 Then
        MsgBox "Not found.", vbInformation
        Exit Sub
    Else
        For p = 2 To 4
            Me.Controls("TextBox" & p).Text = Application.WorksheetFunction.VLookup( _
                CDbl(Me.TextBox1.Text), Sheet2.Range("A:D"), p, 0)
        Next p
    End If
End Sub

คีย์ค่าลงใน TextBox1 แล้ว Enter จะเป็นการเติมค่า TextBox อื่น ๆ ให้

logic wrote: Wed Dec 18, 2019 4:07 pm ลองแบบนี้ครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim q, p As Long
    q = Application.WorksheetFunction.CountA(Sheet2.Range("B:B"))
    If Application.CountIf(Sheet2.Range("a:a"), Me.TextBox1.Text) = 0 Then
        MsgBox "Not found.", vbInformation
        Exit Sub
    Else
        For p = 2 To 4
            Me.Controls("TextBox" & p).Text = Application.WorksheetFunction.VLookup( _
                CDbl(Me.TextBox1.Text), Sheet2.Range("A:D"), p, 0)
        Next p
    End If
    Do
        r = r + 1
    Loop Until Cells(r, 1) = ""
    Cells(r, 1) = TextBox1.Text
    Cells(r, 2) = TextBox2.Text
    Cells(r, 3) = TextBox3.Text
    Cells(r, 4) = TextBox4.Text
    Cells(r, 5) = TextBox5.Text
    Cells(r, 6) = TextBox6.Text
    
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
End Sub