|
 | 作者: lgywan [lgywan]
 论坛用户 |
登录 |
| 最近学习EXCEL编程的一些东西，拿出来和大学分享一下，还请大家多多指点： Sub z() Range("a1").Cells(1, 1) = "111111" '在A1上 For y = 1 To 1000 For s = 1 To 7 Range("a1").Cells(y, s) = "" Rows(y).Select Selection.Interior.ColorIndex = xlNone '清除着色 Next s Next y '清屏 b = 0 Range("a1").Select For i = 1 To 1000 a = Rnd() * 100 a = Round(a, 3) '四舍五入到三位 ActiveCell(0 + i, 1) = a '连续从1到下100格，给随机数，（1，1）为第一行，第一列 ActiveCell(0 + i, 2) = a * Rnd() ActiveCell(0 + i, 3) = a * Rnd() * Rnd() ActiveCell(0 + i, 4) = a * Rnd() * Rnd() * Rnd() Next i Range("a1").Select For p = 1 To 100 If Range("a1").Cells(p, 1) > 50 Then '当A列和B列的数满足大于50小于10时就 Rows(p).Select With Selection.Interior .ColorIndex = xlNone End With Selection.Copy '考贝 Sheets("Sheet2").Select '选中sheet2页 Sheets("sheet2").Rows(b + 1).Select '选中sheet2页里的一行 ActiveSheet.Paste '粘上 Selection.Interior.ColorIndex = xlNone '取消着色 Sheets("sheet1").Select '选中sheet1 b = b + 1 End If Next p Range("E101").Formula = b Rows("15:16").Select '选中15，16行 End Sub |
| 地主 发表时间: 04-08-21 22:51 |
 | 回复: bluecat_ [bluecat_]  论坛用户 |
登录 |
|
是VB把 |
| B1层 发表时间: 04-08-21 22:52 |
| 回复: lgywan [lgywan] 论坛用户 |
登录 |
|
鼓掌欢迎 |
| B2层 发表时间: 04-08-23 22:51 |
 | 回复: myjian [myjian]  论坛用户 |
登录 |
|
MS的OFFICE系列软件都支持VB脚本,也就是宏的使用 反正从我看来,它们里面带的那个VB脚本编辑器和VB没什么大的不同..... 也可以用窗体,也可以用控件,什么都行,晕 不过在EXCEL里用这些自制模块来帮助处理数据是再好不过了,呵呵 |
| B3层 发表时间: 04-08-24 01:47 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: EXCEL编程的自学