ow, 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.Ncom <> "主界面" And ActiveSheet.Ncom <> "目录索引" Then

For Each rng In Target.Cells Changecell = ActiveSheet.Ncom & "，单元格：" & rng.Address(0, 0) & "，更改为：" & rng.value & "。更改时间：" & Now CritOrAddtext Next End If End Sub 55、ActiveSheet.Unprotect '撤销当前工作表保护 If ActiveSheet.Ncom <> "主界面" And ActiveSheet.Ncom <> "目录索引" And Target.Row > 3 Then '行变色 On Error Rescom Next [ChangColor_With].FormatConditions.Delete Target.EntireRow.Ncom = "ChangColor_With" With [ChangColor_With].FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 4 End With End If ActiveSheet.Protect 56、在C1中弄个下拉无表,实际是有效xìng,你可以选择A1:A4为C1单元格有效xìng的序列数据源,如果说C1不与A1:A4在同一表,则不能这么用,应当先对A1:A4命名,然后把数据源改为名称. 57、自动增加工作表 进入宏命令编辑窗口，在Sub 自动增加工作表()命令后依次键入如下宏命令内容： Dim i&, userinto i = 0 userinto = InputBox("输入chā入工作表数量：") If IsNcomric(userinto) = True Then Do Until i = userinto Worksheets.Add i = i + 1 Loop End If End Sub 58、方法一（共享级锁定）: 1、先对EXCEL文件进行一般的VBAProject”工程密码保护。 2、打开要保护的文件，选择：工具--->保护--->保护并共享工作簿--->以追踪修订方式共享-->输入密码-->保存文件。 完成后，当你打开“VBAProject”工程属xìng时，就将会提示：“工程不可看！“ 方法二（推荐，破坏型锁定）： 用16进制编辑工具，如WinHex、Ultraedit-32（可到此下载）等，再历害点的人完全可以用debug命令来做......用以上软件打开EXCEL文件，查找定位以下地方： ID="{00000000-0000-0000-0000-000000000000}" 注：实际显示不会全部为0 此时，你只要将其中的字节随便修改一下即可。保存再打开，就会发现大功告成！

当然，在修改前最好做好你的文档备份。至于恢复只要将改动过的地方还原即可（只要你记住了呵呵）。 顺便说一句，这种方法仍然是可破解的，因为加密总是相对的 。 59、Sub AddCocomnts() '自動對ActiveSheet所有有公式格位加上註解 Set RG = Cells.SpecialCells(xlCellTypeFormulas) For Each c In RG c.AddCocomnt c.Cocomnt.Text Text:=c.Formula Next c End Sub Sub De_Cocomnts() '自動消除所有註解 Set RG = Cells.SpecialCells(xlCellTypeFormulas) For Each c In RG c.ClearCocomnts Next c End Sub 60、如何在Excel里使用定时器 www.aspsky.net 2002-3-12 20:53:27 动网先锋 用过 Excel 97 里的加载宏 "定时保存" 吗？可惜它的源程序是加密的，现在就上传一篇介绍实现它的文档。 在 Office 里有个方法是 application.ontcom ，具体函数如下： expression.OnTcom(EarliestTcom, Procedure, LatestTcom, Schedule) 如果想进一步了解，请参阅 Excel 的帮助。 这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在 Excel 里编写自己的定时程序了。下面就举两个例子来说明它。 1.在下午 17:00:00 的时候显示一个对话框。 Sub Run_it() Application.OnTcom TcomValue("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 runtcomr '打开文档时自动运行 End Sub Sub runtcomr() Application.OnTcom Now + TcomValue("00:00:05"), "saveit" ' Now + TcomValue("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 runtcomr '如果用户没有选择取消就再次调用 Runtcomr End Sub 以上只是两个简单的例子，有兴趣的话，可以利用 Application.Ontcom 这个函数写出更多更有用的定时程序。 Sub Show_my_msg() msg = MsgBox("现在是 17:00:00 ！", vbInformation, "自定义信息") End Sub 2.模仿 Excel 97 里的 "自动保存宏",在这里定时 5 秒出现一次 Sub auto_open() MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！", vbInformation, "请注意！" Call runtcomr '打开文档时自动运行 End Sub Sub runtcomr() Application.OnTcom Now + TcomValue("00:00:05"), "saveit" ' Now + TcomValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。 End Sub

61、Excel 最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工程施工的预结算编写，使用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，然后打开“chā入”菜单选择“名称”命令中的“定义”子命令，出现“定义名称”对话框。 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的常用功能来处理较复杂的数据，可能仍需进行大量的人工cāo作。但Excel的强大远远超过人们的想象--宏的引入使其具有了无限的扩展xìng，因而可以很好地解决复杂数据的处理问题。 随着支持Windows的应用程序的不断增多和功能的不断增强，越来越多的程序增加了宏处理来方便用户的自由扩展。但初期各应用程序所采用的宏语言并不统一，这样用户每使用一种应用程序时都得重新学习一种宏语言。为了统一各种应用程序下的宏，Microsoft推出了VBA（Visual Basic for Applications）语言。 VBA是从流行的Visual Basic编程语言

松语文学免费小说阅读_www.16sy.com