EXCEL中VBA的一些应用.docVIP

EXCEL中VBA的一些应用（1） 1、编写“宏”让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.Value = icol + ??? + irow　　判断字符串是否符合规定　　If Len（icol） = 0 or Len（irow） = 0 Then　　MsgBox （输入的标题为空！）　　Exit Sub　　End If　　判断选区是否只有一个单元格　　If Selection.Count 1 Then　　MsgBox （请选择一个单元格再执行此操作！）　　Exit Sub　　End If　　设置左上至右下的斜线　　With Selection.Borders（xlDiagonalDown）　　.LineStyle = xlContinuous　　.Weight = xlThin　　.ColorIndex = xlAutomatic　　End With 　　代码编写好以后，需要插入斜线表头的时候，先选中需要插入斜线表头的单元格（如果选中的单元格超过一个，系统会给出错误提示），单击“一键插入斜线表头”按钮，系统会提示输入表头的行、列标题，分别输入表头的行标题（例如星期）和列标题（例如班级）即可。非常方便。 编写Excel宏 轻松完成单元格数据互换 如何实现Excel表格中两个单元格区域间的数据交换呢？通常我们使用剪切粘贴的方法来完成，但这个方法比较繁琐，如果数据区域较大还容易出错。下面我们试着来编写一个可以实现该功能的“宏”吧。 　　打开“工具”菜单中的“宏”，选择“录制新宏”命令，在个人宏工作簿中(Personal.xls)创建一个名为Exchange 的宏，代码如下： 代码： 　　判断用户是否选择了两个单元格或单元格区域　　If Selection.Areas.Count = 2 Then　　Set XR = Selection.Areas（1）　　Set YR = Selection.Areas（2）　　判断选区是否重叠　　If Not Intersect（XR， YR） Is Nothing Then　　Result = MsgBox（ 选择区域有重叠！交换后重叠区域的数据将有部份被覆盖！ vbCrLf 是否继续？， vbYesN