excel - VBA Worksheet_Change（ByVal Target As Range）

Question

我正在尝试通过字符串更改变量的值，但它不允许，例如，当我在下拉列表中选择 2 时，我希望出现 2/2 但出现 1

    Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    
    selectedNa = Target.Value
    If Target.Column = 2 Then
        selectedNum = Application.VLookup(selectedNa, Worksheets("Descrição").Range("ClassVEE"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If

标签： excelvba

Answer 1

尝试

Target.Value = "'" & selectedNum