เขียน VBA Update multiple items in the same time #V0010 แล้วค่าไม่เปลี่ยนครับ

[surasak_p]

เขียน VBA ตาม link Update multiple items in the same time #V0010 Runแล้วทำไมค่าไม่เปลี่ยนครับ

[snasui]

เนื่องจากคอลัมน์ B ของทั้งสองชีตใช้ตัวอักษรเล็กใหญ่ไม่เหมือนกันครับ

[surasak_p]

ทำได้แล้วครับ ขอบคุณครับ แต่ถ้าแก้ค่าที่ Sheet1ที่ C2:D2 มีข้อความเป็น text ด้วย ต้องแก้ไขเพิ่มยังไงครับ

[snasui]

Code นั้นรองรับการแก้ที่คอลัมน์ C:D ของ Sheet1 อยู่แล้ว ไม่ทราบว่าได้ลองแก้ไขตัวเลขแล้วหรือไม่ แก้จากไหนไปไหน ปลายทางแสดงผลอย่างไร ตรงกับแที่แก้หรือไม่ครับ

[surasak_p]

ลองแก้แล้ว Run error ครับ ตาม file แนบครับ

[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

[surasak_p]

ทำได้แล้วครับ ขอบคุณมากๆครับ