• VBA练习-打开文件,添加选中项,生成新表


    学习VBA,正好给财务制作一个小工具:

    Sub 打开人员信息表()
        Dim wb As Workbook, c As Integer
        Set wb = Workbooks.Open("C:UserswznDocuments工作簿2.xlsx", 0, True)
        c = wb.Worksheets.Count
        If c < 3 Then wb.Worksheets.Add after:=Worksheets(Worksheets.Count)
        wb.Worksheets(1).Select
        
    End Sub
    
    
    Sub 添加选中人员()
        Dim fw As Worksheet, lw As Worksheet, fr As Integer, lr As Integer, rg As Range
        Set fw = ActiveSheet
        Set lw = Worksheets(Worksheets.Count)
        For Each rg In Selection
            fr = rg.Row
            If Range("a" & fr) = "" Or Range("b" & fr) = "" Then
                MsgBox "选中项不能是空值,请确认选中项后重试"
                Exit Sub
            End If
            lr = lw.Range("a65536").End(xlUp).Row + 1
            lw.Range("a" & lr) = Range("a" & fr)
            lw.Range("b" & lr) = Range("b" & fr)
        Next
        If lw.Range("a1") <> "姓名" Then
            lw.Range("a1") = "姓名"
            lw.Range("b1") = "卡号"
            lw.Range("c1") = "金额"
            
            With lw.Range("a1,b1,c1").Font
                .Name = "宋体"
                .Size = 12
                .Bold = True
            End With
        End If
        With lw.Range("a1").CurrentRegion
            .Borders.ColorIndex = 1
            .Columns.AutoFit
            .HorizontalAlignment = xlCenter
        End With
    End Sub
    
    Sub 导出添加人员()
        Dim lw As Worksheet, curBook As Workbook
        Set curBook = ActiveWorkbook
        Set lw = Worksheets(Worksheets.Count)
        lw.Move
        curBook.Close False
    End Sub
  • 相关阅读:
    DAO设计模式实现数据库的增删改查(进一步封装JDBC工具类)
    MySQL聚合函数、控制流程函数(含navicat软件的介绍)
    MySQL JDBC事务处理、封装JDBC工具类
    ResultSet详解(转)
    开源软件收集
    免费开源3D模型设计软件汇总
    oschina多媒体工具
    oschina文件传输
    简单工厂模式
    权限表的设计
  • 原文地址:https://www.cnblogs.com/lunawzh/p/5917969.html
Copyright © 2020-2023  润新知