EXCEL的一些技巧应用（三）.docVIP

EXCEL的一些技巧应用（3） 1、Excel中累加的小技巧 　　在使用Excel时，常常需要在已有数值的单元格中再增加或减去另一个数。一般是在计算器中计算后再覆盖原有的数据。这样操作起来很不方便。这里有一个小技巧，大家不妨一试。 　　1.创建一个宏。 　　选择Excel选单下的“工具→宏→录制新宏”选项; 　　宏名为：MyMicro; 　　快捷键为：Ctrl+Shift+J(只要不和 Excel本身的快捷键重名就行); 　　保存在：个人宏工作簿(可以在所有 Excel 工作簿中使用)。 　　2.用鼠标选择“停止录入”工具栏中的方块，停止录入宏。 　　3.选择Excel选单下的“工具→宏→Visual Basic 编辑器”选项。 　　4.在“Visual Basic 编辑器”左上角的VBAProject中用鼠标双击VBAProject (Personal.xls) 打开“模块→Module1”。 　　注意：你的模块可能不是Module1 ，也许是Module2、Module3。 　　5.在右侧的代码窗口中将Personal.xls-Module1(Code)中的代码更改为： 　　Sub MyMicro( ) 　　OldValue = Val (ActiveCell.Value ) 　　InputValue = InputBox ( “输入数值，负数前输入减号”,“小小计算器”) 　　ActiveCell.Value = Val (OldValue + InputValue) 　　End Sub 　　6.关闭Visual Basic编辑器。 　　编辑完毕，你可以试试刚刚编辑的宏，按下Shift+Ctrl+J键，输入数值并按下“确定”键。 快速统计Excel表格单元格个数 　　我们在使用Excel处理数据时，有时需要统计指定范围单元格的个数，如果一个一个地数实在太费力了。其实我们只要进行简单设置就可以快速统计出Excel表格指定范围单元格的个数。方法如下。 　　打开Excel文件，然后右击Excel窗口下面的状态栏，在弹出的快捷菜单中选择“计数”，这时只需选中要统计个数的单元格，状态栏右侧就会显示“计数=XX(选中单元格的个数)”，非常方便。 编写“宏”让Excel自动合并选中单元格内容 　　在用Excel整理表格数据时，希望能够自动合并选中区域内所有单元格的内容，但是Excel软件自带的合并功能无法满足这个要求，应该怎么办呢？ 　　我们可以编写一个“宏”来实现，它可以巧妙地保存选区中所有单元格内的数据，通过循环赋值到一个变量中，最后再将结果输出到合并后的单元格内。 代码如下： Sub 合并单元格()关闭屏幕更新和警告提示Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseDim i%循环统计选中区域的单元格数据并将其合并到StrTotal中For i = 1 To Selection.CountStrTotal = StrTotal Selection.Cells(i)Next设置选区格式With Selection.MergeCells = True.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.Value = StrTotal? 在合并数据前加 号End With恢复屏幕更新和警告提示Application.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub 　　将上面的宏指定给一个自定义的工具栏按钮。接下来我们就可以测试一下结果了，如在几个不相邻的单元格内依次输入不同的数据(可以是文字、字母或数字)，最后选中所有的数据区域，单击刚才自定义的按钮，就可以看到合并的效果了。 用VBA代码编写一键插入Excel斜线表头 有的时候，我们要在Excel中添加斜线表头，可Excel并没有提供制作斜线表头的功能，每次都要手工画一条斜线，非常麻烦。有没有解决方法呢？其实，我们可以利用VBA代码可以编写一个功能，一键插入Excel斜线表头。 　　用“控件工具箱”中的“命令按钮”控件，在工作表中绘制一个命令按钮，将“Caption”属性改为“一键插入斜线表头”，双击该按钮，在“Click”事件中编写代码，其中关键代码如下。 关键代码： 　　获取行标题和列标题　　Dim icol， irow As String　　icol=InputBox（请输入斜线单元格的行标题， 行标题）　　irow=InputBox（请输入斜线单元格的列标题， 列标题）　　Selection.