VBA编程简化Excel操作的两个实例

VBA编程简化Excel操作的两个实例 VBA编程编化Excel操作的编例两个 编起用VBA编程～多人都编编是困编的事情～是编程高手编的游编。然～编编的编法也不无道理～因编很很当 VBA编程需要有面向编象程序编编的基编～要求编程的人要得编象、事件、性的念和熟悉懂属概VB程序编编的表达会方式～编些都使人望而生畏。 　　Excel的“编制宏”功能～是VBA编编编用的良好编。编合在体DOS里编的一点点学BASIC编言基编～就能编写VBA程序～解我编工作中的一些具编编。决体 　　例1、制作编易工编条 　　工编打印是编编在工编表中每编工工编据前加一行表编～工编据后加一空行～其步编如下条个数数个:　　1、编制新宏。 　　在Excel工编表中～编编菜编上的“工具”、“宏”、“编制新宏”命令～在编出的“编制新宏”编编中“宏框名(M)”编上“工编”、“保存在填条( I )”编编编“前工作簿”后～点“定”编编当确1。 编1 　　2、入表编和空行插 　　右编工编表的第一行～表编～编快捷菜编的“编制”命令～再右编工编表的第三行～编快捷菜编的“入编制编即插 元格”命令～在第二人的工编据前入表编个数插;再右编第三行～编快捷菜编的“入”命令～入一空行。插插个　　3、停止编制 　　点菜编的“工具”、“宏”、“停止编制”命令～停止宏的编制。 　　4、编看编制的宏程序 　　点菜编的“工具”、“宏”、“宏”命令或直接用快捷编“Alt + F8”打编“宏”编编～在“宏名”编编编框“工编”～点“编编”打编编制的宏程序代编编编条2。 编2 　　5、在编制的宏程序中添加循编编句 　　假如工编表中有200人。只需添加一循编编句个: 　　For I=1 To 200 　　Next 　　并将Rows("3:3").Select 编固定的编句～更改编循编编量条随I编化的编句:　　Rows( I * 3 ).Select就行了～编编3。 编3 　　编在再编行 “工编”编宏～来条个200人的工编在瞬编就制作出了～有成就感～不编得编程也条来很吧 是有趣的事编很? 例2、取消编元格中的超编编接 　　有编把编上的表格编制到编子表格中后～编中的超编编接也编制编了～如编网网来4中的A列～稍不注意～鼠编一点上～就打编相编的编接～编人～要取消编些编元格中的超编接～一一的取消麻编～我编就编会很个个很VBA来帮忙。 　　1、编制新宏 　　同例1～宏名编“取消超编接” 　　2、取消一编元格中的超编接个 　　在编4所示的工作表中右编A2编元格～编快捷菜编中的“超编编接”、“取消超编编接”命令。 编4 　　3、停止编制 　　同例1。 　　4、编看编制的宏程序 　　同例1～如编5。 编5　　5、在编制的宏程序中添加循编编句 　　?用Do While …Loop编句编编据表的列数数 　　i = 1 　　Do While Cells(1, i) <> ""　　　 ’ 编编表格的列数 　　 i = i + 1 　　　 ’ i 编表格的列数 　　 Loop 　　?用Do While …Loop编句编编据表的行数数 　　j = 1 　　Do While Cells(j, 1) <> ""　　 ’ 编编表格的行数 　　 j = j + 1 　　 ’j 编表格的行数 　　 Loop 　　?添加重循编双for … next 编句遍编所有编元格。　　?修改编编编句 Range(“A2”).Select 编 Cells(m, n).Select 编其循编编量编化。编编随6 编6　　编行 “取消超编接”编宏～表格中所有编元格的超编接都被取消了。然～要取消表格中的超编接～也个当 可以通编存编文本文件的方式编编～但通编编例子～我编掌握了编编据表中的行、列的一通用方法。另来个数数个 　　通编以上例～我编到两体会: 　　?通编“编制新宏”功能得到核心编句;　　?用运BASIC编言的循编编句编编自编编理;　　?编其中的编编编句稍加改编～使之循编编量编化。就能解编多编子表格中的操作编编～随决 　　只要编常编编制宏得到的核心编句编行分析～遇到其中不理解的编句就借助Office的助编～相信的编帮来学你 程能力有大的编编。会很 　　以上代编在Office2000、Office2002中编编通编。 　　附:例子的源程序两个 　　 　　1、工编打印源程序, 条 　　Sub 工编条() 　　’ 　　’ 工编打印宏 条Macro 　　’ 编编的宏 2005-5-12 　　’ 　　 　　’ 　　 k = 2 　　 For i = 1 To 54 　　 j = i + k 　　 Rows("1:1").Select　　 Selection.Copy 　　 Rows(j).Select 　　 Selection.Insert Shift:=xlDown 　　 k = k + 1 　　 Next 　　 　　End Sub 2、取消超编接源程序, 　　 Sub Delete_Hyperlinks() ’ 取消编接的宏 　　 i = 1 　　 Do While Cells(1, i) <> "" ’ 编编表格的列数 　　 i = i + 1 　　 Loop 　　 j = 1 　　 Do While Cells(j, 1) <> "" ’ 编编表格的行 　　 数j = j + 1 　　 Loop 　　 For m = 1 To j - 1 　　 For n = 1 To i - 1 　　 Cells(m, n).Select 　　 Selection.Hyperlinks.Delete　　 Next n 　　 Next m 　　 End Sub