如果条件检查单元格中的内容是否右对齐不起作用

Question

我有一个从 pdf 文件复制和粘贴的数据，然后使用 'texttocolumns' 拆分。我使用此数据将特定信息提取到另一个 excel。所有这些都是使用 vba.

完成的

作为其中的一部分，我使用以下代码检查单元格 A12（示例）中的内容是否右对齐。尽管 "appears" 单元格中的内容右对齐，但 vba 不会显示结果为 'True'。

If Sheets("Test").Range("A12").HorizontalAlignment = xlRight Then
''Do something
End if

测试数据

Answer 1

数字默认右对齐

所以你可能想用这个

With Sheets("Test").Range("A12")
    If .HorizontalAlignment = xlRight Or (IsNumeric(.Value) And .HorizontalAlignment = xlGeneral) Then
        MsgBox cell.Value
    End If
End With

如果条件检查单元格中的内容是否右对齐不起作用

If condition to check if content in cell is right aligned not working

excel

vba

alignment

right-align