测试看第一个字母是否大写

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))

Answer 1

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

StrComp(strFirst, UCase(strFirst), vbBinaryCompare)

如果字母是大写的，

将返回0。

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