VBA 第8课 Excel单元格的颜色,格式的设置
2015-10-04 22:46
411 查看
Sub 颜色() Dim x As Integer Range("a1:b60").Clear For x = 1 To 56 Step 1 Range("a" & x) = x Range("b" & x).Interior.ColorIndex = x '填充颜色 Range("a" & x).Font.ColorIndex = x '字体颜色 Next End Sub
------------------------------------------------------------------------------------------------
'1.判断是否为空单元格 Sub d1() 'If Range("a1") = "" Then 'If Len([a1]) = 0 Then If VBA.IsEmpty([a1]) Then [b1] = "空值" End If End Sub
'2.判断是否为数字 Sub d2() If VBA.IsNumeric([a1]) Then [b1] = "数字" Else [b1] = "不是数字" End If End Sub
'3.判断是否为文本 Sub d3() If VBA.TypeName([a1].Value) = "String" Then [b1] = "文本" Else [b1] = "不是文本" End If 'If Application.WorksheetFunction.IsText([a1]) Then '[b1] = "文本" 'Else '[b1] = "不是文本" 'End If End Sub
'4.判断是否为汉字 Sub d4() If [a1] > "z" Then [b1] = "汉字" End If End Sub
转载请注明作者与出处:http://blog.csdn.net/u013511642 王小涛_同學
相关文章推荐
- Vagrant 启动报错:the "vboxsf" file system is not available
- VB.net视频打开方法
- VBA第7课 编写自定义函数
- Ubuntu vbox xp虚拟机共享文件夹
- VB2005 Project中Namespace的一个问题
- 【VBS教程】:VBS简介及如何编译VBS程序等
- 【VBS教程】:作业1
- 【VBS教程1】:基本输入输出
- 历年至今TVB剧集目录(持续更新...我已看过的推荐)
- 【来日复制粘贴】输出匹配到的字符串
- vs开发调用窗体的方法
- 张亦Excel VBA——基础篇
- 整理BOM时写的关于拆分单元格的VB代码
- VB 获取文件版本
- 软件测试人员需要精通的开发语言(1)--- VBScript
- vba中的查找匹配函数
- VB.NET监视启动过程具体步骤介绍
- OpenGL3.0教程 第九课:VBO索引
- VBS 调用 HTA 实现进度条加载
- OBPS开发平台——导入功能vb代码解析