excel - 如何在单元格中显示与单元格文本不同的文本？

Question

我有一个 Excel 工作表，其中一侧有两个单元格，其中一个包含一个两位数的数字，前导零格式化为文本，另一个包含解释。在另一边，我有另一个空单元格。我希望在该空单元格中显示说明文本，但该单元格应具有两位数，该数字在内部被格式化为文本作为其值。我让它使用数字作为值，但不能使用格式化为文本的数字。

我已经尝试过该.Text标签，但它总是会引发语法错误。我怀疑这是因为.NumberFormat标签及其格式。[免责声明：我没有自己编写此代码，但我必须修复它。]

Sub UserDefinedFormatting()

' Delete old output:

Range("G6:G500").ClearContents
Range("G6:G500").NumberFormat = "Text"

' Loop for new output:

For n = 5 To 200

    If Cells(n, 3).Value <> 0 Then

    Value_actual = Cells(n, 3).Value
    Value_shown = Cells(n, 4).Value

    Cells(n, 7).Value = Value_shown
    Cells(n, 7).NumberFormat = "[=" & Value_actual & "]""" & Value_shown & """;General"
    Cells(n, 7).Value = Value_actual

    End If

Next n

End Sub

期望的结果：

| I1 |  I2  |      Output     |
| 05 | Test | Test[Value: 05] |

实际结果：

| I1 |  I2  |     Output     |
| 05 | Test | Test[Value: 5] |

不知何故，它总是带走前导零，这是必不可少的。

标签： excelvba