Snasui Excel Forum

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

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

ทดลองเขียนแล้วค่ะ พอคีย์ข้อมูลลงUserFormแล้ว ข้อมูลไม่แสดงในชีทเลยค่ะ

:D ตัวอย่าง Code ครับ

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 ...

ลองแบบนี้ครับ

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 ...

ติดปัญหาตรงการ vlookup ข้อมูลจาก sheet2 เพื่อมาแสดงในหน้าต่างpopup userform1 ใน Sheet1 ค่ะ ตามไฟล์ที่แนบ ตรงปุ่ม ADD DATA อยากให้เป็น การใส่ข้อมูลที่ช่อง บาร์โค้ด เพื่อให้แสดงรายละเอียดของสินค้า คือ รหัสสินค้า ชื่อสินค้า แพ็ค ส่วนช่อง รับสินค้า ตัดจ่าย เป็นการคีย์ข้อมูลลงเอง แล้วบันทึกให้เข้าตารางใน ...