摘要:
一、 查找 ' 调用工作表函数查找 Sub t1() '判断是否存在,并查找所在行数 Dim hao As Integer Dim icount As Integer icount = Application.WorksheetFunction.CountIf(Sheets("库存明细表").[b: 阅读全文
摘要:
一、END语句 '作用:强制退出所有正在运行的程序。 '二、Exit语句 '退出指定的语句 1、Exit Sub Sub e1() Dim x As Integer For x = 1 To 100 Cells(1, 1) = x If x = 5 Then Exit Sub End If Next 阅读全文
摘要:
一、什么是变量? '所谓变量,就是可变的量。就好象在内存中临时存放的一个小盒子,这个小盒子放的什么物体不固定。 Sub t1() Dim X As Integer 'x就是一个变量 For X = 1 To 10 Cells(X, 1) = X Next X End Sub 二、小盒子里可以放什么? 阅读全文
摘要:
excel 中颜色获取 Sub t1() Dim hong As Integer, lv As Integer, lan As Integer hong = 255 lv = 255 lan = 255 Range("g1").Interior.Color = RGB(hong, lv, lan) 阅读全文