excel 判断字体颜色及判断大小写字母


来源:高中英语教学交流网
发布时间:2015-02-01 14:34:00
查看次数:

内容提要:excel 判断字体颜色及判断大小写字母


判断字体颜色宏代码
Sub 按钮1_Click()
    Dim arr(1 To 1000, 1 To 3), X, K%
    For Each X In Range("b1:d11")
        If Len(X) <> 0 Then
            If X.Font.ColorIndex <> 1 Then
                K = 1 + K
                If K = 1 Then
                    arr(K, 1) = "有色数字值"
                    arr(K, 2) = "地址"
                    arr(K, 3) = "颜色号"
                End If
                arr(K + 1, 1) = X.Value
                arr(K + 1, 2) = X.Address
                arr(K + 1, 3) = X.Font.ColorIndex
            End If
        End If
    Next
    Range("E1").Resize(K + 1, 3) = arr
End Sub


判断单元格第一位是否为字母的(以A1单元格为例)
=IF(A1="","",IF(AND(CODE(A1)>64,CODE(A1)<123), "第一位为字母","第一位不为字母"))

判断第一位是否为大小写字母的
=IF(A1="","",IF(AND(CODE(A1)>64,CODE(A1)<123), IF(CODE(A1)<91,"第一位为大写字母","第一位为小写字母"), "第一位不为字母"))

相关文章
·一分钟彻底清除电脑中的垃圾10-11
·Word批量删除自选图形的办法!07-16
·解决windows7 保存文件"权限"问题11-22
·如何一次性同时打开多个Excel工作簿10-30
·自动双面打印操作说明10-14
·视频加速脚本TimerHooker (计时器掌控者)06-17
·我的电脑图标不见了,怎么找回来!09-14
·相片裁剪操作方法10-21
·word 如何自动生成目录08-02
·分类汇总后复制的问题05-27
最新文章
阅读排行