snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = Range("B5").Address Then
Dim MyInsTel As String
'MyInsTel คือตัวแปรที่เก็บฟังค์ชั่น vlookup ครับ
'ถ้าใช้ vlookup ใน sheet โดยวิธีปกติ ไม่มีปัญหา
'เบอร์ไหนมี 0 ก็มาปกติ เบอร์ไหนไม่มี ก็คือไม่มี
'แต่พอเอามาใช้ในนี้ด้วย vba 0 ที่นำหน้าหายหมดเลย
'ต้องแก้ยังไงครับ
MyInsTel = [InsTel]
Range("G5") = MyInsTel
End If
End Sub