Snasui Excel Forum

โค้ดจะอยู่ใสนชีทอันที่ 2 ปุ่ม save ค้ะ

ลองทำแล้วค่ะอาจารย์ แต่ยังคิด debug ค้ะ

อาจารย์ช่วยแนะนำหน่อยได้ไหมค่ะ

ใช้ในการจัดเก็บข้อมูล พอนำมาใส่โค้ดจะ Debug ตรง z1 ค้ะ

ขอบคุณค่ะ จะลองพยายามปรับแก้ดูนะค้ะอาจารย์

ถ้ากรณีที่ผู้ใช้เพิ่มรายชื่อไปมากกว่าหนึ่งชื่อ ต้องแก้ไขตรงไหนหรอค้ะ

อาจารย์ค่ะ แล้วถ้ากรณีที่ไม่ใช่ตาราง ต้องปรับแก้ตรงไหนหรอค้ะ

อาจารย์ค่ะ เมื่อกด save แล้วไม่มีอะไรเปลี่ยนแปลงเลยค้ะยังเหมือนเดิม.


ทำงานกับชีทอันที่ 2 ชื่อ sheet3 เมื่อใส่ไอดีละกดค้นหาข้อมูลจะแสดง และเมื่อเรากรอกข้อมูลเพิ่ม แล้วกดบันทึกข้อมูลจะไปอยู่ในแถวสุดท้ายของชีทชื่อว่า profile
โค้ดการบันทึกอยู่ในปุ่ม save ในชีทอันที่ 2 ค้ะ

อาจารย์ค่ะลองนำโค้ดไปใส่ดูแล้ว และเปลี่ยนในส่วนของชีทข้อมูลแล้ว
แต่เมื่อกดบันทึก มันจะนำเอาข้อมูลเดิมที่มีอยู่ไปใส่ในชีท Profile ค้ะ แต่ที่ต้องการคือนำข้อมูลใหม่ที่ได้เพิ่มไปล่าสุดนำไปใส่ไว้ค้ะ

โค้ดในปุ่มค้นหา ชีทที่ 2 (เพื่ออาจารย์ต้องการจะดูควบคู่ไปด้วยค่ะ)

Sub Button1_คลิก()
Dim z1 As Long
Dim endrow1 As Long
Dim input1 As Range, irow As Long
Dim tempRow As Long, cell As Range
Dim nRange As Range, aCell As Range, bCell As Range
Set input1 = Worksheets(2).Range("b1")
Worksheets(2 ...

อาจารย์ค่ะ คือต้องการให้ชีทที่ 2 เมื่อค้นหาข้อมูลเสร็จเรียบร้อยแล้ว เราสามารถเพิ่มข้อมูลลงไปในชีทได้
แล้วเมื่อกดปุ่มบันทึก ข้อมูลที่ถูกเพิ่มล่าสุดจะไปอยู่ต่อท้ายของข้อมูลบรรทัดสุดท้ายในชีท profile ค่ะ

โค้ดการบันทึกข้อมูลจะอยู่ในชีทที่ 2 ในปุ่ม บันทึก
(แนบไฟล์ไม่ได้ค่ะ เป็นไฟล์ขนาดใหญ่)


โค้ดในป ...

Dim input1 As Range, iRow As Long
Dim tempRow As Long, cell As Range
Dim nRange As Range, aCell As Range, bCell As Range
Set input1 = Worksheets(1).Range("b1") 'ªèͧ·Õè¨Ð¡ÃÍ¡¤ÓãËé¤é¹ËÒ
Worksheets(1).Range("a3").Resize(1000, 10).ClearContents


For Each cell In Worksheets(4).UsedRange.Offset(1, 0 ...

Dim input1 As Range, iRow As Long
Dim tempRow As Long, cell As Range
Dim nRange As Range, aCell As Range, bCell As Range
Set input1 = Worksheets(1).Range("b1") 'ªèͧ·Õè¨Ð¡ÃÍ¡¤ÓãËé¤é¹ËÒ
Worksheets(1).Range("a3").Resize(1000, 10).ClearContents


For Each cell In Worksheets(4).UsedRange.Offset(1, 0 ...