VBA实现密函特效

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

VBA填充空单元格

通常很多人在输入数据时,在同一列中相同的数据都会选择不输(如A1输入X,一直空到A5,则A2~A4都是表示X),空白表示相同。偷懒的想法啊。 但为了输入方便偷懒了,能不能交给代码补全呢? 可以的! 分享代码吧:   Sub 填充单元格()    On Error Resume Next    Intersect([a:a], ActiveSheet.UsedRange).SpecialCells(

VBA自动定位下一个非空单元格

如何实现每次输入数据后总是定位于下一行的第一个空单元格避免键盘方向键左右移动呢? 比较老实的办法是在常规里面设置方向,但是缺点是输入完成后始终朝某个方向前进,不会换行。 如何实现我们上面的需求?分享个代码: Private Sub Worksheet_Change(ByVal Target As Range)      If Target.Count = 1 Then

VBA替换字体格式

当一张数据表里有多种字体格式,比如有10号字体,11号,15号,那如何将10号字体转换成12号字体,并标记为红色。 也许有童鞋会说,那还不简单,一个个改就是了。 是的!这是一个方案。数据量少是很方便,倘若10号字体的数据有上千个,你会认为手动修改是最简便的吗? 分享个宏代码: Sub 替换字体格式()      Application.FindFormat.Clear        Ap

VBA隐藏相关工作表

        在实际进行开发时,很多工作表中的数据都是后台的,主要用来存储程度代码所需的数据。 为了保证整个过程的有效性,这些数据需要隐藏起来防止他人更改。 隐藏代码;   Sub 隐藏工作表()    ‘    ‘ 隐藏工作表 Macro    ‘ 宏由 Kael.Z&

VBA锁定条件区域

今天看到一个锁定的例子,很不错,所以就折腾了下。 特定区域的锁定。比如将A列~D列的范围锁定起来~ 写个宏! 代码如下:   Sub 锁定()    Dim a As Long    a = Sheets(1).[b65536].End(xlUp).Row        ActiveSheet.Unprotect  &

VBA设置单元格滚动范围

在默认情况下,我们都能看到整个工作表的单元格范围。 但是有些特殊情况下,不想让其他人看到所有的范围。 那只有限制工作表的的滚动范围了。 宏代码如下: Sub Set_scrollarea_cells()    ‘    ‘ Set_scrollarea_cells Macro    ‘ 宏由 Kael.Z 录制,时间: 2011/6