VBA 第12课 插入排序
2015-10-05 23:38
435 查看
'插入排序,从小到大
Sub 插入排序()
Dim arr, i, temp, y
arr = Range("a1:a18")
For i = 2 To UBound(arr)
temp = Cells(i, 1)
Range("a" & i).Interior.ColorIndex = 3
Range("a" & i).Interior.ColorIndex = ylNone
For y = i - 1 To 1 Step -1
Range("a" & y).Interior.ColorIndex = 5
Range("a" & y).Interior.ColorIndex = xlNone
If Cells(y, 1) >= temp Then
Cells(y + 1, 1) = Cells(y, 1)
Range("a" & y).Interior.ColorIndex = xlNone
Cells(y, 1) = temp
End If
Next y
Next i
End Sub
转载请注明
作者与出处:http://blog.csdn.net/u013511642 王小涛_同學
相关文章推荐
- VBA 第11课 数组,取特定行数据
- 名字与地址转换getservbyname 与 getservbyport函数
- VBA 第10课 禁止关闭工作薄
- VBA 第9课 合并单元格
- VBA 第8课 Excel单元格的颜色,格式的设置
- 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