zoukankan      html  css  js  c++  java
  • excel vba

    excel 开发者工具 visual Basic (文件格式需要保存成带宏(动作的录制 一般用于重复的工作)的)

    '子过程
    Sub aa()
    ''对象方法
    'Range("a1:a10").Select
    '
    ''常量 Const 变量 Dim 定义
    'Const Pi = 3.14
    'Dim a As Integer
    'a = 200
    'Debug.Print a * Pi
    
    '循环+if
    'Do
    'Dim a As Integer
    'a = a + 1
    'If a > "10" Then
    'Exit Do
    'End If
    'Loop
    
    '循环+while
    'Dim a As Integer
    'a = 1
    'Do While Cells(a, 1) <> ""
    'If Cells(a, 1) >= 10 Then Cells(a, 3) = "b"
    'a = a + 1
    'Loop
    
    '循环+until 注意字符连接利用 & (连接前后有空格)
    'Dim a As Integer
    'a = 1
    'Do Until Cells(a, 1) = ""
    'Sheet1.Range("a" & a & ":c" & a & "").Interior.ColorIndex = 7
    'a = a + 2
    'Loop
    
    'foreach 操作对象 Next i 计数变量
    'Dim arn As Range
    'For Each arn In Sheet1.Range("a1:a5")
    'If arn.Value > 20 Then arn.Interior.ColorIndex = 3
    'Next
    'End Sub
    
    'foreach 操作对象 Next i 计数变量找到对应满足的位置
    For i = 1 To 5
    If Cells(i, 1) = 20 Then Exit For
    Next i
    MsgBox i
    End Sub
    
    'end 结束一个过程或块 End、 End Function、End If、End Select
    'exit 是退出当前语句 Exit Do、Exit For、Exit Function、Exit Sub
    
    
    
  • 相关阅读:
    端午节习俗
    彩绘漂亮MM集
    高效使用数码相机的诀窍
    项目管理缩略语
    数码相机如何当做摄像头(文字版)
    标签式按纽
    显示一个Form中的所有内容
    生活中要常常鼓励别人
    青苹果论坛重新开放
    第一次爱的人
  • 原文地址:https://www.cnblogs.com/leifonlyone/p/13341892.html
Copyright © 2011-2022 走看看