VBA自学收集

自　学　收　集 1、Application.CommandBars("Worksheet Menu Bar").Enabled = false 2、cells(activecell.row,"b").value '活动单元格所在行B列单元格中的值 3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置     Dim shtSheet As Worksheet     For Each shtSheet In Sheets         If shtSheet.Name = "KK" Then Exit Sub     Next shtSheet     Set shtSheet = Sheets.Add(Before:=Sheets(1))     shtSheet.Name = "KK" End Sub 4、Sheet1.ListBox1.List = Array("一月", "二月", "三月", "四月")'一次性增加项目 5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中 6、Sub pro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识me Me.Unprotect Cells.Locked = False Range("D11:E11").Locked = True Me.Protect End Sub 7、Application.CommandBars("Ply").Enabled = False'工作表标签上快捷菜单失效 8、Sub aa()'把B1到B12单元格的数据填入c1到c12 For i = 1 To 12 Range("C" & i) = Range("B" & i) Next i End Sub 9、ActiveCell.AddComment Selection.Font.Size = 12'在点选的单元格插入批注，字体为12号 10、Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     Cancel = True End Sub 11、ScrollArea 属性 参阅应用于示例特性以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String 类型，可读写。 说明 可将本属性设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。 示例 本示例设置第一张工作表的滚动区域。 Worksheets(1).ScrollArea = "a1:f10" 12\if application.max([a1:e1])=10 then msgbox"" commandbutton1.enabled=false 'A1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮 12、本示例将更改的单元格的颜色设为蓝色。 Private Sub Worksheet_Change(ByVal Target as Range)     Target.Font.ColorIndex = 5 End Sub 13、Sub test()'求和 Dim rng As Range, rng2 As Range For Each rng In ActiveSheet.UsedRange.Columns         Set rng2 = Range(Cells(1, rng.Column), Cells(Cells(65536, rng.Column).End(xlUp).Row, rng.Column))         rng2.Cells(rng2.Cells.Count).Offset(1, 0) = WorksheetFunction.Sum(rng2) Next rng End Sub 14、将工作薄中的全部n张工作表都在sheet1中建上链接 Sub test2() Dim Pt As Range Dim i As Integer With Sheet1     Set Pt = .Range("a1")     For i = 2 To ThisWorkbook.Worksheets.Count         .Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Name & "!A1"         Set Pt = Pt.Offset(1, 0)     Next i End With End Sub 15、保存所有打开的工作簿，然后退出 Microsoft Excel。 For Each w In Application.Workbooks     w.Save Next w Application.Quit 16、让form标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 栏上的关闭按钮失效 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = True End Sub 17、Sub countsh()'获得工作表的总数 MsgBox Sheets.Count End Sub 18、Sub IE()'打开个人网页 ActiveWorkbook.FollowHyperlink "about:blank" SendKeys "{F4}ykk1976.anyp.cn{ENTER}", True End Sub 19、Sub delback()'一次性删除工作簿中所有工作表的背景 For Each shtSheet In Sheets     shtSheet.SetBackgroundPicture Filename:=""     Next shtSheet End Sub 20、[a1].formula="=b1+c1"'A1中设定公式为=B1+C1 21、Private Sub CommandButton1_Click()'将A1到C6中大于=3的数依次放入E列 Dim i As Long r = 1 For Each i In Range("a1:c6")     If i > =3 Then Cells(r, 5) = i: r = r + 1 Next End Sub 22、Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)'显示带数字的表名 b = Split(Sh.Name, "(") On Error GoTo ss num = CInt(Left(b(1), Len(b(1)) - 1)) If num >= 1 And num < 20 Then MsgBox Sh.Name End If Exit Sub ss: MsgBox "error", 16, "" End Sub 23、Sub Test()'选择所有工作表名以"业报"开头的工作表或头两个字是业报的报表名引用 Set Sh = ActiveSheet If Left(Sh.Name, 2) = "业报" Then ' 或if sh.name like"业报*"then MsgBox "你成功了", 64, "" End If End Sub 24、1.建立文件夹的方法 MkDir "D:\Music" 2.打开文件夹的方法 ActiveWorkbook.FollowHyperlink Address:="D:\Music", NewWindow:=True 25、在当前工作表翻页     Application.SendKeys "{PGUP}", True     Application.SendKeys "{PGDN}", True 或者     ActiveWindow.LargeScroll Down:=1     ActiveWindow.LargeScroll Down:=-1 26、当Target = "*小计"时如何写,*代表任何字符。 if instr(target.value,"小计")<>0 then Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value Like "*小计" Then MsgBox "OK" End Sub 27、ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[14]C,R[59]C:R[78]C)" 这是相对引用的写法：根据推算你的函数是放在“AD6”单元格 你的函数：=SUM(R[1]C:R[14]C  中的  "R"表示行     "C"表示列。 R[1]表示“AD6+1行"，C表示“列没有变化，就是同列”那么：R[1]C就表示AD7 同理，R[14]表示AD6+14行，表示：AD20。以此类推。 28、Private Sub CommandButton1_Click()'将A1到C6中大于=3的数依次放入E列 Dim i As Long Dim iRng As Range For Each iRng In Sheets(1).Range("a1:c6")   If iRng.Value >= 3 Then     i = i + 1     Sheets(1).Range("E" & i).Value = iRng.Value   End If Next End Sub 29、工作表中的窗体按钮禁用后，按钮形状不变，字体不变，从外表上无法看出其已禁用，如何设置属性使其像控件按纽那样明显的禁用？ With ActiveSheet.Buttons(1)         .Enabled = False         ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex = 15     End With 復原的方法     With ActiveSheet.Buttons(1)         .Enabled = True         ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex = xlAutomatic     End With 30、Private Sub Worksheet_SelectionChange(ByVal Target As Range'选定A1时要输入密码 If Target.Address = "$A$1" Then     A = InputBox("请输入密码", "officefans")     If A = 1 Then [A1].Select Else [A2].Select End If End Sub 31、如何将工作薄中的命名单元格成批删除！ Dim Item As Name     For Each Item In ActiveWorkbook.Names         Item.Delete     Next Item 32、平时只能看到表1，如要看表2和表3，只能通过表1的链接打开,且表2和表3回到表1后，又不可见。 Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Target.Address = "$A$3" Then   '当点击"$A$3"单元格时...      Sheet2.Visible = 1  '取消隐藏    Sheet2.Activate '激活    ActiveSheet.Range("A1").Select End If If Target.Address = "$A$6" Then Sheet3.Visible = 1  '取消隐藏 Sheet3.Activate ActiveSheet.Range("A1").Select End If End Sub 33、将a2单元格内容替换为a1内容 ActiveCell.Replace What:=[a2], Replacement:=[a1] 34、如果是要填入名称,则: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = ComboBox1.column(1) End Sub 如果是要填入代码和名称的组合 : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = cstr(ComboBox1.column(0))+" "+combobox1.column(1) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = ComboBox1.Value End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range)     'target.row  代表行号     'target.column 代表列号     i=target.row   '获取行号     j=target.column '获取列号 End Sub 35、当激活工作表时，本示例对 A1:A10 区域进行排序。 Private Sub Worksheet_Activate()     Range("a1:a10").Sort Key1:=Range("a1"), Order:=xlAscending End Sub 36、BeforePrint 事件 参阅应用于示例特性在打印指定工作簿（或者其中的任何内容）之前，产生此事件。 Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel      当事件产生时为 False。如果该事件过程将本参数设为 True，则当该过程运行结束之后不打印工作簿。 示例 本示例在打印之前对当前活动工作簿的所有工作表重新计算。 Private Sub Workbook_BeforePrint(Cancel As Boolean)     For Each wk in Worksheets         wk.Calculate     Next End Sub 37、Open 事件 参阅应用于示例特性打开工作簿时，将产生本事件。 Private Sub Workbook_Open() 示例 每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。 Private Sub Workbook_Open()     Application.WindowState = xlMaximized End Sub 38、ActiveSheet 属性 参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回 Nothing。 说明 如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。 如果某一工作簿在若干个窗口中出现，那么该工作簿的 ActiveSheet 属性在不同窗口中可能不同。 示例 本示例显示活动工作表的名称。 MsgBox "The name of the active sheet is " & ActiveSheet.Name 39、Calculate 方法 参阅应用于示例特性计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示： 要计算 依照本示例 所有打开的工作簿 Application.Calculate （或只是 Calculate） 指定工作表 指定工作表 指定区域 Worksheets(1).Rows(2).Calculate expression.Calculate expression      对于 Application 对象可选，对于 Worksheet 对象和 Range 对象必需。该表达式返回“应用于”列表中的对象之一。 示例 本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。 Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate 程序的核心是算法问题 40、End 属性 参阅应用于示例特性返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。Range 对象，只读。 expression.End(Direction) expression      必需。 该表达式返回“应用于”列表中的对象之一。 Direction      XlDirection 类型，必需。所要移动的方向。 XlDirection 可为 XlDirection 常量之一。 xlDown xlToRight xlToLeft xlUp 示例 本示例选定包含单元格 B4 的区域中 B 列顶端的单元格。 Range("B4").End(xlUp).Select 本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。 Range("B4").End(xlToRight).Select 本示例将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格。 Worksheets("Sheet1").Activate Range("B4", Range("B4").End(xlToRight)).Select 41、应用于 CellFormat 和 Range 对象的 Locked 属性。 本示例解除对 Sheet1 中 A1:G37 区域单元格的锁定，以便当该工作表受保护时也可对这些单元格进行修改。 Worksheets("Sheet1").Range("A1:G37").Locked = False Worksheets("Sheet1").Protect 42、Next 属性 参阅应用于示例特性返回一个 Chart、Range 或 Worksheet 对象，该对象代表下一个工作表或单元格。只读。 说明 如果指定对象为区域，则本属性的作用是仿效 Tab，但本属性只是返回下一单元格，并不选定它。 在处于保护状态的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指定单元格右边的单元格。 示例 本示例选定 sheet1 中下一个未锁定单元格。如果 sheet1 未保护，选定的单元格将是紧靠活动单元格右边的单元格。 Worksheets("Sheet1").Activate ActiveCell.Next.Select 43、想通过target来设置(A1：A10)区域内有改动，就发生此事件。不知道如何 if target.row = 1 and target.column <=10 then Sub 列举菜单项() Dim r, s, i As Integer r = 1 For i = 1 To CommandBars.Count     ActiveSheet.Cells(r, 1) = "CommandBars(" & i & ").Name:" & CommandBars(i).Name     r = r + 1     For s = 1 To CommandBars(i).Controls.Count         ActiveSheet.Cells(r, 1) = s & "、" & CommandBars(i).Controls(s).Caption         r = r + 1     Next Next End Sub 44、本示例设置 Microsoft Excel 每当打开包含链接的文件时，询问用户是否更新链接。 Application.AskToUpdateLinks = True 45、自定义函数 Public Function Now1() Dim string1 As String   string1 = VBA.Date   Now1 = string1 End Function 46、复制 Sub copy1() Sheet2.Range("C5:C10").Copy Sheet1.Range("C5:C10") End Sub 47、如何统计表中sheet的个数？ msgbox sheets.count Columns("G:G").Select 48、 Selection.EntireColumn.Hidden = True 这样隐藏有个毛病，如何解决？如果A1:G1单元格合并的话，就把A：G列均隐藏了。 Columns("G:G").EntireColumn.Hidden = True 49、在VBA中引用excel函数的方法 1). Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10" 2). Sheet1.Cells(1,1).Formula = "=" & Sheets(iii).Name & "!R1C4" 在宏中用R1C1方式写时 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 1的A1中会在写为“=Sheet2!$D$1” 用这种方式,想用什么函数就用什么函数. 50、选定下（上）一个工作表 sheets(activesheet.index-1).select sheets(activesheet.index+1).select 51、Private Sub Workbook_Open()    ActiveWindow.DisplayWorkbookTabs = False '取消工作表标签    Application.CommandBars("Sheet").Controls(1).Enabled = False '格式＿工作表不能重命名    Application.CommandBars.FindControl(ID:=889).Enabled = False '右键菜单不能重命名 End Sub 52、 [a65536].End(xlUp’A列从下往上第一个非空的单元格 53、Sub macro() Set rng = Range("C11:F13")           定义RNG为一个单元格区域 For Each cel In rng                   定义CEL为RNG中的一个任一单元格 colo = cel.Interior.ColorIndex        定义 COLO 为单元格CEL的填充颜色 If colo <> -4142 Then                 如果COLO的值不等于-4142 iR = [b65536].End(xlUp).Row + 1        IR等于B列数据区域的行数+1 If [a65535].End(xlUp).Value <> Cells(cel.Row, 2) Then Cells(iR, 1) = Cells(cel.Row, 2)    如果A列最后一个非空值单元格  不等于Cells(cel.Row, 2) 的值 那么单元格Cells(iR, 1) 的值等于Cells(cel.Row, 2)   的值    CEL.ROW是C11:F13中任意单元格的行号 Cells(iR, 2) = Cells(10, cel.Column)    Cells(iR, 3) = cel.Value Cells(iR, 4) = IIf(colo = 36, "Yellow", "Red")    Cells(iR, 4) 的值如果colo = 36那么值为"Yellow",否则值为"RED" next End Sub 54、Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) '**********运行数据日志 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 ********** Dim rng As Range     If ActiveSheet.Name <> "主界面" And ActiveSheet.Name <> "目录索引" Then     For Each rng In Target.Cells         Changecell = ActiveSheet.Name & "，单元格：" & rng.Address(0, 0) & "，更改为：" & rng.value & "。更改时间：" & Now         CritOrAddtext     Next     End If End Sub 55、ActiveSheet.Unprotect   '撤销当前工作表保护 If ActiveSheet.Name <> "主界面" And ActiveSheet.Name <> "目录索引" And Target.Row > 3 Then    '行变色 On Error Resume Next [ChangColor_With].FormatConditions.Delete Target.EntireRow.Name = "ChangColor_With" With [ChangColor_With].FormatConditions                   .Delete                   .Add xlExpression, , "TRUE"                   .Item(1).Interior.ColorIndex = 4 End With End If ActiveSheet.Protect 56、在C1中弄个下拉无表,实际是有效性,你可以选择A1:A4为C1单元格有效性的序列数据源,如果说C1不与A1:A4在同一表,则不能这么用,应当先对A1:A4命名,然后把数据源改为名称. 57、自动增加工作表 进入宏命令编辑窗口，在Sub 自动增加工作表()命令后依次键入如下宏命令内容： Dim i&, userinto i = 0 userinto = InputBox("输入插入工作表数量：") If IsNumeric(userinto) = True Then Do Until i = userinto Worksheets.Add i = i + 1 Loop End If End Sub 58、方法一（共享级锁定）:     1、先对EXCEL文件进行一般的VBAProject”工程密码保护。     2、打开要保护的文件，选择：工具--->保护--->保护并共享工作簿--->以追踪修订方式共享-->输入密码-->保存文件。    完成后，当你打开“VBAProject”工程属性时，就将会提示：“工程不可看！“ 方法二（推荐，破坏型锁定）：     用16进制编辑工具，如WinHex、Ultraedit-32（可到此下载）等，再历害点的人完全可以用debug命令来做......用以上软件打开EXCEL文件，查找定位以下地方： ID="{00000000-0000-0000-0000-000000000000}"    注：实际显示不会全部为0     此时，你只要将其中的字节随便修改一下即可。保存再打开，就会发现大功告成！     当然，在修改前最好做好你的文档备份。至于恢复只要将改动过的地方还原即可（只要你记住了呵呵）。 顺便说一句，这种方法仍然是可破解的，因为加密总是相对的 。 59、Sub AddComments() '自動對ActiveSheet所有有公式格位加上註解     Set RG = Cells.SpecialCells(xlCellTypeFormulas)     For Each c In RG         c.AddComment         c.Comment.Text Text:=c.Formula     Next c End Sub Sub De_Comments() '自動消除所有註解     Set RG = Cells.SpecialCells(xlCellTypeFormulas)     For Each c In RG         c.ClearComments     Next c End Sub 60、如何在Excel里使用定时器 www.aspsky.net  2002-3-12 20:53:27  动网先锋     用过 Excel 97 里的加载宏 "定时保存" 吗？可惜它的源程序是加密的，现在就上传一篇介绍实现它的文档。      在 Office 里有个方法是 application.ontime ，具体函数如下：      expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)      如果想进一步了解，请参阅 Excel 的帮助。      这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在 Excel 里编写自己的定时程序了。下面就举两个例子来说明它。      1.在下午 17:00:00 的时候显示一个对话框。      Sub Run_it()      Application.OnTime TimeValue("17:00:00"), "Show_my_msg"      '设置定时器在 17:00:00 激活，激活后运行 Show_my_msg 。      End Sub      Sub Show_my_msg()      msg = MsgBox("现在是 17:00:00 ！", vbInformation, "自定义信息")      End Sub      2.模仿 Excel 97 里的 "自动保存宏",在这里定时 5 秒出现一次      Sub auto_open()      MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！", vbInformation, "请注意！"      Call runtimer '打开文档时自动运行      End Sub      Sub runtimer()      Application.OnTime Now + TimeValue("00:00:05"), "saveit"      ' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。      End Sub      Sub SaveIt()      msg = MsgBox("朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _      & "选择是：立刻存盘" & Chr(13) _      & "选择否：暂不存盘" & Chr(13) _      & "选择取消：不再出现这个提示", vbYesNoCancel + 64, "休息一会吧！")      '提示用户保存当前活动文档。      If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub      Call runtimer '如果用户没有选择取消就再次调用 Runtimer      End Sub         以上只是两个简单的例子，有兴趣的话，可以利用 Application.Ontime 这个函数写出更多更有用的定时程序。     Sub Show_my_msg()      msg = MsgBox("现在是 17:00:00 ！", vbInformation, "自定义信息")      End Sub        2.模仿 Excel 97 里的 "自动保存宏",在这里定时 5 秒出现一次      Sub auto_open()      MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！", vbInformation, "请注意！"      Call runtimer '打开文档时自动运行      End Sub        Sub runtimer()      Application.OnTime Now + TimeValue("00:00:05"), "saveit"      ' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。      End Sub 接上面 61、Excel 最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工程施工的预结算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样相同的公式在Excel里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输入公式让Excel计算结果。如何既能看到公式又能看到结果呢？这个问题笔者认为可以从两个方面考虑：一种方法是所谓“已知结果，显示公式”，先在数据格式单元格中输入公式让Excel计算结果，然后在相邻的单元格中看到公式；另一种方法所谓“已知公式，显示结果”，就是先在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。★已知结果，显示公式 假设C列为通过公式计算得到的结果（假设C1为“=A1+B1”，或者直接是数字运算“=2+3”)，而相邻的D列是你需要显示公式的地方（即D1应该显示为“=A1+B1”或者“=2+3”）。 1. 打开“工具”菜单选择“选项”命令，出现“选项”对话框。 2. 在“常规”选项卡中，选中“R1C1引用方式”选项。 3. 定义名称，将“引用位置”由“=GET.CELL(6,Sheet1!RC[-1])”即可。这里的RC[-1]含义是如果在当前单元格的同行前一列单元格中有公式结果，则在当前单元格中得到公式内容，即在含公式结果单元格的同行后一列单元格显示公式内容；如果将RC[-1]改为RC[1]，则在公式结果的同行前一列单元格显示公式内容。 4. 如果“引用位置”中含有“RC[-1]”，则在含公式结果单元格的同行后一列单元格中输入“=FormulaofResult”即可得到公式；如果“引用位置”中含有“RC[1]”，则在含公式结果单元格的同行前一列单元格中输入“=FormulaofResult”即可得到公式。 提示：如果想要在含公式结果单元格的同行后数第2列中显示公式内容，则需要把“引用位置”中的“RC－1”改为“RC－2”。 ★已知公式，显示结果 假设C列为输入的没有等号公式（假设C1为“A1+B1”)，而相邻的D列是你需要存放公式计算结果的地方（即D1显示A1和B1单元格相加的结果）。 1. 选中D1，然后打开“插入”菜单选择“名称”命令中的“定义”子命令，出现“定义名称”对话框。 2. 在“在当前工作表中的名称”输入栏中输入定义的名称“ResultofFomula”，在下方的“引用位置”编辑栏中输入“=EVALUATE(Sheet1!C1)”，单击[确认]按钮退出。 3. 在 D1中输入“=ResultofFomula”，然后选中按住右下角的填充柄向下拉动填充即可。 提示：EVALUATE是Eexcel 4．0版的宏表函数，Excel 2000和Excel 2002中还支持，但只可用于名称定义中。 4. 填充后要按[F9]进行重算，如果C列的公式有改动，也需要及时按[F9]进行重算。 巧施妙计，就能让公式和结果在Excel中和平共处了，你也试试吧。 62、http://www.yesky.com/20010724/190094_3.shtml　Microsoft Excel是一款功能非常强大的电子表格软件。它可以轻松地完成数据的各类数学运算，并用各种二维或三维图形形象地表示出来，从而大大简化了数据的处理工作。但若仅利用Excel的常用功能来处理较复杂的数据，可能仍需进行大量的人工操作。但Excel的强大远远超过人们的想象--宏的引入使其具有了无限的扩展性，因而可以很好地解决复杂数据的处理问题。 　　随着支持Windows的应用程序的不断增多和功能的不断增强，越来越多的程序增加了宏处理来方便用户的自由扩展。但初期各应用程序所采用的宏语言并不统一，这样用户每使用一种应用程序时都得重新学习一种宏语言。为了统一各种应用程序下的宏，Microsoft推出了VBA（Visual Basic for Applications）语言。 　　VBA是从流行的Visual Basic编程语言中派生出来的一种面向应用程序的语言，它适用于各种Windows应用程序，可以解决各应用程序的宏语言不统一的问题。除此之外，使用VBA语言还有如下优点：1、VBA是一种通用程序语言，通过它不仅可以共享Microsoft相关的各种软件（如Excel、Word、Access）……，而且随着其它的一些软件（如大名鼎鼎的AutoCAD2000）等对VBA的支持，这些软件也已进入到了VBA的控制范围；2、可以将用VBA编写的程序复制到Visual Basic中调试并运行，从而实现用Visual Basic来控制有关的应用程序；3、VBA提供的大量内部函数大大简化了用户的操作。 　　对于而今的宏，不仅语言统一规范，而且其功能也已非常强大。但在大多数介绍Excel的"傻瓜书"、"指南"、"入门与提高"等参考书中往往略过不提，或浅浅带过，读者从中获得的有关知识往往不足以应付处理复杂数据的需求。为了完成工作，就让我们一起来学习"宏"的妙用吧。 　　一)、宏的自学 　　首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏：点击Excel"工具"下拉菜单中"宏"下?quot;录制新宏"，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。 　　二)、基本概念 　　为了学习Excel中的宏，我们需要先了解以下一些基本概念。 　　1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbook 　　Workbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。 　　在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks(1)、Workbooks("年度报表.xls")。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。 　　2、工作表：Worksheets、Worksheet、ActiveSheet 　　Worksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。 　　可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets(1)、Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为Worksheets.Count。需要注意的是：在使用过程中Excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。 　3、图表：Chart 、Charts、ChartObject、ChartObjects、ActiveChart 　　Chart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。 　　Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index) 可引用单个Chart图表，其中index是该图表工作表的索引号或名称；如Charts(1)、Charts("销售图表")。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个（最左边的）图表工作表；Charts(Charts.Count)为最后一个（最右边的）图表工作表。 　　ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的外观和尺寸。 　　ChartObjects代表指定的图表工作表、对话框编辑表或工作表上所有嵌入式图表的集合。可由ChartObjects(index)引用单个ChartObject，其中index为嵌入式图表的编号或名称。如Worksheets("Sheet1").ChartObjects(1)、Worksheets("sheet1").ChartObjects("chart1")分别对应"Sheet1"工作表中的第一个嵌入式图表、以及名为"Chart1"的嵌入式图表。 　　ActiveChart可以引用活动状态下的图表，不论该图表是图表工作表，或嵌入式图表。而对于图表工作表为活动工作表时，还可以通过ActiveSheet属性引用之。 　　4、单元格：Cells、ActiveCell、Range、Areas 　　Cells(row,column)代表单个单元格，其中row为行号，column为列号。如可以用Cells(1,1)、Cells(10,4)来引用"A1"、"D10" 单元格。ActiveCell代表活动工作表的活动单元格，或指定工作表的活动单元格。 　　Range代表工作表中的某一单元格、某一行、某一列、某一选定区域（该选定区域可包含一个或若干连续单元格区域）或者某一三维区域。 　　可用Range(arg)来引用单元格或单元格区域，其中arg可为单元格号、单元格号范围、单元格区域名称。如Range("A5")、Range("A1:H8")、Range("Criteria")。虽然可用Range("A1")返回单元格A1，但用Cells更方便，因为此时可用变量指定行和列。 　可将Range与Cells结合起来使用，如Range(Cells(1,1),Cells(10,10))代表单元格区域"A1:J10"；而expression.Cells(row,column)返回单元格区域中的一部分，其中expression是返回Range的表达式，row和column为相对于该区域的左上角偏移量。如由Range("C5:C10").Cells(1,1)引用单元格C5。 　　Areas为选定区域内的连续单元格块的集合，其成员是Range对象。而其中的每个Range对象代表选定区域内与其它部分相分离的一个连续单元格块。某些操作不能在选定区域内的多个单元格块上同时执行；必须在选定区域内的单元格块数Areas.Count上循环，对每个单独的单元格块分别执行该操作。此时，可用Areas(index)从集合中返回单个Range对象，其中index为单元格块编号；如Areas(1)。 　　5、 行与列：Rows、Columns、Row、Column 　　Rows、Columns分别代表活动工作表、单元格区域范围Range、指定工作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns，只返回该范围中第一个区域的行数、列数。例如，如果Range对象有两个区域（areas）A1:B2和C3:D4，Rows.Count返回2而不是4。 　　可通过Rows(行号)、Columns(列号)来引用相应的行与列；如Rows(3)、Columns(4)分别对应第三行、D列。 利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均以十进制数表示。 　　三)、处理单元格 　　1、直接赋值与引用 　　将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量，这是在Excel中最简单的单元格赋值及引用方法。如下例将工作表"Sheet1"A1单元格的值赋给Integer变量I，并将I+1的值赋给当前工作表中的B1单元格： 　　Dim I As Integer 　　I=Worksheets("Sheet1").Cells(1,1) 　　Cells(1,2).Select '选定B1单元格，使其成为当前单元格 　　ActiveCell=I+1 '以I+1为当前单元格赋值 　　2、用公式赋值 　　在宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）： 　　ActiveCell.Formula="=AVERAGE(R[-6]C[-4]:R[-2]C[-4])" 　　3、引用其它工作表中的单元格 　　当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上"工作表名！"即可。如以下即在赋值中引用了"Sheet1"工作表中的A1至A4单元格： 　　Range("E10").Formula="=SUM(Sheet1!R1C1:R4C1)" 　　但需注意的是：当被引用的工作表名中含有某些可能引起公式歧义的字符时，需要用单引号'将工作表名括起来。如： 　　Worksheets("Sheet1").ActiveCell.Formula="=Max('1-1剖面'!D3:D5)" 　　4、引用其它工作簿中的单元格 　　在被引用单元格所在工作表名前加上"[工作簿名]"，即可引用其它工作簿中的单元格。如： ActiveCell.Formula="=MAX([Book1.xls]Sheet3!R1C:RC[4])" 同样需注意的是：当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号"["、"]"及单引号'将工作簿名括起来。如： 　　Cells(1,2).Formula="=MIN('[1995-2000总结.xls]1995-1996年'! $A$1:$A$6)" 　　5、避免循环引用 　　在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，防止循