การ save เพิ่มข้อมูลเดิม ด้วย VBA
Posted: Wed Jul 06, 2016 10:14 am
ขอสอบถามครับ
พอดีผมสร้างไฟล์ที่ต้องการ search หาข้อมูลเสร็จแล้วให้เพิ่มการลงทะเบียนไปในรายชื่อที่มีอยู่ แต่ติดปัญหาว่าไม่สามารถเพิ่มข้อมูลต่อท้ายข้อมูลเดิมที่มีอยู่ได้ครับ
เช่น ผมต้องการเพิ่มการลงทะเบียน หมายเลข 11111 ใน sheet DataNamelist Culoum V-AF
แต่ติดปัญหาที่สูตร
Set rAll = .Range("a3", .Range("a" & Rows.Count).End(xlUp))
If Application.CountIf(rAll, frmWelfare.id_txtbox.Value) > 0 Then
iRow = Application.Match(CLng(frmWelfare.id_txtbox.Value), .Range("a:a"), 0)[/quote]
Else
iRow = rAll(rAll.Rows.Count).Row + 1
End If
ไม่ทราบว่าจะต้องแก้ไขสูตรอย่างไรครับ
พอดีผมสร้างไฟล์ที่ต้องการ search หาข้อมูลเสร็จแล้วให้เพิ่มการลงทะเบียนไปในรายชื่อที่มีอยู่ แต่ติดปัญหาว่าไม่สามารถเพิ่มข้อมูลต่อท้ายข้อมูลเดิมที่มีอยู่ได้ครับ
เช่น ผมต้องการเพิ่มการลงทะเบียน หมายเลข 11111 ใน sheet DataNamelist Culoum V-AF
แต่ติดปัญหาที่สูตร
Set rAll = .Range("a3", .Range("a" & Rows.Count).End(xlUp))
If Application.CountIf(rAll, frmWelfare.id_txtbox.Value) > 0 Then
iRow = Application.Match(CLng(frmWelfare.id_txtbox.Value), .Range("a:a"), 0)[/quote]
Else
iRow = rAll(rAll.Rows.Count).Row + 1
End If
ไม่ทราบว่าจะต้องแก้ไขสูตรอย่างไรครับ