การ Update data with multiple items with VBA
Posted: Thu Nov 02, 2017 7:11 pm
สวัสดีครับ ผมได้ตัวอย่างมาจาก Excel Tips and Tricks by Santipong Nasui แต่ต้องการ update ค่าที่เป็นข้อความ อยากให้ช่วยแนะนำด้วยครับ
ตัวอย่าง Code ครับCode: Select all
'Other code
With Sheets("sheet3")
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 = CLng(t(0))
rt.Offset(0, 2).Value = CLng(t(1))
rt.Offset(0, 3).Value = CLng(t(2))
rt.Offset(0, 4).Value = t(3)
End If
Next rt
End With
'Other code