快来参加 Excel VBA 秘笈接龙

山菊花

这是一种代码书写格式。

M把若干行独立的语句合并为一行，各语句之间用“:”分隔。

如：

QUOTE:

a = 1

b = 2

c = a + b

Debug.Print c

把上面代码合并为一行：

QUOTE:

a = 1: b = 2: c = a + b: Debug.Print c

把相关联的代码写成一行，强化了代码间的整体性。

M与之相反的符号是“_”，把一个完整的语句分为两行书写：

QUOTE:

MsgBox "今天是：" & Date & Chr(13) & Chr(13) & "是否要备份文件？          " & Chr(13) & "    是—立即备份" & Chr(13) & "    否—放弃备份", 36, "提示"

上面代码原本一行，可分成若干行书写：

QUOTE:

MsgBox "今天是：" & Date & Chr(13) & Chr(13) _
& "是否要备份文件？          " & Chr(13) _
& "    是—立即备份" & Chr(13) _
& "    否—放弃备份" _
, 36, "提示"

这样便于阅读。

雪兰君

“_”前面加空格

":"符号,类似一个并列符

放在if 后面，如果执行是语句简单多个；程序也比较好看．

还可以省略敲入 end if．

不过如果有else，好象还得敲 end if　，也想不出什么方法

":"符号对其他函数，是否有这种功能，可以使写程序的时候可以有效偷懒．　欢迎发表秘籍～　　

fanjy

关于Workbooks集合

通常，我们提倡使用工作簿的名字而不是索引号来指明特定的工作簿，如下所示：

Workbooks(“Book1.xls”)

但应该注意的是，如果用户使用“文件”菜单中“新建”命令创建了一个名为Book2的新工作簿，我们应使用下面的代码指定该工作簿：

Workbooks(“Book2”)

但是，您使用下面的代码指定该工作簿，如果该工作簿Book2还未保存到您的硬盘中，当您运行时：

Workbooks(“Book2.xls”)

将会产生一个错误(下标越界)。

清风_ll

QUOTE:

以下是引用fanjy在2006-8-17 14:10:38的发言：

关于Workbooks集合

对于尚未保存的新建工作簿系统默认以Bookx的形式暂时命名,没有加后缀.对于工作簿的名称引用可事先使用工作簿的Name属性获得.

jiangrushu

在EXCEL中用按钮将指定单元格的数据作为新建doc文档的文件名,并保存的代码:

Sub 按钮2_单击()
'   Creates memos in word using Automation (late binding)
    Dim wordApp As Object
    Dim Data As Range, message As String
    Dim Records As Integer, I As Integer
    Dim Region As String, SalesAmt As String, SalesNum As String
    Dim SaveAsName As String
   'Start Word and create an object
    Set wordApp = CreateObject("Word.Application")
'   Information from worksheet
    Set Data = Sheets("Sheet1").Range("A2")
    'Assign current data to variables
        Region = Data.Cells(1, 3).Value
       
'       Determine the file name
        SaveAsName = ThisWorkbook.Path & "\" & Region & ".doc"

'       Send commands to Word
        With wordApp
            .Documents.Add
            .ActiveDocument.SaveAs FileName:=SaveAsName
        End With
 
'   Kill the object
    wordApp.Quit
    Set wordApp = Nothing

'   Reset status bar
    Application.StatusBar = ""
    MsgBox Records & " memos were created and saved in " & ThisWorkbook.Path
End Sub

 [em26][em26][em26][em26][em26][em26][em26][em26][em26]

清风_ll

经常使用VBA的人肯定会遇到过这样的问题：在VBE中人工的对各个窗格的位置进行拖放调整，调整过后想恢复为系统默认的排列方式时却怎么也恢复不了，我就常常的遇到过这种情况，有时真的很不爽，经过摸索后找了解决方法：修改注册表!

方法如下：

1、关闭Excel应用程序

2、在注册表[HKEY_CURRENT_USER\Software\Microsoft\VBA\6.0\Common]键下保存着VBE的各种设置参数，其中有一个名为Dock的二进制值，该值保存着VBE窗口中各窗格的各种信息，双击它并删除里面的数据，键值将显示为"(长度为0的二进位值)"，重新打开Excel，进入VBE您将发现窗格已经恢复默认设置了。当然您也可以删除该键，再新建一个名为Dock的二进制值，键值为默认就可以了。事实上删除后不需要重建该键也可以。

该方法在2003中测试通过。

[此贴子已经被作者于2006-8-27 10:02:56编辑过]

chenhuafu

终于从头到尾看了一遍。不错不错！

fanrong88

学习

fanrong88

收一下

zjinling

灌水[em11]