精华内容
下载资源
问答
  • 一小时搞定 简单VBA编程 Excel宏编程快速扫盲

    万次阅读 多人点赞 2018-01-19 09:45:19
    Excel宏编程可以快速完成批量表格操作:复制粘贴、数据过滤等,宏代码基于VB语言实现,有基础的编程经验就能快速阅读。下面是我的学习笔记。 1. Excel VBA编辑界面 (进入路径: sheet名称 --> 鼠标右键菜单 ...

    Excel宏编程可以快速完成批量表格操作:复制粘贴、数据过滤等,宏代码基于VB语言实现,有基础的编程经验就能快速阅读。下面是我的学习笔记。

     

    1. Excel VBA编辑界面

    (进入路径: sheet名称 --> 鼠标右键菜单 --> 查看代码)

     

    2. 输入代码方法:

    在VBE编辑器的代码模块中输入VBA代码,通常有以下几种方法: 

    ■ 手工键盘输入; 

    ■ 使用宏录制器,即选择菜单“工具——宏——录制新宏”命令,将所进行的操作自动录制成宏代码; 

    ■ 复制/粘贴代码,即将现有的代码复制后,粘贴到相应的代码模块中; 

    ■ 导入代码模块:文件-->导入文件 **不用的模块可以:文件-->移出模块

     

    3. VB代码阅读扫盲

    (1) 模块声明:

    Sub sName() ... End Sub
    Sub xxxxx()
    XXXXXXXXX
    End Sub

    (2) 变量声明:

    Dim sPara As sType
    Dim para1, para2, para3
    Dim para4 As workbook, para5 As String
    Dim G As Long

    (3) 选择结构:

    With ... End With
    If condition Then ... End If
    
    # 举个例子:遍历每个Sheet把表粘贴成一个大表的语句,使用For Next With End With语句
    
    With Workbooks(1).ActiveSheet
    For G = 1 To Sheets.Count
    Wb.Sheets(G).UsedRange.Copy       .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
    Next
    WbN = WbN & Chr(13) & Wb.Name
    Wb.Close False
    End With

    (4) 循环结构

    Do While condition ... Loop
    For i = 0 to 100 ... Next

    (5) 输出Log:

    MsgBox sString

    案例解析:解析拷贝路径下所有Excel到一个工作表下的示例:

    ************************************************************************************************************************************

    Sub 合并当前目录下所有工作簿的全部工作表()  #模块名称
    Dim MyPath, MyName, AWbName	  		#变量声明
    Dim Wb As workbook, WbN As String
    Dim G As Long
    Dim Num As Long
    Dim BOX As String
    Application.ScreenUpdating = False			#停止屏幕刷新
    MyPath = ActiveWorkbook.Path				#获取当前工作文件路径
    MyName = Dir(MyPath & "\" & "*.xls")		#获取当前文件名(截取字符串)
    AWbName = ActiveWorkbook.Name			#获取当前BookName
    Num = 0								#准备进入循环处理
    Do While MyName <> ""					#第一个循环体:遍历所有文件 终止条件是 文件名为空
    If MyName <> AWbName Then				#条件:文件名当前激活文件不同
    Set Wb = Workbooks.Open(MyPath & "\" & MyName)		# 设置工作表的名称(当前Sheet Name)
    Num = Num + 1						#计数用于输出
    With Workbooks(1).ActiveSheet
    .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
    #赋值语句:激活Sheet的A列最后一个单元格赋值为MyName去掉‘.xls’的部分
    #Left 截取字符串 去掉了'.xls'
    #workbooks(n) 为取工作簿 的写法
    #A65535(一个极大数)单元格向上,最后一个非空的单元格的行号
    For G = 1 To Sheets.Count					#嵌套循环体:遍历文件的所有Sheets
    Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)	
      	#赋值所有内容到以结束内容空一行开始的表格中
    Next									#且套循环体结束							
    WbN = WbN & Chr(13) & Wb.Name			# & 为合并字符串的符号		
    Wb.Close False							#对于文件操作结束,关闭Excel文件
    End With								#退出第二个判断
    End If								#退出第一个判断
    MyName = Dir		 					#怎么拿到第二个bookName
    Loop									#循环体结束
    Range("B1").Select						#选中B1
    Application.ScreenUpdating = True			#允许Excel屏幕刷新
    MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
    End Sub

     

    ************************************************************************************************************************************

    常用模块:

    1. 把一个workBook的一块表格拷贝到另一个WorkBook中的一般化方法:

    上面的代码中是一种简单的实现:拷贝所有内容到空行区域

    需要将拷贝的内容和粘贴的位置控制更加精准控制:

     

    拷贝指定位置到指定位置:

    Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")

    2. 找到粘贴位置:

    b=sheet2.[BI].end(xlToLeft).row+1 获取最后一次编辑的各自的列号!
    
    .Range("B65536").End(xlUp).Row + 2 最后一次编辑的格子的行号

    A1 直接编辑

    .Cells(nRowNo, nColNo)

    ...

     

     

    实战案例分析:一个将多个相同格式表格合并生成横表的例子:

    Sub 合并当前目录下所有工作簿的全部工作表()
    
    Dim MyPath, MyName, AWbName
    Dim Wb As Workbook, WbN As String
    Dim G As Long
    Dim Num As Long
    Dim BOX As String
    Dim HasTitil As Boolean
    Dim LastRange As String
    Dim CurRowNo As Long
    
    Application.ScreenUpdating = False
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xls")
    AWbName = ActiveWorkbook.Name
    Num = 0
    HasTitil = False
    
    With Workbooks(1).ActiveSheet
    .Cells(1, 2) = "Cor.Name"
    Do While MyName <> ""
    If MyName <> AWbName Then
    Set Wb = Workbooks.Open(MyPath & "\" & MyName)
    Num = Num + 1
    .Cells(1, Num + 2) = Left(MyName, Len(MyName) - 4)
    
    If HasTitil <> True Then
    
    Wb.Sheets(1).Range("A4:B43").Copy .Cells(2, 1)
    Wb.Sheets(1).Range("E4:F43").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(2).Range("A5:B73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(2).Range("E5:F73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(3).Range("A4:B32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(3).Range("E4:F32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(4).Range("A5:B100").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    
    HasTitil = True
    End If
    
    CurRowNo = 2
    Wb.Sheets(1).Range("D4:D43").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 40
    Wb.Sheets(1).Range("H4:H43").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 40
    Wb.Sheets(2).Range("D5:D73").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 69
    Wb.Sheets(2).Range("H5:H73").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 69
    Wb.Sheets(3).Range("D4:D32").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 29
    Wb.Sheets(3).Range("H4:H32").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 29
    Wb.Sheets(4).Range("D5:D100").Copy .Cells(CurRowNo, Num + 2)
    
    Wb.Close False
    End If
    MyName = Dir
    Loop
    
    End With
    
    Range("B1").Select
    Application.ScreenUpdating = True
    End Sub

     

    展开全文
  • Excel

    2012-07-05 16:02:05
    求高手做个Excel宏,让我的锁定的excel模版可以插入行而且插入的行不是锁定的,另外教下我怎么样在java poi代码中加载这个宏,谢谢!求高手指导啊
  • excel宏破解 excel宏加密

    热门讨论 2011-05-10 19:33:09
    excel宏破解+宏加密解密简单说明 用于2003excel宏密码破解,与excel宏工程密码保护
  • Excel宏

    2015-02-08 20:50:13
    两个EXCEL表格A、B,都包含相同内容的列a(比如姓名),如何在A表中筛选出a列跟B表a列相同内容的行。 也行,函数也行? 答: Dim lie1 As Integer Dim lie2 As Integer lie1 = 7 '此处填写列1的长度 lie...
    问题:请问哪个大神
    两个EXCEL表格A、B,都包含相同内容的列a(比如姓名),如何在A表中筛选出a列跟B表a列相同内容的行。
    宏也行,函数也行?

    答:
    Dim lie1 As Integer
    Dim lie2 As Integer

    lie1 = 7 '此处填写列1的长度
    lie2 = 3 '此处填写列2的长度

    Dim i As Integer
    Dim j As Integer
    Dim str1 As String
    Dim str2 As String
    For i = lie1 To 1 Step -1
    Sheets("Sheet1").Select '此处双引号内为表1的名称
    str1 = Range("A" & i).Text '此处填写列1所在的列
    Sheets("Sheet2").Select '此处双引号内为表2的名称
    For j = lie2 To 1 Step -1
    str2 = Range("A" & j).Text '此处填写列2所在的列
    If str1 = str2 Then
    Sheets("Sheet1").Select '此处填写列1所在的列
    Range("A" & i).FormulaR1C1 = "" '此处填写列1所在的列
    Exit For
    End If
    Next
    Next
    展开全文
  • excel

    2012-07-03 10:03:18
    的基础教程、excel的一些常用的技巧http://www.youku.com/playlist_show/id_3835476_ascending_1_mode_pic_page_1.html 的高级教程→Excel VBA教程...


    宏的基础教程、excel的一些常用的技巧
    http://www.youku.com/playlist_show/id_3835476_ascending_1_mode_pic_page_1.html

    宏的高级教程→Excel VBA教程
    http://www.youku.com/playlist_show/id_16594992_ascending_1_mode_pic_page_1.html

     

     

     

     

     

     

     

    展开全文
  • excel宏

    2011-08-24 23:39:58
    想想,今天碰到了原来公司的老领导,想起了过去做的滑词分享功能,就是一堆。为了不忘了简单写了一个小功能。   代码如下: 'author: yangzc '设置excel所有sheet到第一个单元格 Sub ToFirstCell() Dim ...

    很久没写点东西了。想想,今天碰到了原来公司的老领导,想起了过去做的滑词分享功能,就是一堆宏。为了不忘了简单写了一个小功能。

     

    代码如下:

    'author: yangzc
    
    '设置excel所有sheet到第一个单元格
    Sub ToFirstCell()
        Dim i As Integer
        '遍历所有sheets
        For i = 1 To Sheets.Count
            Dim sheet As Worksheet
            Set sheet = Sheets(i)
            sheet.Activate
            Range("A1").Select
            
        Next
        '跳转到第一个sheet,并定位到第一个单元格
        If Sheets.Count > 0 Then
            Sheets(1).Activate
            Range("A1").Select
        End If
        
    End Sub
    

     

     

    昨天就想记录一下宏的部署方式。今天终于实验成功了。

     

    首先保存该excel文件为“加载宏”,xlam格式。然后Excel选项-加载项把这个excel宏加载进去。就可以使用了

    展开全文
  • Excel宏教程

    2018-09-01 10:20:08
    Excel宏教程,介绍excel宏的基本操作,比较适合初学者掌握该内容
  • excel 宏隐藏分页表 隐藏Excel宏 (Hide an Excel Macro)When you add a macro to an Excel workbook, users can see that macro in a list when they choose Tools|Macro|Macros. 当您将宏添加到Excel工作簿时,...
  • excel宏大全

    2018-04-04 22:44:19
    excel宏大全,收集了众多使用的宏,可直接将代码复制到宏窗口使用
  • excel宏命令删除列 删除Excel宏安全警告 (Remove Excel Macros Security Warning)Even though an Excel workbook doesn't contain any macros, sometimes when you open a file, a security warning appears. ...
  • excel宏选中单元格 从单元格引用运行Excel宏 (Run an Excel Macro From a Cell Reference)Last week I wrote an article about hiding Excel macros, so they don't appear in the macro list. While working on ...
  • excel宏教程

    2018-09-02 14:22:02
    excel宏教程,入门级。对新手有很大帮助!希望能找到你想要的东西!
  • C# 执行Excel宏

    2017-10-25 11:22:03
    C# 调用 Excel 开发的VBA宏进行Excel操作 Excel宏文件 线程
  • 我正在使用以下代码从Python运行Excel宏:import pymysqlimport datetimeimport csvimport mathimport osimport globimport sysimport win32com.clientimport numpyfrom tkinter import *from tkinter import ttk...
  • excel宏 拆分工作表 使用工作表按钮运行Excel宏 (Run an Excel Macro With a Worksheet Button)In my workbooks, I sometimes add buttons to run macros. Usually, they're for navigation to the next or previous...
  • 编写Excel宏

    千次阅读 2018-11-10 04:09:47
    编写Excel宏
  • excel宏 拆分工作表 在Excel宏代码中更改工作表名称 (Change Sheet Names in Excel Macro Code) If you download one of the sample Excel workbooks from my Contextures website, you might want to customize it,...
  • excel打印宏 使用Excel宏打印发票 (Print Invoices With Excel Macro)There is a sample file on my Contextures site, in which you can enter invoice details, then print all the new invoices by clicking a ...
  • Excel宏编程

    2008-04-23 14:27:09
    Excel宏编程Excel宏编程Excel宏编程Excel宏编程
  • excel 命令

    千次阅读 2018-08-22 14:20:34
    以前老是听说什么excel宏,但是自己从未实战操作过,待我自己接触过后,发现excel实在是太强大了,用excel宏可以帮助我省好多时间,对于一些枯燥无味的工作,我就请excel宏命令帮我实现。 首先,宏到底是个什么呢?...
  • excel宏导入excel数据经典
  • EXCEL宏编辑

    2014-04-03 18:17:43
    有关Excel宏编辑的方法,以及VBA语言的介绍
  • 很多小伙伴在制作Excel报表时经常都需要重复使用一个功能,浪费了不少的时间,小编今天教大家怎么制作一个Excel宏按钮来避免重复的麻烦,宏按钮本质上就是一个宏,不过通过按钮更快的执行宏,下面一起来看看怎么做吧...
  • EXCEL宏魔法书

    2012-04-25 21:34:44
    EXCEL 魔法书 EXCEL 魔法书EXCEL 魔法书

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,395
精华内容 2,158
关键字:

excel宏