”工具，在按下“Shift”键的同时拖开鼠标，就可以得到一个正圆了。双击这个正圆打开“设置自选图形格式”对话框，在“颜色与线条”标签中，填充颜色选“无填充颜色”，线条颜色设为红色，选3磅粗的单线形（图）。公章的文字用艺术字来制作，填充颜色和线条颜色都用红色，并设成无yīn影产。弧形文字和水平文字要分开来做，在做弧形文字时，把艺术字拖到圆形的上方，在艺术字工具中选“艺术字形状－细上弯弧”，按住黄色的四方块往下拉，再作适当的调整，就可以做出公章里的圆弧形的文字了。公章中间还有一个红五星，用“自选图形”的星形就可以做出来了，填充颜色和线条颜色用红色。最后，按住“Shift”键把组成公章的文字、图形全部选上，执行右键菜单中的“组合”命令，一个公章就做好了。 如何把做好的公章保存出来？这里有一方法：把工作表另存为Web页，然后到保存目录中找到*.files的文件夹，里面有一个GIF图片，这就是刚才做好的公章图案了，它的背景是透明的，我们把它改名为gongzhang.gif保存下来即可。 第二步：添加“盖章”按钮 接下来我们给Excel添加一个盖章按钮，当一个工作表做好后，点击这个盖章按钮，就可以为我们盖上公章了。 先把公章图形复制出来（用来粘贴作为按钮的图标），然后打开“工具－自定义”对话框，选中“命令”标签，在“类别”栏中找到“宏”，在右边的“命令”栏里就会出现一项“自定义按钮”。用鼠标把这个笑脸图标拖出到菜单栏或工具栏上放下，在笑脸图标上击右键，在弹出的菜单中把“命名”处的文字改为“加盖公章”。接下来点击“粘贴按钮图标”这个命令，就可以用刚和复制的公章图形来代替笑脸图标了。把鼠标移下来选中“分配超级链接－chā入图片”，然后在“请键入文件名称或Web页名称”栏里输入公章图片gongzhang.gif的文件名及路径，然后按“确定”返回。 好了，看到“加盖公章”这个按钮了吧，点击一下看看，呵呵，页面上就盖上一个鲜红的公章了，用鼠标可以把它拖到任意的地方。在Word文档中加盖公章的方法与此大同小异，大家可以自己试一试。 76、如何使某一个固定的菜单项无效 Application.CommandBars("File").Controls(6).Enabled = False Controls(6)中的6就是所在菜单栏的行数 我觉得这样可能更可靠： Dim i As Integer For i = 1 To Application.CommandBars("File").Controls.Count If Application.CommandBars("File").Controls(i).Caption = "另存为(&A)..." Then Application.CommandBars("File").Controls(i).Enabled = False End If Next i 77、请教大家，我想在EXCEL文件退出时，另存为当前目录下的子目录BAK中，比如EXCEL文件在C盘，就另存为C:\BAK子目录下，但EXCEL文件的位置不确定，不知如何写语句？ 注意先引用"Microsoft Scripting Runtcom" Private Sub Workbook_BeforeClose(Cancel As Boolean) ' 在本文件要關閉前，執行備份動作。 If Not ActiveWorkbook.Saved Then Exit Sub ' 若原文件未存檔，備份檔也不存。 ThisPath = ThisWorkbook.Path ' 假定備份文件夾之名稱為"BAK"，若本文件是備份檔，則不需再備份。 If Len(Application.WorksheetFunction.Substitute(ThisPath, "BAK", "")) < Len(ThisPath) Then Exit Sub

Bak = ThisPath & "\" & "BAK" '檢查備份文件夾是否存在，若不存在，就建立一個。 If Len(Dir(Bak, vbDirectory)) > 0 Then If (GetAttr(Bak) And vbDirectory) = vbDirectory Then GoTo 3 ' 若已存在，跳到下一步。 End If MkDir Bak ' 建立備份文件夾。 ' 改變目前路徑到備份文件夾路徑，並備份之。 3 ChDir Bak Application.EnableEvents = False ' 避免執行BeforeSave事件。 Application.DisplayAlerts = False ' 避免顯示是否要覆蓋原備份文件之訊息。 ActiveWorkbook.SaveAs ChDir ThisPath ' 改變目前路徑回到原文件夾路徑。 Application.DisplayAlerts = True Application.EnableEvents = True End Sub 上述程式有個漏洞，就是在本文件做過更動，且存檔過了，但最後一次的更動未存檔，則 If Not ActiveWorkbook.Saved Then Exit Sub 這個判斷會造成不存備份檔之錯誤決定。 若想彌補上述錯誤，將觸發的事件改成Workbook_BeforeSave，卻會造成Excel關閉的錯誤。 78、文件保存为以某一单元格中的值为文件名的宏怎么写 用命令： ActiveWorkbook.SaveCopyAs Str(Range("Sheet1!A1")) + ".xls" 79、Offset 属xìng 参阅应用于示例特xìng应用于 Range 对象的 Offset 属xìng。 返回一个 Range 对象，该对象代表某个指定区域以外的区域。只读。 expression.Offset(RowOffset, ColumnOffset) expression 必需。该表达式返回一个 Range 对象。 RowOffset Variant 类型，可选。区域偏移的行数（正值、负值或 0（零））。正值表示向下偏移，负值表示向上偏移，默认值为 0。 ColumnOffset Variant 类型，可选。区域偏移的列数（正值、负值或 0（零））。正值表示向右偏移，负值表示向左偏移，默认值为 0。 应用于 TickLabels 对象的 Offset 属xìng。 返回或设置各级别标签之间的距离以及第一级标签与坐标轴之间的距离。其默认距离为百分之百，代表坐标轴标签与坐标轴之间的默认距离。其值可以为从 0 到 1000 之间的一个整数百分比，表示相对于坐标轴标签的字体大小。Long 类型，可读写。 expression.Offset expression 必需。该表达式返回一个 TickLabels 对象。 示例 应用于 Range 对象。 本示例激活 Sheet1 上活动单元格向右偏移三列、向下偏移三行处的单元格。 Worksheets("Sheet1").Activate ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate 本示例假定 Sheet1 中包含一个具有标题行的表格。本示例先选定该表格，但并不选择标题行。运行本示例之前，活动单元格必须位于表格中。 Set tbl = ActiveCell.CurrentRegion

tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Select 应用于 TickLabels 对象。 如果偏移量小于 500，则本示例将 Chart1 中数值轴上标签之间的距离设置为当前距离的两倍。 With Charts("Chart1").Axes(xlValue).TickLabels If .Offset < 500 then .Offset = .Offset * 2 End If End With 80、新建工作簿 参阅特xìng若要在 Visual Basic 中创建新的工作簿，请使用 Add 方法。下述过程创建了新的工作簿。Microsoft Excel 自动将该工作簿命名为“BookN”，其中“N”是下一个可用的数字。新工作簿将成为活动工作簿。 Sub AddOne() Workbooks.Add End Sub 创建新工作簿更好的方法是将其分配给一个对象变量。下例中，由 Add 方法返回的 Workbook 对象分配给了对象变量 newBook。然后，又设置了 newBook 的若干属xìng。使用对象变量可以很容易地控制新工作簿。 Sub AddNew() Set NewBook = Workbooks.Add With NewBook .Title = "All Sales" .Subject = "Sales" .SaveAs Filencom:="Allsales.xls" End With End Sub

81、Rem:将活动单元格从A5移到A6，并将A6单元格的数值保存到x变量中 range("A5 ").select此命令就是选择A5单元格 Activecell.offset(1,0).select X=activecell.value 82、用代码窗口中可用F8运行宏，Alt+F8显示宏对话框，Alt+F11可以打开VBE编辑器 83、Option Explicit 在程序代码前使用该命令，则变量要在声明后才能使用，否则编译程序无法识别该变量，从而产生错误信息 84、Load语句用于加载窗体，加载后将占用内存，Hide方法使窗体隐藏，但仍在内存中，故不再使用窗体时应使用Uuload语句及时卸载，将内存jiāo还系统，Show方法用来显示一个窗体，格式： 窗体名称.show 模式，模式可取0或1，为1时，不能到其他窗体cāo作，只有关闭该窗体后才能对其他窗体cāo作 85、控件的命名规则，通常使用3个字母的前缀命名控件，如Label的前缀为lbl,初学者最好养成良好的命名习惯 86、按下Ctrl+Enter键单元格不移动。 87、按下F2键直接在单元格内编辑，不需动鼠标 88、命令按钮不支持双击(Dbclick)事件 89、Private Sub CheckBox1_Click() If CheckBox1.Value Then

MsgBox "333" Else MsgBox "666" End If End Sub 本段的主要用意在于明白了If CheckBox1.Value Then与If CheckBox1.Value=True Then 90、Tcomr是计时器,功能是按指定时间间隔产生定时事件 91、在一个语句要分行显示的地方加一个或多个空格，加一个下划线＿然后回车转入下一物理行，作用在于代码一行写不下时续行，程序代码中一行较短时可加：把多行连成一行显示 92、if a>15 then b=10 else b=100 end if 可改为如下if语句 b=iif(a.15,10,100) 93、F12用于启动另存为对话框 94、x=shell(calc.exe,1)可打开计算器程序 95、call语句格式：Call<子过程名>[(<实际参数表>)]如果过程本身没有参数，则实参和括号可省略，并报参数放在括号中，另一个调用Sub过程的方法是: <子过程名>[<实际参数表>]比前一个少了Call和括号，子过程调用语句的实参在数目、类型、排列上与子过程定义语句的形式参数表一致 96、自定义函数一例,求abc三个数的平均 Private Function Passed(By Val a As integer, By Val b As integer, By Val c As integer) ave=(a+b+c)/3 End Sub 在定义时必须向函数过程名赋值，而子程序名不能赋值 97、在工作表任意单元格输入=Cell("filencom")可获得文件的完整路径、文件名和工作表名 98、在打开Excel文件时按住Shift键，将不运行VBA过程，可防止宏病dú，单击文件 关闭命令，在点关闭时按住Shift键将在不运行VBA过程的情况下

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