vb表格宏命令.docx

1、vb表格宏命令竭诚为您提供优质文档/双击可除vb表格宏命令篇一：利用宏命令锁定excel公式利用宏命令锁定excel公式为了防止excel里面做好的公式误被他人修改，通常大家会通过设置“保护工作表”的方式来锁定，但锁定后别人点击就会弹出对话框，很麻烦。本文介绍一个通过宏命令来锁定公式的方式，别人根本无法点击锁定后的公式单元格，这样就显得很高大上：）一、录制宏打开excel20xx，在视图里面找到宏图标（20xx版本在工具菜单里寻找），如果没有找到，请打开文件菜单，底部进“选项”，点最下“信任中心”，进入“信任中心设置”，点击“宏设置”，启用宏，然后回到excel就能找到宏图标了。点击“录制宏”

2、选择保存在个人宏工作簿，确定然后点击右下角的二、编辑Vb宏命令按alt+F11，进入Vb工程界面蓝色方块，停止录制选择模块1，双击进入编辑模式将代码栏中的所有内容全部删除然后把以下代码复制进去（分割线中间）-分割线-sub保护公式()activesheet.unprotect(12345678)解除对工作表的保护cells.select选中整个表格selection.locked=False解除锁定selection.specialcells(xlcelltypeFormulas,23).select选中包含公式的单元格selection.locked=true添加锁定selection.Fo

3、rmulahidden=true添加隐藏activesheet.protect(12345678)保护工作表，并设置密码activesheet.enableselection=xlunlockedcells让锁定单元格不能选中endsub-分割线-然后，结果如下图，请核对点击文件菜单，选择“关闭并返回excel”三、执行宏点击“查看宏”点击“执行”，就可以执行了（提示：无内容的空文档执行时会出错，别担心，打开一个有公式的文档，就可以顺利执行了）四、建立快捷方式点击“自定义快速访问工具栏”从下来菜单中选择宏，这时可以看到保护公式的宏，点“添加”在最顶上就可以看到宏了，以后打开文档后直接点击该按钮

4、，就会自动执行保护公式的宏了。温馨提示：代码栏中的“12345678”是保护文档的密码，大家可以自由设置密码，可以替换。其余的代码请不要改变。如果不想保护公式了，可以通过“取消保护工作表”来实现，密码就是你设置的密码（若未改变则为12345678），然后公式就可以自由修改了。本文为原创，大家可以自由使用，但谢绝转载。作者：有风吹过20xx.4.16篇二：excel常用宏编程的代码学习excel常用宏编程的代码学习用过Vb的人都应该知道如何声明变量，在Vba中声明变量和Vb中是完全一样的！使用dim语句dimaasinteger声明a为整型变量dima声明a为变体变量dimaasstring声明

5、a为字符串变量dimaascurrency,bascurrency,cascurrency声明a,b,c为货币变量.声明变量可以是：byte、boolean、integer、long、currency、single、double、decimal（当前不支持）、date、string（只限变长字符串）、string*length（定长字符串）、object、Variant、用户定义类型或对象类型。强制声明变量optionexplicit说明：该语句必在任何过程之前出现在模块中。声明常数用来代替文字值。const常数的默认状态是private。constmy=456声明public常数。publi

6、cconstmystring=help声明privateinteger常数。privateconstmyintasinteger=5在同一行里声明多个常数。constmystr=hello,mydoubleasdouble=3.4567选择当前单元格所在区域在excel97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。submy_selectselection.currentRegion.selectendsub返回当前单元格中数据删除前后空格后的值submy_trimmsgboxtrim(a

7、ctivecell.Value)endsub单元格位移submy_offsetactivecell.offset(0,1).select当前单元格向左移动一格activecell.offset(0,-1).select当前单元格向右移动一格activecell.offset(1,0).select当前单元格向下移动一格activecell.offset(-1,0).select当前单元格向上移动一格endsub如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往submy_offset之下加一段代码onerrorresumenext注意以下代码都不再添加sub“代码名称”和

8、endsub请自己添加!给当前单元格赋值activecell.Value=你好！给指定单元格赋值例如：单元格内容设为Range(a1).value=hello又如：你现在的工作簿在sheet1上，你要往sheet2的单元格中插入1.sheets(sheet2).selectrange(a1).value=hello或2.sheets(sheet1).Range(a1).Value=hello说明：1.sheet2被选中，然后在将“hello赋到a1单元格中。2.sheet2不必被选中，即可“hello赋到sheet2的a1单元格中。隐藏工作表隐藏sheet1这张工作表sheets(sheet1

9、).Visible=False显示sheet1这张工作表sheets(sheet1).Visible=true打印预览有时候我们想把所有的excel中的sheet都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。dimmyasworksheetForeachmyinworksheetsmy.printpreviewnextmy得到当前单元格的地址msgboxactivecell.address得到当前日期及时间msgboxdate删除所有文字、批注、格式返回选定区域的行数msgboxselection.Rows.count返回选定区域的列数msgboxse

10、lection.columns.count返回选定区域的地址selection.address忽略所有的错误oneRRoRResumenext遇错跳转onerrorgotoerr_handle中间的其他代码err_handle:标签跳转后的代码删除一个文件killc:1.txt定制自己的状态栏application.statusbar=现在时刻:&time恢复自己的状态栏application.statusbar=false用代码执行一个宏application.Runmacro:=text滚动窗口到a1的位置activewindow.scrollRow=1activewindow.scrol

11、lcolumn=1定制系统日期dimmydate,mydaymydate=#12/12/69#myday=day(mydate)返回当天的时间dimmydate,myyearmydate=datemyyear=year(mydate)msgboxmyyearinputboxxx=inputbox(enternumberofmonthstoadd)得到一个文件名dimkkasstringkk=application.getopenFilename(excel(*.xls),*.xls,title:=提示：请打开一个excel文件：)篇三：excel宏入门教程excel宏入门教程在介绍学习Vba之

12、前，应该花几分钟录制一个宏。新术语：“宏”，指一系列excel能够执行的Vba语句。以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤：1)打开新工作簿，确认其他工作簿已经关闭。2)选择a1单元格。调出“常用”工具栏。3)选择“工具”“宏”“录制新宏”。4)输入“改变颜色”作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示“录制”，特别是“停止录制”工具栏也显示出来。替换默认宏名主要是便于分别这些宏。宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。5)选择“格式”的“单元格”，选择“图案”选项中的红

13、色,单击“确定”。6)单击“停止录制”工具栏按钮，结束宏录制过程。如果“停止录制”工具栏开始并未出现，请选择“工具”“宏”“停止录制”。录制完一个宏后就可以执行它了。1.4执行宏当执行一个宏时，excel按照宏语句执行的情况就像Vba代码在对excel进行“遥控”。但Vba的“遥控”不仅能使操作变得简便，还能使你获得一些使用excel标准命令所无法实现的功能。而且，一旦熟悉了excel的“遥控”，你都会奇怪自己在没有这些“遥控”的情况下，到底是怎么熬过来的。要执行刚才录制的宏，可以按以下步骤进行：1）选择任何一个单元格，比如a3。2）选择“工具”“宏”“宏”，显示“宏”对话框。3）选择“改变颜

14、色”，选择“执行”，则a3单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。1.5查看录制的代码到底是什么在控制excel的运行呢你可能有些疑惑.好,让我们看看Vba的语句吧.1）选择“工具”“宏”“宏”，显示“宏”对话框。2）单击列表中的“改变颜色”,选择“编辑”按钮。此时，会打开Vba的编辑器窗口（Vbe）。关于该编辑器，以后再详细说明，先将注意力集中到显示的代码上。代码如下：（日期和姓名会有不同）sub改变颜色()改变颜色macroxw记录的宏2000-6-10withselection.interior.colorindex=3.pattern

15、=xlsolid.patterncolorindex=xlautomaticendwithendsub将来会十分熟悉这种代码，虽然现在它们看上去像一种奇怪的外语。学习Vba或编程语言在某种程度上比较像在学习一种外语。sub改变颜色():这是宏的名称。中间的以“”开头的五行称为“注释”，它在录制宏时自动产生。以with开头到endwith结束的结构是with结构语句，这段语句是宏的主要部分。注意单词“selection”，它代表“突出显示的区域”（即：选定区域）。withselection.interior：它读作“选择区域的的内部”.这整段语句设置该区域内部的一些“属性”。其中：.colori

16、ndex=3:将该内部设为红色。注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在with后的词,它是with结构的一部分。另外：红色被数字化为3.(红色警戒是否可称作：3号警戒，嗯？)有兴趣的话，你将3改为其他数字试试看。.pattern=xlsolid：设置该区域的内部图案。由于是录制宏，所以，虽然你并未设置这一项，宏仍然将其记录下来(因为在“图案”选项中有此一项，只是你为曾设置而已）。xlsolid表示纯色。.patterncolorindex=xlautomatic：表示内部图案底纹颜色为自动配色。endwith:结束with语句。endsub:整个宏的结束语1.6编辑录制的代码

17、在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上并不起作用。哪两句？现在，在宏中作一个修改，删除多余行，直到和下面代码相同：sub改变颜色()改变颜色macroxw记录的宏2000-6-10withselection.interior.colorindex=3endwithendsub完成后，在工作表中试验一下。你会发现结果和修改前的状况一样。在with语句前加入一行:Range(a5).select试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使a5单元格变红.现在可以看到，编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一：在录制中出错而不得不修改。二：录制

18、的宏中有多余的语句需要删除，提高宏的运行速度。三：希望增加宏的功能。比如：加入判断或循环等无法录制的语句。1.7录制宏的局限性希望自动化的许多excel过程大多都可以用录制宏来完成.但是宏记录器存在以下局限性.通过宏记录器无法完成的工作有:1)录制的宏无判断或循环能力.2)人机交互能力差,即用户无法进行输入,计算机无法给出提示.3)无法显示excel对话框.4)无法显示自定义窗体.1.8小结本学習中,你已经掌握了Vba的一些基础知识,你会录制宏、编辑宏而且了解了录制宏的局限性.你很努力.并且已经为将来学习Vba甚至Vb等编程语言打下了基础.关键是你已经了解了一个谜底,就是说,你了解了什么是编程.