Snasui Excel Forum

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

Sub Main11()
Dim A, B
Sheet1.Select
Range("a1").Select
A = ActiveCell.Row
B = 0
Do While ActiveCell.Text <> ""
Sheet2.TextBox1 = Sheet1.Range("a" & A)
Sheet2.TextBox2 = Sheet1.Range("b" & A)
Sheet2.TextBox3 = Sheet1.Range("c" & A)
Sheet2.TextBox4 = Sheet1.Range("d ...

snasui wrote: Wed Oct 03, 2018 10:42 pm การโพสต์ Code เพื่อให้สะดวกต่อการอ่าน กรุณาดูกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

นอกจากนี้ควรแนบไฟล์ตัวอย่างประกอบเพื่อจะได้ช่วยตรวจสอบให้ได้ครับ

ตามไฟล์เลยค่ะ

:D การโพสต์ Code เพื่อให้สะดวกต่อการอ่าน กรุณาดูกฎการใช้บอร์ดข้อ 5 ด้านบนครับ :roll:

นอกจากนี้ควรแนบไฟล์ตัวอย่างประกอบเพื่อจะได้ช่วยตรวจสอบให้ได้ครับ


Sub Main11()
Dim A, B
A = ActiveCell.Row
B = 0

Do While ActiveCell.Text > ""
Sheet2.TextBox1 = Sheet1.Range("a" & A)
Sheet2.TextBox2 = Sheet1 ...

เรื่องคือ ป้าใช้อ๊อปเจ็คแบบTextboxลงในชีท แล้วใช้คำสั่ง
"Sub XXX()
dim A
A = เลขแถว row
do while เอคทิพเซลล์ > " "
>ชีท2.textbox1 = ชีท1.ระยะ("a" & A)
>A = A + 1
>ชีท2.ปริ้นท์...
Loop
End sub
"

ถ้าtextboxเป็นเซลล์ มันจะรันข้อมูลมาพิมพ์ปกติ!จนครบลูป...
แต่ถ้าใช้textbox มันจะเอาข้อมูลบรรทัดแรกท ...