【问题描述】如何使用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