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,"第一位为大写字母","第一位为小写字母"), "第一位不为字母"))
- 相关文章
- ·ASP获取真正的IP地址 兼容代理服务器02-09·SQL SERVER数据库中快速找主表11-10·发送手机文件到电脑的方法11-01·自动双面打印操作说明10-14·文件夹设置为系统隐藏文件11-19·内网穿透工具ngrok09-10·WDS无线组网、无线桥接的应用01-13·windows 2008 R2各版本激活180天05-03·一分钟彻底清除电脑中的垃圾10-11·将纸质版文字材料转为电子版12-23
- 最新文章
- ·一列数据轻松转换成多行多列02-05·MPC-HC如何加速播放不变音调?01-06·利用打印机迁移功能实现三个步骤快速批量安装所有网10-27·视频号视频的四种下载方法07-07·Win10系统开机启动文件夹在哪里?04-16·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·Excel 进行学生成绩统计分析03-13·Win10电脑的一些安装提示12-03·我的电脑图标不见了,怎么找回来!09-14·不同电脑文件字体改变了的解决方法12-15·Word高级替换技巧03-05·巧妙管理 为打印机减负05-25·巧用Excel数组公式统计各班优秀人数04-24
2008-2025 | www.zshunj.cn |www.yykz.net
点击这里识别二维码关注公众号
点击这里识别二维码关注公众号