Page 1 of 1
เขียน VBA Update multiple items in the same time #V0010 แล้วค่าไม่เปลี่ยนครับ
Posted: Sun Aug 25, 2019 4:58 pm
by surasak_p
เขียน VBA ตาม link Update multiple items in the same time #V0010 Runแล้วทำไมค่าไม่เปลี่ยนครับ
Re: เขียน VBA Update multiple items in the same time #V0010 แล้วค่าไม่เปลี่ยนครับ
Posted: Sun Aug 25, 2019 6:58 pm
by snasui
เนื่องจากคอลัมน์ B ของทั้งสองชีตใช้ตัวอักษรเล็กใหญ่ไม่เหมือนกันครับ
Re: เขียน VBA Update multiple items in the same time #V0010 แล้วค่าไม่เปลี่ยนครับ
Posted: Sun Aug 25, 2019 7:33 pm
by surasak_p
ทำได้แล้วครับ ขอบคุณครับ แต่ถ้าแก้ค่าที่ Sheet1ที่ C2:D2 มีข้อความเป็น text ด้วย ต้องแก้ไขเพิ่มยังไงครับ
Re: เขียน VBA Update multiple items in the same time #V0010 แล้วค่าไม่เปลี่ยนครับ
Posted: Sun Aug 25, 2019 7:51 pm
by snasui
Code นั้นรองรับการแก้ที่คอลัมน์ C:D ของ Sheet1 อยู่แล้ว ไม่ทราบว่าได้ลองแก้ไขตัวเลขแล้วหรือไม่ แก้จากไหนไปไหน ปลายทางแสดงผลอย่างไร ตรงกับแที่แก้หรือไม่ครับ
Re: เขียน VBA Update multiple items in the same time #V0010 แล้วค่าไม่เปลี่ยนครับ
Posted: Sun Aug 25, 2019 8:07 pm
by surasak_p
ลองแก้แล้ว Run error ครับ ตาม file แนบครับ
Re: เขียน VBA Update multiple items in the same time #V0010 แล้วค่าไม่เปลี่ยนครับ
Posted: Sun Aug 25, 2019 9:02 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
'Other code
For Each rt In .Range("b2", .Range("b" & .Rows.Count).End(xlUp))
If d.exists(rt.Value) Then
t = Split(d.Item(rt.Value), "|")
rt.Offset(0, 1).Value = IIf(IsNumeric(t(0)), CLng(t0), t(0))
rt.Offset(0, 2).Value = IIf(IsNumeric(t(1)), CLng(t0), t(1))
End If
Next rt
'Other code
Re: เขียน VBA Update multiple items in the same time #V0010 แล้วค่าไม่เปลี่ยนครับ
Posted: Sun Aug 25, 2019 9:18 pm
by surasak_p
ทำได้แล้วครับ ขอบคุณมากๆครับ