使用VBA往单元格写入数字后令其左上角显示绿色三角

【问题描述】如何使用VBA往单元格写入数字后令其左上角显示绿色三角？

【小千解答】数字单元格左上角显示绿色三角，说明该数据为“文本型数字”，可以使用以下3种方法：

方法1：数字之前加单撇

Sub xqoffice()
    Range("B2").Value = "'1"
End Sub

方法2：先将单元格格式改成“文本”，再输入经CStr函数转换后的数字。

Sub xqoffice2()
    Range("B4").NumberFormatLocal = "@"
    Range("B4").Value = CStr(100)
End Sub

方法3：定义一个字符串型变量，将数字赋值给该变量，再将单元格格式改成“文本”，写入该变量的值。

Sub xqoffice3()
    Dim xqVal As String
    xqVal = 9527
    Range("B6").NumberFormatLocal = "@"
    Range("B6").Value = xqVal
End Sub