利用宏轻松解决表格中两个单元格区域间的数据交换.docVIP

Excel表格中两个单元格区域间的数据交换 当我们在使用Excel办公软件进行表格的处理时,如果想要对Excel表格中两个单元格区域间的数据进行交换,我们该如何进行操作呢？一般情况下,我们都会借助于Excel的剪切与粘贴的命令来进行数据交换。不过,这个方法在实际操作起来还是相当麻烦的,此外,如果我们需要交换的两个单元格数据区域如果较大,在交换时还十分容易出错。在今天的文章中,软件直销网小编,将会为大家带来一个十分简单的,实现Excel表格中两个单元格区域间的数据进行交换的技巧,供大家在使用时进行参考。 ??? 事实上,今天小编要讲解的这个方法,就是利用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 是否继续？, vbYesNo） 　????? 　If Result = vbNo Then Exit Sub 　????? 　End If 　　????? If XR.Rows.Count = YR.Rows.Count And XR.Columns.Count = YR.Columns.Count Then 　???????? 　交换选区 　???????? 　SZ1 = XR.Formula 　???????? 　SZ2 = YR.Formula 　?????????　XR.Formula = SZ2 　　???????? YR.Formula = SZ1 　????? 　Else 　???????? 　MsgBox 选择的两个数据区域大小不同！请确认并进行重新选择！ 　????? 　End If 　　Else 　???　MsgBox 请按住Ctrl键选择两个要交换的单元元格数据区域！ ?? ? End if ? 　　步骤二：将宏指定给按钮 　　即使通过快捷键可以是宏的执行变快,但是一旦宏的数量多了也难于记忆,而且,如果宏是由其他人来使用,难道你要他们也记住那么多的快捷键吗? 　　作为EXCEL开发者,一个主要的目标是为自动化提供一个易于操作的界面.按钮是最常见的界面组成元素之一.通过使用窗体工具栏，可以为工作簿中的工作表添加按钮。在创建完一个按钮后，可以为它指定宏，然后你的用户就可以通过单击按钮来执行宏。在本练习中，将创建一个按钮，并为它指定一个宏，然后用该按钮来执行宏。具体步骤如下： 　　1）打开*****.xls工作簿。 　　2）从“视图”菜单下的“工具栏”中调出窗体工具栏。 　　3）单击窗体工具栏中的按钮控件，此时鼠标变成十字形状。 　　4）在希望放置按钮的位置按下鼠标左键，拖动鼠标画出一个矩形，这个矩形代表了该按钮的大小。对大小满意后放开鼠标左键，这样一个命令按钮就添加到了工作表中，同时EXCEL自动显示指定宏对话框。 　　5）从指定宏对话框中选择编好的宏“Exchange”，单击确定。这样，就把该宏指定给命令按钮。 　　6）在按钮的标题按钮1前单击鼠标左键，按下DELETE直到删除所有文本，输入交换区域作为标题。 　　7）单击按钮外的任意位置，现在该按钮的标题变为交换区域而且被指定了一个宏。 　　8）试着用“Ctrl”键选中两个单元格中或单元格区域，单击按钮运行该宏。 　　当鼠标移动至该按钮时自动变成手的形状，如果要改变其大小或标题，只需用右键单击该按钮就可以进行修改和设置。很明显，你再也不需记住宏的名字或快捷键了，只需按一下按钮。 ??? 当然,假如我们选中的两个单元格的区域大小(单元格个数)不同,或者我们选择的数据少于2个,那么,系统将会按照上面我们所录入的命令,给出相应的错误提示。