Snasui Excel Forum

Code: Select all

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