5、避免循环引用

　　在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，防止循环引用错误。

　　6、添加批注

　　可按如下方法格给单元格添加批注：

　　Dim 批注文本 As String

　　批注文本="批注示例" '准备批注文本

　　ActiveCell.AddComment '添加批注

　　ActiveCell.Comment.Text Text:=临时 '写入批注文本

　　ActiveCell.Comment.Visible=False '隐藏批注

　　7、添加、删除、复制、剪切、粘贴单元格

　　Range("D10").Insert Shift:=xlToRight '在D10单元格处添加一新单元格，原D10格右移

　　Range("C2").Insert Shift:=xlDown '在C2单元格处添加一新单元格，原C2格下移

　　Rows(2).EntireRow.Insert '在第2行前添加一空白行，原第2行下移

　　Columns(3).EntireColumn.Insert '在C列前添加一空白列，原C列右移

　　Columns("A:D").Delete Shift:=xlToLeft '删除A列至D列，其右侧列左移

　　Rows("3:5").Delete Shift:=xlUp '删除第3行至第5行，其下方行上移

　　Range("B2").EntireRow.Delete '删除第2行

　　Range("C4").EntireColumn.Delete '删除C列

　　Range("B10:C13").Copy '复制B10至C13单元格区域

　　Cells(1,2).Cut '剪切B1单元格

　　Range("D10").Select

　　ActiveSheet.Paste '自D10单元格起粘贴剪贴板中的内容

　　四)、图表

　　1、工作表图表

　　以下为一添加工作表图表的实例。

　　Charts.Add after:=Worksheets("Sheet1") '在"Sheet1"工作表之后添加新图表工作表

　　ActiveChart.ChartType=xlXYScatterSmooth '图表类型为XY平滑线散点图

　　ActiveChart.SetSourceData Source:=Sheets("结点坐标").Range("A1:B69"), PlotBy:= _

　　xlColumns '图表数据来源于"结点坐标"工作表的A1至B69单元格，且按列绘图。

　　ActiveChart.Location Where:=xlLocationAsNewSheet

　　With ActiveChart

　　.HasTitle = True

　　.ChartTitle.Characters.Text = "节点坐标" '图表标题"节点坐标"

　　.Axes(xlCategory, xlPrimary).HasTitle = True

　　.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x" 'x轴标题"x"

　　.Axes(xlValue, xlPrimary).HasTitle = True

　　.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y" 'y轴标题"y"

　　End With

　　With ActiveChart.Axes(xlCategory)

　　.HasMajorGridlines = True '显示x轴主网格线，默认情况下为显示

　　.HasMinorGridlines = True '显示x轴次网格线，默认情况下为不显示

　　End With

　　With ActiveChart.Axes(xlValue)

　　.HasMajorGridlines = True '标出x轴主网格值，默认情况下为标注

　　.HasMinorGridlines = False '取消x轴次网格值标注，默认情况下为不标注

　　End With

　　ActiveChart.Legend.Position = xlRight '图例显示在图表右侧

　　2、嵌入式图表

　　嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同，而对图表的设置基本类似。详见下例。

　　Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300) '在当前工作表(0,0)坐标处添加宽200，高300的嵌入式图表

　　嵌入表.Chart.ChartType = xlColumnClustered '图表类型为簇状柱形图

　　嵌入表.Chart.SetSourceData Source:=Sheets(1).Range("A2:B2"), PlotBy:=xlRows '设置图表数据来源

　　With 嵌入表.Chart

　　.HasTitle = False '无图表标题

　　.Axes(xlCategory, xlPrimary).HasTitle = False '无x轴标题

　　.Axes(xlValue, xlPrimary).HasTitle = False '无y轴标题

　　End With

　　五)、工作表

　　1、添加

　　Sheets.Add before:=Sheets(1) '在第1工作表前添加新工作表

　　Sheets.Add after:=Sheets(Sheets.Count) '在最后工作表后添加新工作表

　　2、移动

　　ActiveSheet.Move before:=Sheets(2) '将当前工作表移动至第2工作表之前

　　3、命名

　　ActiveSheet.Name="工作表名" '将当前工作表命名为"工作表名"

　　4、删除

　　可以用以下语句删除当前工作表。

　　ActiveSheet.Delete

　　但在删除前Excel会自动弹出提示框，需在用户确认后方可执行删除。为避免这一干扰，可以先用以下语句关闭Excel的警告提示。

　　Application.DisplayAlerts = False

　　在删除完成后，再重新打开Excel的警告提示

　　Application.DisplayAlerts = True

　　六)、工作簿

　　Excel的宏对工作簿的操作主要为保存。

　　Dim 存盘文件名 As String

　　ActiveWorkbook.Save '保存当前工作簿

　　存盘文件名="工作表名"

　　ActiveWorkbook.SaveAs Filename:= 存盘文件名 '当前工作簿另存为"工作表名.xls"

　　在另存时，若指定的存盘文件名不包含路径，则保存在该工作簿的打开目录下。而若此存盘文件已存在，也可用关闭Excel警告提示的方法以免其自动弹出提示框。

　　用VBA的几个误区:

　　1、想通过Excel+vba来编程发财，不管怎么说，目前这种可能性很小。

　　2、录制宏后的代码不进行简化，这种情况初学者常犯;或者不屑于用录制宏，这种相反。

　　3、喜欢用.select、.copy、.active等，如果不是迫不得已，还是不要用这些东西好。

　　4、不喜欢用公式、函数，什么都喜欢用程序;活用公式函数是我们学EXCEL中重要的重点，学会嵌套着用，很多事情都可以解决。譬如表1的A1单元格如果要等于表2的A列中的某个单元格，很多人都是用程序来直接赋值，数量少这也可以，但如果数量很多的话，为何不试用一下offset呢?偏移都指向同一个单元格，就当是一个变量，改一下这个单元格的值，表1用offset的单元格的值就全部改了。

　　5、设计输入数据的界面竟然用用户窗口+文本框之类的东西，天，我为什么要用EXCEL，原因之一不就是图个方便吗?!直接在工作表中操作就是输入数据最好的方法，如果一些功能你不想给别人用，顶多你屏蔽掉吧。

　　6、关闭程序的时候很喜欢退出整个EXCEL，这样自我感觉更象一个完整的程序。其实完全有必要考虑其他用户是否也在用EXCEL，所以，必须做好一下判断，不要自作聪明全部退出来，还帮忙把每个工作簿都保存一下。

　　7、不喜欢用with，总是workbook("").worksheet("").range("").***一行行排得挺整齐的，还说都用复制，其实也不麻烦。

　　8、总想把VBA+EXCEL做得象一个程序一样，其实，就因为它不独立，所以才更加为我们喜爱，不是吗?

　　9、用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的!

　　使用Dim语句

　　Dim a as integer '声明A为整形变量

　　Dim a '声明A为变体变量

　　Dim a as string '声明A为字符串变量

　　Dim a,b,c as currency '声明A,b,c为货币变量

　　声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(当前不支持)、Date、String(只限变长字符串)、String * length(定长字符串)、Object、Variant、用户定义类型或对象类型。

　　强制声明变量

　　Option Explicit

　　说明：该语句必在任何过程之前出现在模块中。

　　声明常数，用来代替文字值。

　　Const

　　' 常数的默认状态是 Private。

　　Const My = 456

　　' 声明 Public 常数。

　　Public Const MyString = "HELP"

　　' 声明 Private Integer 常数。

　　Private Const MyInt As Integer = 5

　　' 在同一行里声明多个常数。

　　Const MyStr = "Hello", MyDouble As Double = 3.4567

　　在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。

　　Sub My_Select

　　Selection.CurrentRegion.Select

　　End sub

　　删除当前单元格中数据的前后空格。

　　sub my_trim

　　Trim(ActiveCell.Value)

　　end sub

　　使单元格位移

　　sub my_offset

　　ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格

　　ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格

　　ActiveCell.Offset(1 , 0).Select'当前单元格向下移动一格

　　ActiveCell.Offset(-1 , 0).Select'当前单元格向上移动一格

　　end sub

　　如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往

　　sub my_offset 之下加一段代码 on error resume next

　　注意以下代码都不再添加 sub “代码名称” 和end sub请自己添加!

　　给当前单元格赋值：

　　ActiveCell.Value = "你好!!!"

　　给特定单元格加入一段代码:

　　例如：在A1单元格中插入"HELLO"

　　Range("a1").value="hello"

　　又如：你现在的工作簿在sheet1上，你要往sheet2的A1单元格中插入"HELLO"

　　1.sheets("sheet2").select

　　range("a1").value="hello"

　　或2.Sheets("sheet1").Range("a1").Value = "hello"

　　说明：

　　1.sheet2被打开，然后在将“HELLO"放入到A1单元格中。

　　2.sheet2不被打开，将“HELLO"放入到A1单元格中。

　　隐藏工作表

　　'隐藏SHEET1这张工作表

　　sheets("sheet1").Visible=False

　　'显示SHEET1这张工作表

　　sheets("sheet1").Visible=True

　　有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。

　　Dim my As Worksheet

　　For Each my In Worksheets

　　my.PrintPreview

　　Next my

　　得到当前单元格的地址

　　msgbox ActiveCell.Address

　　得到当前日期及时间

　　msgbox date & chr(13) & time

　　保护工作簿

　　ActiveSheet.Protect

　　取消保护工作簿

　　ActiveSheet.Unprotect

　　给当前工作簿改名为 "liu"

　　ActiveSheet.Name = "liu"

　　打开一个应用程序

　　AppActivate (Shell("C:/WINDOWS/CALC.EXE"))

　　增加一个工作簿

　　Worksheets.Add

　　删除当前工作簿

　　activesheet.delete

　　打开一个文件

　　Workbooks.Open FileName:="C:/My Documents/Book2.xls"

　　关闭当前工作簿

　　ActiveWindow.Close

　　当前单元格定为：左对齐

　　Selection.HorizontalAlignment = xlLeft

　　当前单元格定为：中心对齐

　　Selection.HorizontalAlignment = xlCenter

　　当前单元格定为：右对齐

　　Selection.HorizontalAlignment = xlRight

　　当前单元格为百分号风格

　　Selection.Style = "Percent"

　　当前单元格字体为粗体

　　Selection.Font.Bold = True

　　当前单元格字体为斜体

　　Selection.Font.Italic = True

　　当前单元格字体为宋体20号字

　　With Selection.Font

　　.Name = "宋体"

　　.Size = 20

　　End With

　　With 语句

　　With 对象

　　.描述

　　End With

　　让你的机器发出响声

　　BEEP

　　清除单元格中所有文字、批注、格式、所有的东西!

　　ActiveCell.Clear

　　测试选择状态的单元格的行数

　　MsgBox Selection.Rows.Count

　　测试选择状态的单元格的列数

　　MsgBox Selection.Columns.Count

　　测试选择状态的单元格的地址

　　Selection.Address

　　让所有的错误不再发生

　　ON ERROR RESUME NEXT

　　产生错误时让错误转到另一个地方

　　on error goto l

　　'code

　　l:

　　'code

　　删除一个文件

　　kill "c:/1.txt"

　　定制自己的状态栏

　　Application.StatusBar = "现在时刻: " & Time

　　恢复自己的状态栏

　　Application.StatusBar = false

　　在运行期执行一个宏

　　Application.Run macro:="text"

　　滚动窗口到a1的位置

　　ActiveWindow.ScrollRow = 1

　　ActiveWindow.ScrollColumn = 1

　　定制系统日期

　　Dim MyDate, MyDay

　　MyDate = #12/12/69#

　　MyDay = Day(MyDate)

　　今天的年限

　　Dim MyDate, MyYear

　　MyDate = Date

　　MyYear = Year(MyDate)

　　MsgBox MyYear

　　产生一个inputbox<输入框>

　　InputBox ("Enter number of months to add")

　　得到一个文件名：

　　Dim kk As String

　　kk = Application.GetOpenFilename("EXCEL (*.XLS), *.XLS", Title:="提示：请打开一个EXCEL文件：")

　　msgbox kk

　　打开zoom显示比例对话框

　　Application.Dialogs(xlDialogZoom).Show

　　激活字体对话框

　　Application.Dialogs(xlDialogActiveCellFont).Show

　　打开另存对话框

　　Dim kk As String

　　kk = Application.GetSaveAsFilename("excel (*.xls), *.xls")

　　Workbooks.Open kk

　　此段代码寻找字符串中特定字符的位置，需要建立一个窗体，并在窗体中，放入TEXTBOX1,TEXTBOX2和TEXTBOX3(3个文本框)及COMMANDBUTTON1(按钮)

　　Private Sub CommandButton1_Click()

　　a = TextBox1.Text

　　b = TextBox2.Text

　　aa = Len(a)

　　i = 1

　　Dim YY As String

　　If b = "" Then Exit Sub

　　Do

　　If InStr(i, a, b, vbTextCompare) = 0 Then Exit Do

　　kk = InStr(i, a, b, vbTextCompare)

　　YY = YY & CStr(kk) & "/"

　　i = kk + 1

　　Loop While aa >= i

　　TextBox3.Text = YY

　　End Sub

　　ActiveX控件在Excel97中的运用

　　Excel97在工作表或图表上可使用ActiveX控件，根据我使用的体会，在工作上处理控件时，必须注意和了解如下事项： (一)用Excel5.0/95工作簿文件格式保存Excel97工作簿时，将选择ActiveX控件信息。当用户通过双击鼠标来编辑内嵌在其它应用程序文档中的Excel97工作簿时，该工作簿上的控件将不会正常工作。如果用户是通过用右键单击工作簿，然后选中快捷菜单上的“打开”命令来编辑工作簿的话，工作簿上的控件就能正常工作了。

　　(二)当ActiveX控件处于激活状态时，将禁用某些MicrosoftExcelVisualBasic方法和属性。例如，当某一控件激活时，就不能使用Sort方法，故下述按钮单击事件处理过程中的代码将失败(因为用户单击按钮后，该按钮就处于激活状态)。

　　PrivateSubCommandButton1 Click

　　Range(″a1:a10″) SortKey1:=Range(″a1″)

　　EndSub

　　解决办法是通过选激活工作表上其它元素的方法来绕过这种问题。例如，可用下列代码对单元格区域排序：

　　PrivateSubCommandButton1 Click

　　Range(″a1″) Activate

　　Range(″a1:a10″) SortKey1:=Range(″a1″)

　　CommandButton1 Activate

　　End Sub

　　(三)在MicrosoftExcel中，用OLEObjects集合中的OLEObject对象代表ActiveX控件。如果要用编程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。例如向第一张工作表添加命令按钮。

　　Worksheets(1) OLEObjects Add″Forms CommandButton 1″，_

　　Left:=10,Top:=10,Height:=20,Width:=100

　　因为ActiveX控件也可用OLEObjects集合中的OLEObject对象代表，所以也可用该集合中的对象来设置控件的属性。例如要设置控件“CommandBotton1”的“左边位置”属性。

　　Worksheets(1) OLEObjects(″CommandButton1″) Left=10

　　那些不属于OLEObject对象属性的控件属性，可通过由Object属性返回的实际控件对象来设置。例如要设置控件“CommandButton1”的标题。

　　Worksheets(1) OLEObjects(″CommandButton1″)

　　Object Caption=″runme″

　　因为所有的OLE对象也是Shapes集合的成员，所以也可用该集合设置若干控件的属性。例如要对齐第一张工作表上所有控件的左边框。

　　ForEachsInWorksheets(1) Shapes

　　Ifs Type=msoOLEControlObjectThens Left=10

　　Next

　　请注意，当在控件所在工作表的类模块之外使用控件的名称时，必须用工作表的名称限定该控件的名称。在工作表上ActiveX控件的事件处理过程中，Me关键字所指向的是工作表，而非控件

　　在Excel中利用VBA创建多级选单

　　Excel是我们常用的报表处理软件之一，对于大多数人来说只是使用它进行打印报表，没有注意其他功能，其实利用Excel内嵌的 VBA 语言完全可以快速开发出自己企业的应用系统来，而且应用系统界面与其它专业编程语言相当相似。下面笔者简单通过一个实例说明如何利用VBA创建多级选单。

　　首先，我们对Excel中两个重要的内置函数auto_open() 和 auto_close()作一简单说明。

　　auto_open() ：在打开工作簿时系统将自动执行该函数，因此我们可以在该函数中调用自己应用程序的选单函数以及其它需要初始化设置的函数及宏语句;

　　auto_close()：在关闭工作簿时系统将自动执行该函数。所以我们需要在该函数中放置删除用户自定义选单语句，否则只有退出Excel才能恢复EXCEL的系统选单。

　　在以下语句中，我们定义了选单设置函数 OpenMyMenu()，用于设置多级选单，其他有关说明见程序内注释，详细代码如下：

　　Sub OpenMyMenu() ′自定义多级选单函数

　　On Error Resume Next ′忽略错误

　　MenuBars("MyMenu").Delete ′删除自定义选单

　　MenuBars.Add ("MyMenu") ′自定义选单项

　　Sheets("sheet1").Select

　　MenuBars("MyMenu").Menus.Add Caption:="金融"

　　′增加第一个选单项“金融”

　　′以下三句为在“金融”选单下增加“银行法、货币政策和条例”三项选单项

　　MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="银行法", OnAction:="银行法"

　　MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="货币政策", OnAction:="货币政策"

　　MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="条例", OnAction:="条例"

　　′以下为创建如图所示的多级选单

　　MenuBars("MyMenu").Menus.Add Caption:="经济" '建立选单项“经济”

　　′以下三句为在“经济”选单下增加“农业、工业和第三产业”三项选单项

　　MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="农业", OnAction:="农业"

　　MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="工业", OnAction:="工业"

　　MenuBars("MyMenu").Menus("经济").MenuItems.AddMenu Caption:="第三产业"

　　′以下三句为在“第三产业”选单下增加“概况、范畴”二项选单项和“饮食服务业”子选单

　　MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="概况", OnAction:="概况"

　　MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="范畴", OnAction:="范畴"

　　MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.AddMenu Caption:="饮食服务业"

　　′以下二句为在“饮食服务业”选单下增加“酒店1、酒店2”二项选单项

　　MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.Add Caption:="酒店1", OnAction:="酒店1"

　　MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.Add Caption:="酒店2", OnAction:="酒店2"

　　MenuBars("MyMenu").Activate ′激活自定义选单

　　End Sub

　　Sub auto_open() ′系统自动打开运行宏

　　OpenMyMenu ′调用用户选单函数

　　End Sub

　　Sub auto_close() ′系统自动关闭运行宏

　　On Error Resume Next ′忽略错误

　　MenuBars("MyMenu").Delete ′删除自定义选单

　　End Sub

　　读者可以在自己的工作簿选单“工具”中的“宏”下，创建以上三个函数并将以上函数语句拷贝到其中即可运行。

　　用VBA(编程)保护Excel文档

　　VBA(Visual Basic for Application)是Excel应用程序中功能非常强大的编程语言，为了规范不同的用户对Excel应用程序的访问能力，需要对Excel文档及有关的数据进行有效的保护， 这里根据自己及同行们的体会，从以下二个方面介绍用VBA编程法实现对Excel文档的保护。

　　对工作簿的保护

　　1.利用VBA中Workbook对象的SaveAs方法实现对工作簿的保护， 下面就对SaveAs有 关的参量作一介绍：

　　Filename：该字符串表示要保存的文件名。 可包含完整路径。 如果不指定路径，Microsoft Excel 将文件保存到当前文件夹。

　　FileFormat： 可选，文件的保存格式。

　　Password ：为一个区分大小写的字符串(不超过15个字符) ，用于指定文件的保护密码。

　　WriteResPassword： 该字符串表示文件的写保护密码。 如果文件保存时带有密码，但打开文件时不输入密码，则该文件以只读模式打开。

　　ReadOnlyRecommended ：如果为True则在打开文件时显示一条信息，提示该文件以只读模式打开。

　　下例就是在Excel应用程序中添加一工作簿，将工作簿按常规文件格式存为“C:/pj/obj/经济评价.xls”文件，并给该文件指定保护密码“12”以及写保护密码“23”。

　　Sub 保护工作簿()

　　NewWorkbook = Workbooks.add

　　NewWorkbook.SaveAs FileName: ="C: /pj/obj/经济评价.xls", FileFormat: =

　　XlNormal,Password:="12",WriteResPassword:=″23″

　　End sub

　　2.利用VBA中Workbook对象的Protect方法对工作簿的结构和窗口进行保护，Workbook对象的Protect方法带有以下三个参量：

　　Password： 为加在工作表或工作簿上区分大小写的密码字符串。 如果省略本参数，不用密码就可以取消对该工作簿的保护。否则，取消对该工作表或工作簿的保护时必须提供该密码。如果忘记了密码，就无法取消对该工作表或工作簿的保护。最好在安全的 地方保存一份密码及其对应文档名的列表。

　　Structure： 若为True则保护工作簿结构(工作簿中工作表的相对位置)。默认值为False。

　　Windows 若为True则保护工作簿窗口。

　　下例就是对一名为“经济评价.xls”的工作簿实现“结构”和“窗口”保护：

　　Sub 保护工作簿()

　　Workbooks (″经济评价″) .Protect Password: ="1234", Structure: =True,

　　Windows:=True

　　End sub

　　Workbook对象的Unprotect方法用于取消对工作簿的保护。Unprotect方法只有一个参量，就是保护工作表时所用的口令。

　　3.对工作簿进行隐藏保护，可使他人无法看到其对应的窗口。操作方法如下：

　　在VBA中使用Workbook对象下面的Windows对象的Visible属性对工作簿进行隐藏和取消隐藏，Visible属性的值可取“True”和“False”两种。

　　下面程序代码完成对工作簿“book.xls”的隐藏：

　　Sub 隐藏工作簿()

　　Workbooks("book").Activate

　　ActiveWindow.Visible = False

　　End sub

　　或：

　　Sub 隐藏工作簿()

　　Workbooks("book").Windows(1).Visible=False

　　End sub

　　对工作表的保护

　　1.对工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表进行保护，Protect带有以下参量：

　　Password 用于保护工作表的口令。

　　Drawingobjects 若为True，则对工作表中的Drawingobjects对象进行保护,缺省值为True。

　　Contents 若为True，则对单元格内容进行保护，缺省值为True。

　　下面程序代码完成对工作表“基础数据表”的保护：

　　Sub 保护工作表()

　　Worksheets(″基础数据表″).Protect Password:="1234"

　　End sub

　　2.对工作表实现隐藏保护，使他人无法看到工作表：

　　利用VBA设置Worksheet对象的Visible属性来隐藏工作表;Visible属性的值为以下三个值中的一个：

　　True 工作表为显示状态。

　　False 工作表为隐藏状态。

　　XlVerHidden 工作表为隐藏状态，且用户不能通过“取消隐藏”对话框将其改为显示状态。当Visible的值为XlVerHidden时，只能利用VBA将其重新设置为True。

　　Sub 隐藏工作表()

　　Worksheets("基础数据表").Visible=False

　　End sub

　　求:将所选区域中的数值全部转化为"万元"的最简代码.

　　求:将所选区域中的数值全部转化为"万元"的最简代码.

　　或能完成此功能的最便捷的命令操作.

　　写了一个,抛砖引玉:

　　Sub convt()

　　Dim cel As Range

　　Dim dec As Variant

　　Application.EnableEvents = False

　　yesorno = MsgBox("确实将区域所有数值转换为“万元”?", vbYesNo + vbQuestion + vbDefaultButton1)

　　If yesorno = vbYes Then

　　1: dec = Application.InputBox("请输入小数位数:", Default:=0, Type:=1)

　　If dec = "" Then

　　GoTo 1

　　End If

　　For Each cel In Selection

　　If IsNumeric(cel.Value) Then

　　'cel = (Round(cel.Value / 10000, 2)) & "万元"

　　cel = (Round(cel.Value / 10000, dec))

　　End If

　　Next

　　ElseIf yesorno = vbNo Then

　　Exit Sub

　　End If

　　End Sub

　　以下当为最简代码吧.

　　Sub Macro2()

　　Selection.NumberFormatLocal = "#"".""#,"

　　End Sub

　　在VBA开发环境中，点击工具――附加控件，出现如下窗口：

　　在可选控件中选择microsoft orogressbar control,再点击确定，这时，你会发现在你的工具箱中增加了进度条工具，如图：

　　下面说说进度条的用法：

　　属性：Max：　设置进度条控件的最大值

　　Min： 设置进度条控件的最小值

　　Value：设置进度条控件对象的当前值

　　Scrolling: 进度条的式样，即一格一格的进度条或是没有间隔的进度条。

　　例子：Private Sub UserForm_Activate()

　　For i = 1 to 5000

　　ProgressBar1.Max = 5000 ‘设置进度条控件的最大值

　　ProgressBar1.Value = I ‘进度条控件对象的当前值

　　next

　　End Sub

　　在程序中加入进度条的办法是将ProgressBar1.Max=最大值，ProgressBar1.Value = 当前值放入循环中去。

　　Excel是一个优秀的电子表格软件，如果你编的程序需要以报表的形式显示最终结果，它会是个不错的选择。你可以通过VB控制Excel显示数据表格。如果你不愿意深入了解Excel这些琐碎的细节，也不是没有权宜之计：你可以打开Excel中的工具→宏→录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的VB程序就行。这样得到的程序一般都能正常运行，但其中的宏代码往往不够简洁，效率和可读性都不高。

　　Excel编程碰到的第一个问题是表头。有时表头的形式比较复杂，需要横向或纵向合并单元格。请放心，只要没有斜杠，Excel都能应付得了。

　　例如合并A2~A5这4个单元格，你录制的宏代码会是这样：

　　Range("A2:A5").Select

　　With Selection

　　.HorizontalAlignment = xlCenter

　　.VerticalAlignment = xlBottom

　　.WrapText = False

　　.Orientation = 0

　　.AddIndent = False

　　.ShrinkToFit = False

　　.MergeCells = False

　　End With

　　Selection.Merge

　　而自己编程只要一句 Range.(“A2:A5”).mergecells=True 就可以解决问题。

　　表头形式定了，再就是表头的内容。如果单元格中的文本长度超过了列宽，往往只能显示部分内容，行尾那一格的内容则会“越境”进入右边那个空白单元格，很不美观。这个问题可以通过在程序中设置列宽加以解决。

　　Columns(14).columnwidth=12 ‘设置第14列列宽为12(缺省列宽为8.38)

　　如果你不愿意劳神去逐列估计实际所需的列宽，干脆来一行

　　Columns(“a:i”).autofit ‘a到i列自动调整列宽

　　让Excel随机应变吧。

　　但也许你不喜欢这种方法，认为表头撑大了列宽，弄得浏览一张小表格还得向右滚动，太不方便了。要是能保持默认列宽，让文本自动换行就好了。没问题，Excel包你满意。

　　Rows(3).WrapText=True ‘让第三行各单元格中的文本自动换行

　　不过你最好再加一句 Rows(3) .VerticalAlignment = xlTop 让表头自动向上对齐，这样比较符合习惯。

　　你还可以给表头打上底色，让你的读者不至于看了打哈欠。

　　Rows(2). Interior .ColorIndex = 5 设置第2行底色为蓝色

　　再给表格的标题上色，这样更醒目一点。

　　Rows(1).Font.ColorIndex=4

　　表头完成后该填数据了，一个一个地填实在是太? ，如果你的数据是存放在一个二维数组中，那问题就简单多了。

　　Dim Data(3,4)

　　………… ‘数据处理

　　Range(“a2:d4”).Value=Data

　　这样可以一次填入一个表的所有数据，够快了吧!不过提醒一句，Range对象大小最好与数组匹配，小了无法显示所有数据，大了则会在空白单元格只填入“N/A”表示没有取得数据。

　　如果需要在结果中显示多个同样规格的数据表，想在Range对象中加入循环变量，这也好办。

　　Dim cell11,cell2

　　Dim Data(3,4)

　　…………

　　For I =1 to 40

　　………… ‘数据处理

　　Set cell1=Worksheets("Sheet1").Cells(5*I-4,1)

　　Set cell2=Worksheets("Sheet1").Cells(5*I-2,4)

　　Worksheets("Sheet1").Range(cell1,cell2).value=Data

　　Next I

　　表格填完了，现在该打表格线了，以下几条语句可以满足你的要求：

　　With Worksheets("Sheet1").Range(cell1,cell2).borders

　　.LineStyle=xlContinuous

　　.weight=xlThin

　　End With