zoukankan      html  css  js  c++  java
  • Excel VBA记录

    -----------快捷键----------

    函数等提示(默认):ctrl+j

    注释:上单引号'

    设置单元格为空可以用:empty/null

    -----------基础语法---------

    基本数据类型

     数据类型  类型标识符  字节
    String  字符长度(0-65400)  
    字节型  Byte   无
    布尔型 Boolean  无
    整数型 Integer  %   2  
     长整数型 Long  &
     单精度型 Single !   4  
     双精度型 Double  # 8  
    日期型 Date    无  8 公元100/1/1-99/12/31 
     货币型 Currency
     小数点型 Decimal    14 
    变体型 Variant    无 以上任意类型,可变  
     对象型 Object   

    变量定义语句及变量作用域 

      Dim 变量 as 类型 '定义为局部变量,如 Dim xyz as integer
      Private 变量 as 类型 '定义为私有变量,如 Private xyz as byte
      Public 变量 as 类型 '定义为公有变量,如 Public xyz as single
      Global 变量 as 类型 '定义为全局变量,如 Globlal xyz as date
      Static 变量 as 类型 '定义为静态变量,如 Static xyz as double

    定义数组
      Dim 数组名([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower 缺省值为 0;用Redim语句来重新改变数组大小, 原来数组内容可以通过加preserve关键字来保留。
      例如:Dim array1()  as  double :  Redim array1(5) : array1(3)=250 :  Redim preserve array1(5,10)

    循环语句
      For counter = start To end [Step step] 'step 默认为1
        [statements] 
        [Exit For] 
        [statements] 
      Next [counter]
      例如:
        For x = 2 To 10 Step 2
          MsgBox (x) ’MsgBox为弹出显示框
        Next x

    -----------一些操作---------

     1、将单元格列/行放入数组
      Dim arr As Variant
      arr1 = Range("e43:e9020") ’Range("单元格区域")

    2、将数组写入单元格
      Dim arr As Variant
      arr1 = Range("e43:e9020")
      '一些操作 
      Range("e43:e9020") =arr1

    3、删除多行(奇数行/偶数行)  

    Sub 删除行()
    '
    ' 删除行 宏
    ' 删除空白的行
    '
    
    '
        Dim nRows As Long
        Dim i As Long
        
        With Worksheets("sheet2")
            nRows = .UsedRange.Rows.Count
            For i = nRows To 10 Step -1
                If i Mod 2 = 0 Then 'Mod 2 =1则为删除奇数行
                    .Rows(i).Delete
                End If
            Next
        End With
    End Sub                        
  • 相关阅读:
    简单的MsChart使用与遇到的麻烦
    SQLServer中case when 与列拼接
    关于集成单点登录问题
    IIS部署网站后,只有本服务器才能登录
    获取本周的周一日期与本周的周日日期
    34个漂亮的应用程序后台管理系统界面(系列二)
    2011年最佳免费 PSD 用户界面素材揭晓
    编程你使用快捷键了吗?
    汉字转全拼音函数优化方案(SQLServer),值得你看看
    WinForm企业应用框架设计【四】动态创建业务窗体
  • 原文地址:https://www.cnblogs.com/GYoungBean/p/3507276.html
Copyright © 2011-2022 走看看