论坛: 编程破解 标题: EXCEL编程的自学 复制本贴地址    
作者: 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号