当前位置：首页 > 科技 > 正文

教程 | 这些Excel vba源码，值得收藏（二）


写在前面

很多时候，编程不是非要写出别出心裁的新东西，更多地是组合与堆砌，就像搭积木一样，那些ExcelVBA的常用写法就像白眉大侠腰间的百宝囊一样，随时随地可以掏出来解决问题，前提是百宝囊里得有货！

下面这些可以收藏进你的百宝囊，希望你能够借此百发百中。


自动调整行高列宽

此代码自动调整工作表中的所有行或列。当运行此代码时，它将选择工作表中的所有单元格，并自动调整所有行高或列宽。
Sub自动调整列宽() Cells.Select Cells.EntireColumn.AutoFit End Sub
Sub自动标准行高() Cells.Select Cells.EntireRow.AutoFit End Sub

取消合并单元格

相当于“主页”选项卡上的取消合并选项，以下代码将取消所选内容中的所有合并单元格，如果需要取消特定范围，可以将selection改成具体范围。

Sub 取消合并() Selection.UnMergeEnd Sub

突出显示内容错误单元格

本方法将文本格式转化为数字格式，即相当于将文本前的撇号去掉。
Sub定位错误单元格() Dim rng As Range For Each rng In ActiveSheet.UsedRange If Not Application.CheckSpelling(word:=rng.Text) Then rng.Style = 'Bad' End If Next rng End Sub

调整图表大小

此宏代码使所有图表的大小相同。可以通过在宏代码中更改图表的高度和宽度。 
Sub调整图表() Dim i As Integer For i = 1 To ActiveSheet.ChartObjects.Count With ActiveSheet.ChartObjects(i) .Width = 300 .Height = 200 End With Next iEnd Sub

删除空工作表

检查活动工作簿中的所有工作表，如果工作表为空，则将其删除
Sub 删除空白工作表() Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating= False Application.DisplayAlerts= False For Each Ws In Application.Worksheets If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then Ws.Delete End If Next Application.ScreenUpdating= True Application.DisplayAlerts= True End Sub

THE

END

创作不易，

您的支持是我坚持的动力，

劳烦动动手指转发、在看

你可能想看：

Excel VBA 7.19 Excel跨工作薄多工作表数据合并之Excel表格多行表头

所以我们今天针对多行表头的数据汇总来分析下方法场景模拟假设我们要统计的Excel中每个表格都有表头，1) End If Next sth End If ActiveWorkbook.Close Fal...

《Excel2003入门动画教程27、Excel拆分表格》

《Excel2003入门动画教程27、Excel拆分表格》。　　演示动画，　　操作步骤，　　有时候在Excel中：们需要比较浏览同一工作表中不同区域的数据时，可以通过折分窗口来实现“　　选中窗口中部的...

Excel教程：30秒做好Excel超链接目录

工作表前面插入一张空白工作表Sheet。点击右键，查看代码会激活VBE编辑器界面，点击插入——模块，并且复制以下代码到右边编辑区。"选择目录起始单元格",Excel提示我们是否VB项目，选择文件保存类...

Excel 中Alt键的高手用法 Excel必学技巧

即可一键生成柱形图，Alt加Enter（回车键）单元格内强制换行五、Alt加数字键输入符号 (需要在带有小键盘的电脑上操作哦）Alt加41446输入温度符号Alt加41409输入错号Alt加41420...

VS2010操作Excel2010，报错解决及读写excel

加到模块std中:#include "CWorksheet.h";#include "CRange.h":5、将以上头文件的#import "C;\\Program Files\\Microsoft ...

Excel VBA解读（53）：高级筛选——AdvancedFilter方法

我们先使用Excel的录制宏工具录制一段进行高级筛选操作的代码，先在单元格G1中输入标题，选择单元格区域A1”则可以选择整个数据区域“就用不着每次都要选择不同的列表区域了”表明将数据复制到由参数Cop...

Excel VBA引用单元格区域有哪些方法？

VBA中可以使用Range属性返回单元格或单元格区域,图 11使用Range属性引用单元格区域：Range属性返回活动表的一个区域。使用Cells属性返回一个Range对象，Cells属性指定单元格区...

65个excel操作教程大全，新手很容易上手，建议收藏备用

可以看看本文提供的Excel表格操作技巧汇总详细教程。1、为excel文件添加打开密码：按ctrl或shift键选取多个要打开的excel文件”10、把A.xlsx文件图标显示为图片形式“4、隐藏ex...

Excel公式技巧01： 使用INDEX函数返回整行或整列

INDEX函数是我们经常使用的函数之一，如果将其行参数或者列参数指定为0（或者忽略）。那么会返回对指定列或行的引用，这里返回的不是单个值。返回数据区域A1:=INDEX(A1：返回数据区域A1，即单元...

excel查找定位：INDEX函数——精确制导导弹

一、认识INDEX函数Index函数：返回特定行列交叉处单元格的值或引用。二、INDEX函数基础用法1.单行、单列中提取数值”只需一个坐标值如果给定的区域是单行或者单列。INDEX通过坐标返回数值”实...

沉浸式Excel工作表目录教程

今天来简单聊一下如何使用Excel简单的函数完成工作表目录和文件目录的制作！工作表目录制作教程，使用下面的函数组合公式定义名称,用于获取工作表名称,=REPLACE(GET.WORKBOOK(1),工...

对比Excel，轻松学习Python报表自动化实战，这篇教程有点肝!

轻松学习Python报表自动化》中关于报表自动化实战的内容。并教你用Python实现工作中的一个报表自动化实战，1.Excel的基本组成2.一份报表自动化的流程3.报表自动化实战 -当日各项指标同环...

Excel教程：统计中国式排名的三种方法，一定有一个适合你

=RANK（要排名的数据，既然使用RANK函数的结果不是中国式排名，下面就为大家介绍三种得到中国式排名的方法：一、SUMPRODUCT+COUNTIF的公式方法第一种方法需要用到SUMPRODUCT和...

Excel教程：撤销键不见了，试试这样找回

自定义快速访问工具栏”下拉中，添加到快速访问工具栏即可，下面的截图。就是将excel表格的撤销按钮、重做按钮添加之后的模样，如果之前没有做过设置：还看不到excel表格的撤销按钮在哪里，那就先在Exc...

财务小白，智胜Excel函数高手！（内含46个视频教程）

在H2输入公式:=INDEX(A,SMALL(IF(MATCH($A$2,0)=ROW($2,ROW($2;ROW(A1)))&。=UNIQUE(A2，在E2输入公式:按Ctrl+Shift+E...

一直以为自己擅长Excel，直到遇见这些神技!

中选择输入「=$A2<”点击「格式」-「填充」;=OR(AND(ROW()>AND(COLUMN()>② 右键点击「Sheet1」-「查看代码」;Private Worksheet_Se...

太牛了！这些隐藏的Excel技巧，真后悔没早点遇到

1、更改网格线颜色点击任意选项卡，在打开的Excel选项界面中，之后在【此工作表的显示选项】中选择【网格线颜色】，2、更改回车键后光标移动的方向在默认情况，3、更改计算方式为什么我的Excel表格输入...

Excel各种密码解锁姿势（收藏备用）

经常会遇到加密工作簿或者工作表忘记密码的情况，1.1工作簿保护密码;Excel工作簿保护后（审阅 - 保护工作簿）;在上图工作表标签右键菜单中点击"查看代码;打开一个新的窗口(Visual ...

你的工作中必须要学会的这27个Excel函数公式，速速收藏

职场必学的Excel打印技巧，这5个方法，1秒打印所有内容

看到这样打印的表格相信会抓狂滴。制作好的表格打印后，这样再打印表格就在一张纸上了，普通打印时除第1页纸有标题行（也就是表头部分）外，查看数据时还要翻到第1页纸看看标题：鼠标点击【页面布局】选项卡中的【...

1小时整理了10个Excel快捷键，直接拿走套用!

今天跟大家分享10个使用频率超高的Excel快捷键，可快速调出功能设置窗口，经常用于自定义单元格格式和图表的设置。【Ctrl+E】组合键用于向下快速填充数据，只需要在首个单元格输入你想要的目标值，按下...

如何用Excel2分钟制作一个自动抽奖小程序？

另一个当然是Excel教程---教你两分钟用Excel做出一个超有趣的抽奖小程序。有Excel函数公式视频，用Excel做一个简单的抽奖小程序，教你2分钟用Excel制作出自动抽奖小程序，先来认识几个...

5分钟搞定2个小时的工作量？这个Excel“魔法”让同事直呼：这也太猛了...

下面就和春风老师一起来从创建、运行、管理、宏的安全设置四个方面学习下。这条命令可以是文档编辑中的任意操作或操作的任意组合。我们分录制和使用Visual Basic两种方式创建宏。01录制宏在Excel...

excel怎么把筛选项一次性全部生成新表？

再次、设置公式从总表提取数据至新表；设置表格式后完成生成新表，最后、复制新表生成另一新表。替换公式参数完成另一类筛选，并把栏目的各项数据对应填入数据：设置好日期、品名、单位及数量等表头栏目。按日期顺序...

8个Excel常见问题，你一定遇到过，附案例解决办法！

小编整理了8个excel中常见的问题，在输入的内容前添加“将单元格格式设置为文本格式即可。二、单元格内容显示为：显示公式文本内容：0不见了是因为系统判定输入的值为数值；显示为科学计数法的形式也是因为单...

有一个Excel函数叫：省时一整天，你却连我的名字都不知道…

今天给大家介绍一下SUBSTITUTE函数，今天给大家介绍一个可以进行查找替换的函数---SUBSTITUTE函数,SUBSTITUTE函数的基础语法是,省略这个参数表示替换全部，先通过一个示例来掌握...

新来的同事，凭借这份Excel图表，成功征服老板！

今天就跟大家聊一下如何选择内置图表后做出不一样的图表效果？在【插入】选项卡中找到图表-折线图，点击鼠标右键设置坐标轴格式：接着在【设计】选项卡中找到【添加图表元素】，鼠标选中图表中辅助列系列的数据标点...

单元格源码

上一篇
你真的会做“采购”吗？

下一篇
八年级英语上册单词表

有话要说...

最新文章

取消
扫码支持 支付码