精华内容
下载资源
问答
  • 本来上一篇只是想简单介绍一下对象,小心把常用对象也写了,内容可能比较多,不过没关系,大致看看就行了,看下去也没事,整个“基础篇”都是做了解就行,真要学东西还是自己...不同的数据类型占用的内存空间...

    本来上一篇只是想简单介绍一下对象,不小心把常用对象也写了,内容可能比较多,不过没关系,大致看看就行了,看不下去也没事,整个“基础篇”都是做了解就行,真要学东西还是自己上手做东西,用的多了就记住了。

    这次简单介绍一下数据类型。

    数据类型是什么?

    首先要了解什么是数据类型,就像一篇文章可能包括“中文”、“英文”、“数字”一样,在程序中数据也分为“文本”、“数值”和日期等类型。不同的数据类型占用的内存空间不同,运算也不相同。(一般不用考虑占用空间的问题。)

    在VBA中定义数据类型一般用Dim表示。

    Dim表示变量,VBA中也可以用Const定义常量。变量和常量的区别是变量在定义之后可以改变。常量是定义之后就不能再改变了。如果不知道用啥就用变量就可以。

    Sub HeWishTest()
        '定义一个文本变量 赋值为 "何未生"
        Dim VarStr AS String
        VarStr = "何未生"
        '定义一个文本常量 赋值为 "何未生"
        Const ConstStr AS String = "何未生"
        '变量是可以改变的
        VarStr = "改变"
        '现在VarStr就成了 "改变" 了
    End Sub

    String

    字符串类型,表示文本内容,用英文双引号引起来。

    Sub HeWishTest()
        '定义一个文本变量 赋值为 "何未生"
        Dim VarStr AS String
        VarStr = "何未生"
        '文本变量可以用加号拼接
        VarStr = VarStr + "HeWish"
        'VarStr改为 "何未生HeWish"
        '在立即窗口打印结果 何未生HeWish
        Debug.Print VarStr
    End Sub

    Long

    长整型数值,可以表示-2147483648 ~ 2147483647之间的整数。除了Long,VBA还有个Integer(整型数值)可以表示整数,可以表示的区间为-32768 ~ 32767。使用时如果不能保证数据不会超出32767,请使用Long类型。注意数值型不要用引号引起,直接写就行。

    Sub HeWishTest()
        '定义一个长整型变量 赋值为 65536
        Dim VarLong AS Long
        VarLong = 65536
        '数值型可以用加减乘除直接运算 计算除以2
        VarLong = VarLong/2
        '在立即窗口打印结果 32768
        Debug.Print VarLong
    End Sub

    Double

    双精度浮点型。在表示负数时可以表示: -1.79769313486231E308 ~ -4.94065645841247E-324;在表示正数时可以表示: 4.94065645841247E-324 ~ 1.79769313486231E308。

    与之对应的是Single(单精度浮点型),在表示负数时可以表示: -3.402823E38 ~ -1.401298E-45;在表示正数时可以表示: 1.401298E-45 ~ 3.402823E38

    双精度浮点型可以表示小数点14位,单精度浮点型可以表示小数点后6位,多余的会四舍五入进位。

    Sub HeWishTest()
        '定义一个双精度浮点数 赋值为 1.23456789
        Dim VarDouble AS Double
        VarDouble = 1.23456789
        '同样可以用加减乘除直接运算 计算除以2
        VarDouble = VarDouble/2
        '在立即窗口打印结果 0.617283945
        Debug.Print VarDouble
        
        '定义一个单精度浮点数 赋值为 1.234567
        Dim VarSingle AS Single
        VarSingle = 1.23456789
        '在立即窗口打印 1.234568
        Debug.Print VarSingle
        '同样可以用加减乘除直接运算 计算除以2
        VarSingle = VarSingle/2
        '在立即窗口打印结果 0.6172839 猜测可能是因为没有后续运算,导致数值类型未正确识别的Bug
        Debug.Print VarSingle
        '加1
        VarSingle = VarSingle + 1
        '在立即窗口打印结果 1.617284 保留小数点后6位数
        Debug.Print VarSingle
    End Sub

    Boolean

    布尔型。只有两个选项,真和假,要么“True”要么“False”。

    Sub HeWishTest()
        '定义一个布尔型 赋值为 true
        Dim VarBool As Boolean
        VarBool = True
        '如果为真则打印“真”,否则打印“假”
        If VarBool Then
            Debug.Print "真"
        Else
            Debug.Print "假"
        End If
    End Sub

    Date

    日期类型,可以表示日期和时间。可以表示的日期范围是100年1月1日 ~ 9999年12月31日;可以表示的时间范围是:0:00:00 ~ 23:59:59。

    之前面像对象那篇提过Range的Value属性和Value2属性的区别,其中Value属性读取到的 设置为日期格式的 单位格内容 会读取为Date类型。

    Sub HeWishTest()
        '定义一个日期型变量,读取A1单元格的日期
        Dim VarDate As Date
        VarDate = Range("A1").Value
        '在立即窗口打印结果  2020/8/23
        Debug.Print VarDate
        
        '直接赋值日期的话要加双引号
        VarDate = "2020/8/23"
        '分别打印年、月、日   
        Debug.Print Year(VarDate)
        Debug.Print Month(VarDate)
        Debug.Print Day(VarDate)
    End Sub

    其他

    上述五种就是VBA中最常用的数据类型,在不熟悉的情况下Long和Integer就用Long;Double和Single就用Double,可以避免一些错误,等熟悉了之后再做区分也可以。

    除了上面的几种之外还有Object类型以及枚举Enum型的,这两种我都没用过,不影响写出完整的程序,感兴趣的可以自己去找资料看看。还有Variant类型,这个不建议使用。

    结语

    其实VBA在写的时候是可以不声明的,可以直接用,但是为了代码的可读性还是建议在代码块开始处定义好变量。当然,也可以只声明变量不声明类型。

    '在模块最前面输入 Option Explicit 可以开启强制声明变量,在存在 没有声明的变量 时会报错
    Option Explicit
    
    Sub HeWishTest()
        '不声明直接用 默认可以直接使用,在有“Option Explicit”时会提示“变量未定义”。
        VarDate = "2020/8/23"
        
        '只声明变量,不声明类型
        Dim VarStr
        VarStr = "测试"
        
        '同时声明多个变量,用英文逗号隔开即可
        Dim VarStr2 AS String,VarDouble AS Double
        VarStr2 = "测试2"
        VarDouble = 123.456
        
    End Sub
    

    整个系列在语雀知识库同步,感觉语雀上的目录更明确一些,有兴趣可以去看看

    VBA从入门到放弃 · 语雀www.yuque.com
    c7b78d61cfea0d10573814cffea4f986.png
    展开全文
  • 估计很多销售和我一样,一到月底都会烦恼一次。原因就是要整理很多数据,做销售报告。客户越多,产品型号越多,工作就越多。曾经有好多次,想聘请...下载数据库里面包括很多我需要信息,而且有时我需要信息...

    估计很多销售和我一样,一到月底都会烦恼一次。原因就是要整理很多数据,做销售报告。客户越多,产品型号越多,工作就越多。曾经有好多次,想聘请一个临时工帮我整理数据。这个烦恼困扰了我很多年,终于在这个漫长的假期中,通过闭关修炼,练成了一键整理数据大法。

    问题说明:

    每月月底,我需要从公司内网下载销售数据,按照产品的类型和销售的名字统计销售金额。下载的数据库里面包括很多我不需要的信息,而且有时我需要的信息却没有。比如下面表格中,美国和德国客户的数据我不需要,在每一行的末尾,我需要增加三列,分别是季度总销售额,产品类型和销售经理姓名。

    客户 产品型号 数据类型 1月 2月 3月
    中国客户A A10001 预测 1000 1000 1000
    中国客户A A10001 实际销售额 1000 1000 1000
    中国客户B A10001 预测 1000 1000 1000
    中国客户B A10001 实际销售额 1000 1000 1000
    中国客户C A10001 预测 1000 1000 1000
    中国客户C A10001 实际销售额 1000 1000 1000
    美国客户C A10001 预测 1000 1000 1000
    美国客户C A10001 实际销售额 1000 1000 1000
    德国客户C A10001 预测 1000 1000 1000
    德国客户C A10001 实际销售额 1000 1000 1000

    去除不需要的数据:

    去除某些不需要的数据, 可以在Data中采用Filter,或者数据视图来进行过滤。因为需要过滤的数据很多,每次都需要勾选很多次。而且容易漏选。

    增加其他数据

    • 季度总销售额:要在每行末尾,手工输入求和公式,计算出每一个产品型号每个季度的销售。
    • 产品类型:首先通过数据过滤功能,把某一类型的产品筛选出来,统一在每行末尾填加产品类型。然后依次对其他类型的产品进行重复操作。
    • 销售经理姓名:首先通过数据过滤功能,把某销售经理的客户筛选出来,统一在每行末尾,填加销售经理的姓名。然后依次对其他销售经理进行相同的操作。

    每次去除数据和增加数据,一般需要30分钟左右的时间。既费眼费力费时又容易出错。

    要解决上面这些问题,有几个解决方案:

    1. 要求公司的IT部门,按照你的要求,提供相关选项,下载时,可以按照选项进行下载。这个方案直接就被IT无情地拒绝了。可能是我的颜值不够高吧。没办法,只能想其他办法。
    2. 用VBA来编写一个脚本,自动进行数据处理。

    下面来介绍一下如何用VBA自动处理这些数据的步骤:

    • 打开Excel文件
    • 在Excel的File菜单中,选择Option, 在Option的Cusomize Ribbon中最右边的界面中选中Developer。
      在这里插入图片描述 点击Ok按钮,然后菜单上会出现Developer,当鼠标移到Developer菜单上,会显示下面子菜单。

    在这里插入图片描述点击Insert菜单,弹出控件按钮选择,选择左上角第一个按钮,在Excel表格的空白处,可以画出一个按键,同时弹出下面窗口,在Macro name中把宏的名字改为DataProcessing,然后点击New按钮。

    在这里插入图片描述Excel会弹出下面脚本编写窗口。在这个窗口中,已经自动生成了一个空的函数,名字叫DataProcessing。接下来我们需要在这个空的函数中加入代码。

    在这里插入图片描述按ALT+F11键可以在Excel表格和程序界面窗口中来回切换,或者在程序界面中点击File菜单下方的第一个excel标记的图标,也可以切换到excel窗口,在excel窗口中,在Developer下面的子菜单中,点击View Code也可以切换到程序窗口。
    好的,我们按ALT+F11键,切换到Excel窗口,发现窗口中已经出现了一个按键。

    在这里插入图片描述鼠标挪到这个按键上方,点击鼠标右键,在Edit菜单中,可以修改按钮上的文字,我们把它改成Data Processing。
    再次点击鼠标右键,可以修改这个按钮的属性。比如在Font中,可以修改按键上文字的字体和大小,颜色。在Alignment中可以修改对齐方式,在Size中可以修改按键大小。

    在这里插入图片描述在Format窗口的Properties中,选择第三项:按键不会随着Excel中单元格的变化而变化。
    在这里插入图片描述在Excel表格中,我们需要按照步骤处理数据:

    1. 删除掉客户名称为NewYork和Paris的这一行的数据。
    2. 删除掉Type中Forecast的这一行的数据。
    3. 在数据表格的最后一列,增加4列数据,分别是Q1, Q2, Q3, Q4四个季度的每个客户每个产品的总的销售额。
    4. 在数据表格的最后一列中,增加1列数据,显示每行产品名称所属的产品线。
    5. 在数据表格的最后一列中,增加1列数据,显示负责该行客户的销售人员姓名。
    6. 在数据表格最后一列后面,按照产品线,列出每个季度的销售额。
    7. 在数据表格最后一列后面,按照销售人员姓名,列出每个季度的销售额。

    根据上面的要求,我们切换到程序设计窗口。编写代码

    1. 删除掉客户名称为NewYork和Paris的这一行的数据,以及删除掉Type中Forecast的这一行的数据:
      首先定义了两个变量;
      接下来把这个表格中有数据的最大行数和最大列数存在这个变量中;
      创建一个循环结构,从最大行数开始查找每行中客户名称是否有NewYork和Paris,还有Type中是否有Forecast,如果存在的话,删除该行。
    	Dim RowNumber As Integer
        Dim ColNumber As Integer
        Dim PL_Revenue(3) As Long
        Dim Sales_Revenue(3) As Long
        
        
        RowNumber = Sheet1.UsedRange.Rows.Count     'Get the rows of the active sheet
        ColNumber = Sheet1.UsedRange.Columns.Count  'Get the columns of the active sheet
               
        For Row = RowNumber To 2 Step -1 'Must delete from the big to small!!!
        '1. Delete the rows which the customer name in Column 1 is "NewYork" or "Paris" or the type in Colume 3 is "Forecast"
            If InStr(Cells(Row, 1), "NewYork") + InStr(Cells(Row, 1), "Paris") + InStr(Cells(Row, 3), "Forecast") Then
                Rows(Row).Delete
            End If
        Next Row
    

    编写完代码以后,然后我们再切换到Excel界面中,点击按键,发现数据已经删除成功。如下图所示:
    在这里插入图片描述2. 在数据表格的最后一列,增加4列数据,分别是Q1, Q2, Q3, Q4四个季度的每个客户每个产品的总的销售额。
    在上面代码后面,加入下面代码:

    	Cells(1, ColNumber + 1) = "Q1" 'Add one new column after the last column.
        Cells(1, ColNumber + 2) = "Q2" 'Add one new column after the last column.
        Cells(1, ColNumber + 3) = "Q3" 'Add one new column after the last column.
        Cells(1, ColNumber + 4) = "Q4" 'Add one new column after the last column.
        
        RowNumber = Sheet1.UsedRange.Rows.Count     'Get the rows of the active sheet
            
        For Row = RowNumber To 2 Step -1
            ' calculate Q1 total revenue
            Cells(Row, ColNumber + 1).Value = Cells(Row, 4).Value + Cells(Row, 5).Value + Cells(Row, 6).Value
            ' calculate Q2 total revenue
            Cells(Row, ColNumber + 2).Value = Cells(Row, 7).Value + Cells(Row, 8).Value + Cells(Row, 9).Value
            ' calculate Q3 total revenue
            Cells(Row, ColNumber + 3).Value = Cells(Row, 10).Value + Cells(Row, 11).Value + Cells(Row, 12).Value
            ' calculate Q4 total revenue
            Cells(Row, ColNumber + 4).Value = Cells(Row, 13).Value + Cells(Row, 14).Value + Cells(Row, 15).Value
        Next Row
    

    编写完代码以后,然后我们再切换到Excel界面中,点击按键,发现每个季度的数据已经计算完成,并填写在最后四列中。
    3. 在数据表格的最后一列中,增加1列数据,显示每行产品名称所属的产品线。
    产品名称为A1xxxx的属于MCU,产品名称为A2xxxx的属于Power Supply,产品名称为A3xxxx的属于Mosfet。代码如下:

        Cells(1, ColNumber + 5) = "Product Line" 'Add one new column after the last column.
         
        For Row = RowNumber To 2 Step -1
            If InStr(Cells(Row, 2), "A1") Then Cells(Row, ColNumber + 5).Value = "MCU" 'If Part ID begins with A1, it belongs MCU production line
            If InStr(Cells(Row, 2), "A2") Then Cells(Row, ColNumber + 5).Value = "Power Supply" 'If Part ID begins with A2, it belongs power supply
            If InStr(Cells(Row, 2), "A3") Then Cells(Row, ColNumber + 5).Value = "Mosfet" 'If Part ID begins with A3, it belongs Mosfet
        Next Row
    
    1. 在数据表格的最后一列中,增加1列数据,显示负责该行客户的销售人员姓名。
      客户名为Jiading的,销售人员为:Andy。客户名为Minhang的,销售人员为:Angela,客户名为Putuo和Changning的,销售人员为: Amanda。代码如下:
        Cells(1, ColNumber + 6) = "Sales Name" 'Add one new column after the last column.
        
        For Row = RowNumber To 2 Step -1
            If InStr(Cells(Row, 1), "Jiading") Then Cells(Row, ColNumber + 6).Value = "Andy" 'If customer is Jiading, Sales is Andy.
            If InStr(Cells(Row, 1), "Minhang") Then Cells(Row, ColNumber + 6).Value = "Angela" 'If customer is Minhang, Sales is Angela.
            If InStr(Cells(Row, 1), "Putuo") + InStr(Cells(Row, 1), "Changning") Then Cells(Row, ColNumber + 6).Value = "Amanda" 'If customer is Putuo or Changning, Sales is Amanda.
        Next Row
    
    1. 在数据表格最后一列后面空一列之后,按照产品线,列出每个季度的销售额。
        Cells(1, ColNumber + 8) = "Production Line" 'Add one new column for product line
        Cells(1, ColNumber + 9) = "Revenue" 'Add one new column for revenue
        
        For i = 1 To 3 Step 1  'PL_Revenue are initialized to 0.
            PL_Revenue(i) = 0
            Sales_Revenue(i) = 0
        Next i
        
        For Row = RowNumber To 2 Step -1
            If InStr(Cells(Row, ColNumber + 5), "MCU") Then   'If PL is MCU, accumulate the revenue to PL_Revenue(1)
                PL_Revenue(1) = PL_Revenue(1) + Cells(Row, ColNumber + 1).Value + _
                                                Cells(Row, ColNumber + 2).Value + _
                                                Cells(Row, ColNumber + 3).Value + _
                                                Cells(Row, ColNumber + 4).Value
            End If
            If InStr(Cells(Row, ColNumber + 5), "Power Supply") Then   'If PL is MCU, accumulate the revenue to PL_Revenue(2)
                PL_Revenue(2) = PL_Revenue(2) + Cells(Row, ColNumber + 1).Value + _
                                                Cells(Row, ColNumber + 2).Value + _
                                                Cells(Row, ColNumber + 3).Value + _
                                                Cells(Row, ColNumber + 4).Value
            End If
            If InStr(Cells(Row, ColNumber + 5), "Mosfet") Then   'If PL is MCU, accumulate the revenue to PL_Revenue(3)
                PL_Revenue(3) = PL_Revenue(3) + Cells(Row, ColNumber + 1).Value + _
                                                Cells(Row, ColNumber + 2).Value + _
                                                Cells(Row, ColNumber + 3).Value + _
                                                Cells(Row, ColNumber + 4).Value
            End If
                    
        Next Row
        Cells(2, ColNumber + 8) = "MCU"
        Cells(2, ColNumber + 9) = PL_Revenue(1)
        
        Cells(3, ColNumber + 8) = "Power Supply"
        Cells(3, ColNumber + 9) = PL_Revenue(2)
        
        Cells(4, ColNumber + 8) = "Mosfet"
        Cells(4, ColNumber + 9) = PL_Revenue(3)
    
    1. 在数据表格最后一列后面,按照销售人员姓名,列出每个季度的销售额.
        Cells(1, ColNumber + 11) = "Sales" 'Add one new column for product line
        Cells(1, ColNumber + 12) = "Revenue" 'Add one new column for revenue
        
        For i = 1 To 3 Step 1  'Sales_Revenue are initialized to 0.
            Sales_Revenue(i) = 0
        Next i
        
        For Row = RowNumber To 2 Step -1
            If InStr(Cells(Row, ColNumber + 6), "Andy") Then   'If PL is MCU, accumulate the revenue to PL_Revenue(1)
                Sales_Revenue(1) = Sales_Revenue(1) + Cells(Row, ColNumber + 1).Value + _
                                                Cells(Row, ColNumber + 2).Value + _
                                                Cells(Row, ColNumber + 3).Value + _
                                                Cells(Row, ColNumber + 4).Value
            End If
            If InStr(Cells(Row, ColNumber + 6), "Angela") Then   'If PL is MCU, accumulate the revenue to PL_Revenue(2)
                Sales_Revenue(2) = Sales_Revenue(2) + Cells(Row, ColNumber + 1).Value + _
                                                Cells(Row, ColNumber + 2).Value + _
                                                Cells(Row, ColNumber + 3).Value + _
                                                Cells(Row, ColNumber + 4).Value
            End If
            If InStr(Cells(Row, ColNumber + 6), "Amanda") Then   'If PL is MCU, accumulate the revenue to PL_Revenue(3)
                Sales_Revenue(3) = Sales_Revenue(3) + Cells(Row, ColNumber + 1).Value + _
                                                Cells(Row, ColNumber + 2).Value + _
                                                Cells(Row, ColNumber + 3).Value + _
                                                Cells(Row, ColNumber + 4).Value
            End If
                    
        Next Row
        Cells(2, ColNumber + 11) = "Andy"
        Cells(2, ColNumber + 12) = Sales_Revenue(1)
        
        Cells(3, ColNumber + 11) = "Angela"
        Cells(3, ColNumber + 12) = Sales_Revenue(2)
        
        Cells(4, ColNumber + 11) = "Amanda"
        Cells(4, ColNumber + 12) = Sales_Revenue(3)
    

    编写完代码以后,然后我们再切换到Excel界面中,点击按键,所有的数据都已经按照要求计算并显示出来了。编写这样的代码也许需要半天的时间,但是当你轻轻按下那个按键时,你也许感觉到整个世界都在你手中一样,一切尽在掌控中。
    在这里插入图片描述这种方法适合于重复性比较多的任务,如果每个表格要处理的数据都不一样,那就只能自己手动处理了。有机会的话,可以结合自己的实际工作需求尝试一下,相信一定帮助你提高工作效率的!

    展开全文
  • Word2000VBA一册通

    2009-08-04 16:22:08
    绍了VBA 基本语法包括数据类型语句函数过程调试等 基础内容方便用户掌握VBA 语言第三部分主要介绍了应用程序 高级开发其中讲述了许多开发应用程序高级技术帮助用户掌 握开发应用程序方法
  • Access2000VBA一册通

    2009-04-17 19:43:15
    绍了VBA 基本语法包括数据类型语句函数过程调试等基 础内容方便用户掌握VBA 语言第三部分主要介绍了应用程序高 级开发其中讲述了许多开发应用程序高级技术帮助用户掌握开 发应用程序方法本书目标是为利用...
  • 文字按插入点自动对齐提供了对自定义数据类型的数组进行排序一个思路;提取多行文字中文字内容对AutoCAD中多行文字格式代码进行了分析。使用ObjectDBX实现批量文字替换,与上一个版本比较起来,修正了一些...
  • Excel VBA与数据库整合应用范例精讲

    热门讨论 2011-10-29 18:48:38
    内容简介 《Excel VBA 数据库整合应用范例精讲》用180个实例介绍了利用Excel VBA来操作数据库(包括Access、SQL Server和FoxPro)实用方法和技巧。  全书共11章。第1~6章是利用Excel VBA操作Access数据库实例...
  • 定义变量的时候可以同步定义变量的数据类型数据类型包括:整型integer,布尔Boolean,双精度浮点型Double,字符串String,变体型Variant等数据类型决定了变量在内存中的存储方式和占用空间,也会影响到程序运行速度,...

    Part 1: 数据的类型

    1. 变量的定义(Dim等)。
    2. 定义变量的时候可以同步定义变量的数据类型
    3. 数据类型包括:整型integer,布尔Boolean,双精度浮点型Double,字符串String,变体型Variant等
    4. 数据类型决定了变量在内存中的存储方式和占用空间,也会影响到程序运行速度,计算机硬件资源是有限的,合理选择数据类型,尤其对于大型程序是很有必要的
    5. 通过变量类型告诉计算机你想干啥,也可以防错
    6. 当不确定变量具体的类型时,数据类型可选择为变体型Variant
    7. 当变量定义采用Dim X 未指定类型时,默认即为变体型Variant

    Part 2:Array,IsArray

    • Array,创建一个数组,要求对应变量声明为变体型Variant,否则会报错
    • IsArray判断变量是否为数组,返回True,False
    • Option Explicit,在过程前加上这一句,即要求所有变量必须先定义再使用,及显式定义
    • 可以在菜单中统一设置显式定义工具-选项-编辑器-勾选要求变量声明
    8dd6e3a57bc8b792d22f7232dbf53daa.png

    代码如下

    Option ExplicitSub test() Dim astrTest1(1 To 3) As Integer Dim astrTest2 As Variant Dim intValue As Integer Dim bolValue1 As Boolean Dim bolValue2 As Boolean Dim intI As Integer For intI = 1 To 3 Step 1 astrTest1(intI) = intI Next intI astrTest2 = Array("VB
    展开全文
  • 内容简介 《Excel VBA 数据库整合应用范例精讲》用180个实例介绍了利用Excel VBA来操作数据库(包括Access、SQL Server和FoxPro)实用方法和技巧。  全书共11章。第1~6章是利用Excel VBA操作Access数据库实例...
  • 04027引用不包括标题行单元格区域 04028引用不包括标题列单元格区域 04029引用任意单元格区域右下角单元格(之一) 04030引用任意单元格区域右下角单元格(之二) 04031引用输入了计算公式所有单元格 ...
  • 数据图表数据图表即Data Chart插件,其可以制作各种条形图、扇形图、折线图等,而且比我们用Excel自带图表进行制作好看了10倍都不止,并且模板类型包括了非常高端散点图、关系图和极坐标图等。2.Ea...

    相信大家都用过非常多好用的Excel插件,以往大多数需要函数公式和复杂VBA代码的功能,现在都可以通过插件一键实现了,今天就给大家介绍几款非常逆天的插件,希望可以帮助到各位。

    一、美化插件

    1.数据图表

    数据图表即Data Chart插件,其可以制作各种条形图、扇形图、折线图等,而且比我们用Excel自带的图表进行制作好看了10倍都不止,并且模板类型也包括了非常高端的散点图、关系图和极坐标图等。

    5fd296bd7ddcf7dee3e973cdd430f445.png

    2.Easycharts

    Easycharts同样是一款图表类插件,相对而言马卡龙色的色调更加小清新,并且支持平滑面积图、南丁格尔玫瑰图、迈赛克图等图形,还可以支持多种数据平滑以及颜色工具。

    7c5197aac2e94eaf941e6cbb799f525d.png

    二、效率工具

    1.易用宝

    易用宝则是一款超级效率插件支持2003到2016的Excel,大量复杂的操作都可以使用易用宝完成,而且只有不到2M的大小,除此之外还有聚光灯、网格线、滚动条、行列标贴等功能可供你使用。

    06d42c45f59b9febcbc2bedaa671baf1.png

    2.方方格子

    方方格子是一个功能强大、操作简单的效率插件,你可以使用其进行文本处理、数值录入、翻译、邮件合并和创意实验室等操作,而且还支持2007到2016的各个版本,兼容WPS和office,可以说是非常好用了。

    bd90000cac3fb024bc24cd614deb4029.png

    3.慧办公

    慧办公是一款免费高效插件,还可以进行功能的定制,有免费版和私人定制两个版本,主要功能包括批量合并、删除、打印、克隆以及自定义函数等。

    f92c665df979c31f2befd1119b880f7a.png

    好了,以上就是几款非常好用的Excel插件的介绍了,除此之外你还知道哪些好用的Excel插件呢?欢迎留言区告诉我们。

    展开全文
  • Excel VBA之类模块 实例

    万次阅读 2007-04-20 21:00:00
    什么是类:将用户定义类型和过程... 上面就是现在我对类模块了解,多,甚至自己也有很多理解地方,在类模块使用方面,记忆里曾经在学VB时编一个贪吃小蛇时,用过类来实现队列(先进先出一种数据结构),之
  • excel使用

    2012-11-25 17:06:01
    如果想很快查到函数的极值或看出其发展趋势,给出的数据点也一定非得是等差的,可以根据需要任意给定。从简单的三角函数到复杂的对数、指数函数,都可以用EXCEL画出曲线。如果用得到,你还可以利用EXCEL来完成行列...
  • 《Excel 2007图表完全剖析》分为14章和一个附录,包括如下内容:学习使用Excel 2007图表制作界面,掌握使用图形有效地表示数据的方式,根据要传达信息选择正确图表类型,学习可节省时间解决方案,创建大多数人...
  • 9.2.2 确定数据表里有多少条内容重复的数据记录(DISTINCT) 172 9.2.3 限制查询结果中的数据列个数 172 9.2.4 限制查询结果中的数据记录个数(LIMIT) 173 9.2.5 在使用LIMIT关键字确定数据表里的数据记录数...
  • EXCEL 2007 宝典 附光盘文件

    热门讨论 2010-04-02 14:43:05
    income and expense.xlsx:一个包含演示如何在数据透视表内引用单元格的数据透视表的工作簿。 music list.xlsx:一个演示如何创建和格式化数据透视表报表的工作簿。 reverse pivot.xlsm:一个包含将汇总表转换为3...
  • 中文版Excel.2007图表宝典 1/2

    热门讨论 2012-04-06 18:49:24
    读者从中还可以学习如何在图表中修改数据、处理遗漏的数据、格式化图表、使用趋势线,以及从数据透视表创建图表等相关内容。除此之外,还可以学习如何通过AutoShapes,用图片和色彩修饰图表,以及利用VBA编程创建...
  • 中文版Excel.2007图表宝典 2/2

    热门讨论 2012-04-06 19:01:36
    读者从中还可以学习如何在图表中修改数据、处理遗漏的数据、格式化图表、使用趋势线,以及从数据透视表创建图表等相关内容。除此之外,还可以学习如何通过AutoShapes,用图片和色彩修饰图表,以及利用VBA编程创建...
  •  在Excel 2007中,Microsoft重写了15年来未曾更新图表引擎,但如果选择图表类型不正确,将无助于传递要表达信息。鉴于此,本书将介绍Excel 2007中全新图表制作界面,更重要是,将引导读者选择正确图表...
  •  在Excel 2007中,Microsoft重写了15年来未曾更新图表引擎,但如果选择图表类型不正确,将无助于传递要表达信息。鉴于此,本书将介绍Excel 2007中全新图表制作界面,更重要是,将引导读者选择正确图表...
  •  在Excel 2007中,Microsoft重写了15年来未曾更新图表引擎,但如果选择图表类型不正确,将无助于传递要表达信息。鉴于此,本书将介绍Excel 2007中全新图表制作界面,更重要是,将引导读者选择正确图表...
  •  在Excel 2007中,Microsoft重写了15年来未曾更新图表引擎,但如果选择图表类型不正确,将无助于传递要表达信息。鉴于此,本书将介绍Excel 2007中全新图表制作界面,更重要是,将引导读者选择正确图表...
  •  在Excel 2007中,Microsoft重写了15年来未曾更新图表引擎,但如果选择图表类型不正确,将无助于传递要表达信息。鉴于此,本书将介绍Excel 2007中全新图表制作界面,更重要是,将引导读者选择正确图表...
  •  在Excel 2007中,Microsoft重写了15年来未曾更新图表引擎,但如果选择图表类型不正确,将无助于传递要表达信息。鉴于此,本书将介绍Excel 2007中全新图表制作界面,更重要是,将引导读者选择正确图表...
  •  在Excel 2007中,Microsoft重写了15年来未曾更新图表引擎,但如果选择图表类型不正确,将无助于传递要表达信息。鉴于此,本书将介绍Excel 2007中全新图表制作界面,更重要是,将引导读者选择正确图表...
  •  在Excel 2007中,Microsoft重写了15年来未曾更新图表引擎,但如果选择图表类型不正确,将无助于传递要表达信息。鉴于此,本书将介绍Excel 2007中全新图表制作界面,更重要是,将引导读者选择正确图表...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到当前...
  • Excel百宝箱

    2012-10-27 17:09:21
    【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到当前...
  • Access转SQL2000

    2009-03-24 16:57:37
    版本修正 bit 类型在默认数值能正常转换问题 时间默认值增加转换 time() date() 为 getdate() 视图的Vba函数未作处理,稍候版本会推出支持对应SQLserverT-SQL转换 V1.04 支持输入建库和登陆创建 支持...
  • 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式:将每个工作簿中的工作表合到...
  • 【提取选区重复值】将选择区域的数据,置于当前列中,忽略重复值 【清除列中重复值】将选择中重复出现的数据删除(提供保留第一次出现还是最后一次出现的数据 的选择机会,也提供是否对删除数据加背景色突出的选择...

空空如也

空空如也

1 2 3
收藏数 55
精华内容 22
关键字:

vba的数据类型不包括