VBA – 印象派

[VBA]VBA实现公式的下拉填充

2019-06-042019-06-04 • VBA • 评论关闭 • Aar0n •3,765 次查阅

在勤哲的开发过程中，模板套用了Excel的{…}数组公式内容，导致增加行时不能自动填充素组公式。先不管是不是平台的问题，我们要解决目前可用的状况，只能VBA了。代码如下仅供参考: Private Sub CommandButton5_Click() Dim i As Integer Dim oAdd As Object Application.ScreenUpdating = False Set oAdd = Application.COMAddIns.Item("ES

快速合并与拆分同值单元格

2015-06-102015-06-10 • VBA • 暂无评论 • Aar0n •2,749 次查阅

每当遇到查询数据输出成Excel格式时，发现有部分数据列是重复值，一行一行的实在看着花，就会想着手动合并下，但是遇到大数据我们不是要累死？所以我们得求助VBA解决了一劳永逸。合并代码： Sub hb() Application.DisplayAlerts = False Dim r() As Range Set d = CreateObject("Scripting.Dictionary") For Each cel In Range("A1:F10"

禁用菜单栏部分功能

2011-10-082011-10-08 • VBA • 5 条评论 • Aar0n •5,750 次查阅

有些Excel的菜单栏上的某些选项按钮我们不想别人使用。那我们可以禁用那些选项。比如禁用调整“单元格格式”的选项。代码如下： 1 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 2 Application.CommandBars(“Worksheet Menu Bar”).Controls(“格式(O)”).Controls(&#822

强制Excel接受指定小数位

2011-10-072011-10-07 • VBA • 暂无评论 • Aar0n •3,690 次查阅

平时表格输入数字都是输入什么数字表格接受什么数字。除非在表格里设置了属性，比如保留2位小数。但输入25，则自动显示0.25；500，则保留成5。这种特殊效果在经常使用小数位的岗位很适用。直接输入完整数字而不需要先按0再按小数点，大大加快了输入的速度。特分享个代码： Sub 设置小数位()‘ 设置小数位 Macro‘ 宏由 Kael.Z 录制，时间: 2011/10/7Application.FixedDecimal = True ‘小数位开关Appl

VBA破解工作表密码

2011-09-142011-09-14 • VBA • 7 条评论 • Aar0n •7,181 次查阅

在日常工作中，难免忘记工作表的密码，眼巴巴的看着数据却不能改动。前阶段分享过一个破解工作表密码的VBA，代码相当长。今天分享个简短的代码。原理是利用Excel的BUG破除密码。新建模块并输入如下代码： Sub 清空密码() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True &nbs

普通打印机实现双面打印

2011-09-122011-09-12 • VBA • 17 条评论 • Aar0n •12,238 次查阅

普通的打印机打印报表往往只能单面打印。为了节约纸张，有没办法实现双面打印呢？有~ VBA模块实现。上代码： Sub 双面打印() On Error Resume Next If VBA.IsEmpty(ActiveSheet.UsedRange) Then MsgBox "当前工作表为空！

VBA实现密函特效

2011-08-242011-08-24 • VBA • 6 条评论 • Aar0n •6,057 次查阅

古装电视上通常有这么个场景—–当接收人看完密函后，信件自动销毁的场景！突发奇想，Excel应该也能实现这样的特效功能。比如给小丽写的情书，她看完后自动消失，是不是很搞啊？哈哈~怎么实现呢？代码如下：（VBA方式） Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.ChangeFileAcces

登录