首页 > 代码库 > 教你快速入门Excel-宏与VBA(续)

教你快速入门Excel-宏与VBA(续)

引言    

    通过上次的讲解(教你快速入门(上))(教你快速入门(下)),相信一些简单的问题大家已经可以使用宏和VBA来解决了,那如果遇到大数据时怎么办?在日常生活中我们需要处理的可不止简单的一两张表,很可能是20,30张表甚至更多!如果你遇到这样的问题不要着急,这里我就来给大家讲解一下Excel中的大数据处理问题。

实例

    接着上次简单示例来说,如果现在需要处理的表单不再是一个,而是多个,例如,需要统计多个年龄段的篮球运动员其身体素质成绩,那么原先的代码就不能实现了,因为之前的sheet名已经写“死”,只能是特定附表的数据,当然解决这个问题也很简单,只要简单的修改一下代码,使其自动获得当前表(所需表)的sheet名,然后把sheet名作为参数传递即可。OK,修改代码如下:

    模块代码:

Option Explicit

'激活时,<span style="font-family: KaiTi_GB2312; ">求和,</span><span style="font-family: KaiTi_GB2312; ">自动获取全部成绩</span>
Public Sub WorksheetActivate()

    Dim selectedCol As Integer
    Dim r As Integer
    Dim c As Integer
    Dim j As Integer
    Dim isUpdate As Boolean
    Dim FileName As String
    
    FileName = GetName() + "附"
    
    '行循环
    For r = 5 To ActiveSheet.UsedRange.Rows.Count

       '列循环
       For c = 4 To ActiveSheet.UsedRange.Columns.Count - 1 Step 2
            isUpdate = False
            selectedCol = (c - 4) \ 2 + 2 '获取 当前表附表 中对应列号
            For j = 2 To Worksheets(FileName).UsedRange.Rows.Count
                If ActiveSheet.Cells(r, c).Value <> "" And ActiveSheet.Cells(r, c).Value = http://www.mamicode.com/Worksheets(FileName).UsedRange.Cells(j, selectedCol).Value Then>

    主表代码:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = Selection.Row - 1 And Target.Column = Selection.Column Or Target.Row = Selection.Row And Target.Column = Selection.Column - 1 Then
    '修改立即获取成绩
    CellsClick Target
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '点击时获取成绩
    CellsClick Target
End Sub


总结

    多表操作思想:

    1.多表操作时要注意分类,一般各表之间不是孤立存在的,把同类型(比如按性别分类,按年龄段分类,按年级 分类)放到一个Excel里去处理;

    2.一个Excel中多表之间操作要注意参数传递,数据获取方式和激活问题,多做测试。

    优化思想:

    一项工作重复多遍时,肯定可以优化,优化方式很简单,提取公共部分!