vba - 测试第一个字母是否大写

Question

我想知道是否有一种方法可以测试表格单元格中的第一个字母是否大写，而无需撕掉该字母并将其与一个充满 CHR 代码的数组进行比较，或者为每个单元格循环 26 个 instr() 函数。

基本上，我们有客户向我们发送表格，其中存根单元格（最左侧）在一行中包含部分句子，然后在下面的行中包含其余部分，缩进。

问题是我不能使用缩进来测试这些场景，因为其他单元格由于其他原因而缩进。我需要根据这些场景应用行阴影，我很难找到一种有效的方法来测试这一点。

此代码返回 1

MsgBox (StrComp("This sentence continues", UCase("This sentence continues"), vbBinaryCompare))

此代码也返回 1

MsgBox (StrComp("this sentence continues", UCase("This sentence continues"), vbBinaryCompare))

score 4 · Accepted Answer

假设您已经将字符存储在字符串中strFirst：

StrComp(strFirst, UCase(strFirst), vbBinaryCompare)

如果字母为大写，则返回 0。

如果您还没有文本中的第一个字符，那么您需要使用Left(string, 1).

1 回答 1