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

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