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

Question

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

作为其中的一部分，我有以下代码来检查单元格A12（示例）中的内容是否正确对齐。虽然单元格中的内容“显示”右对齐，但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