精华内容
下载资源
问答
  • VBA注释

    千次阅读 2017-11-23 17:24:14
    VBA注释 注释是用来记录程序逻辑和用户信息与其他程序员可以在相同的代码无缝协同工作打好基础。 它可包括开发,修改的信息,例如,它也可以包括引入作为逻辑。注释被解释执行时忽略。 在VBA中的注释用两种方法来...
    

    VBA注释

    注释是用来记录程序逻辑和用户信息与其他程序员可以在相同的代码无缝协同工作打好基础。

    它可包括开发,修改的信息,例如,它也可以包括引入作为逻辑。注释被解释执行时忽略。

    在VBA中的注释用两种方法来表示。

    1.是用单引号(?)开始的任何语句都被当作注释。下面是一个例子:

    ' This Script is invoked after successful login
    ' Written by : YiiBai
    ' Return Value : True / False

    2.以关键字“REM”开头的任何声明。下面是一个例子:

    REM This Script is written to Validate the Entered Input
    REM Modified by  : Yiibai/user_a
    展开全文
  • 在Office的VBA编辑器( ALT + F11 )中,如何注释或取消注释代码块?

    本文翻译自:How to comment and uncomment blocks of code in the Office VBA Editor

    在Office的VBA编辑器( ALT + F11 )中,如何注释或取消注释代码块?


    #1楼

    参考:https://stackoom.com/question/Sgxh/如何在Office-VBA编辑器中注释和取消注释代码块


    #2楼

    In the VBA editor, go to View , Toolbars , Customise... or right click on the tool bar and select Customise... 在VBA编辑器中,转到“ View ,“ Toolbars ,“ Customise...或右键单击工具栏,然后选择“ Customise...

    Under the Commands tab, select the Edit menu on the left. 在“ Commands选项卡下,选择左侧的“ Edit菜单。

    Then approximately two thirds of the way down there's two icons, Comment Block and Uncomment Block . 然后大约在三分之二的位置有两个图标, Comment BlockUncomment Block

    Drag and drop these onto your toolbar and then you have easy access to highlight a block of code, and comment it out and uncomment with the click of a button! 将它们拖放到工具栏上,然后您可以轻松访问以突出显示代码块,并单击一下即可注释掉并取消注释!


    See GauravSingh's answer if you want to assign keyboard shortcuts. 如果要分配键盘快捷键,请参阅GauravSingh的答案


    #3楼

    Have you checked MZTools? 您检查过MZTools吗? ? It does a lot of cool stuff... 它做很多很棒的事情...

    If I'm not wrong, one of the functionalities it offers is to set your own shortcuts. 如果我没看错,它提供的功能之一就是设置自己的快捷方式。


    #4楼

    1. Right-click on the toolbar and select Customize... 右键单击工具栏,然后选择“ 自定义...”。
    2. Select the Commands tab. 选择命令选项卡。
    3. Under Categories click on Edit , then select Comment Block in the Commands listbox. 类别下,单击编辑 ,然后在命令列表框中选择注释块
    4. Drag the Comment Block entry onto the Menu Bar (yep! the menu bar) 注释块条目拖到菜单栏上(是!菜单栏)
      Note: You should now see a new icon on the menu bar. 注意:您现在应该在菜单栏上看到一个新图标。
    5. Make sure that the new icon is highlighted (it will have a black square around it) then 确保新图标突出显示(它周围将有一个黑色正方形),然后
      click Modify Selection button on the Customize dialog box. 单击“ 自定义”对话框上的“ 修改选择”按钮。
    6. An interesting menu will popup. 将会弹出一个有趣的菜单。
      Under name, add an ampersand ( & ) to the beginning of the entry. 在名称,添加和号( & )的条目的开头。
      So now instead of "Comment Block" it should read &Comment Block . 因此,现在应改为“ &Comment Block ”,而不是““ Comment Block””。
      Press Enter to save the change. Enter保存更改。
    7. Click on Modify Selection again and select Image and Text . 再次单击“ 修改选择” ,然后选择“ 图像和文本”
    8. Dismiss the Customize dialog box. 退出“ 自定义”对话框。
    9. Highlight any block of code and press Alt - C . 突出显示任何代码块,然后按Alt - C Voila.
    10. Do the same thing for the Uncomment Block or 对取消注释块执行相同的操作,或者
      any other commands that you find yourself using often. 您经常使用的其他任何命令。

    #5楼

    An easy way to add buttons to Comment or Un-Comment a code block is: 将按钮添加到CommentUn-Comment代码块的简单方法是:

    • Go to View-Toolbars-Customise 转到查看工具栏自定义
    • Select the Command tab 选择命令选项卡
    • Select the Edit Category on the left 选择左侧的编辑类别
    • Drag the “Comment Block” and “Uncomment Block” icons onto your toolbar. 将“注释块”和“取消注释块”图标拖到工具栏上。

    #6楼

    There is a built-in Edit toolbar in the VBA editor that has the Comment Block and Uncomment Block buttons by default, and other useful tools. VBA编辑器中有一个内置的“ 编辑”工具栏,默认情况下具有“ 注释块”和“ 取消注释块”按钮,以及其他有用的工具。

    If you right-click any toolbar or menu (or go to the View menu > Toolbars ), you will see a list of available toolbars (above the "Customize..." option). 如果右键单击任何工具栏或菜单 (或转到“ 查看”菜单>“工具栏” ),您将看到可用工具栏的列表(“自定义...”选项上方)。 The Standard toolbar is selected by default. 默认情况下,“标准”工具栏处于选中状态。 Select the Edit toolbar and the new toolbar will appear, with the Comment Block buttons in the middle. 选择“ 编辑”工具栏,将出现新的工具栏,中间有“注释栏”按钮。

    在此处输入图片说明

    *This is a simpler option to the ones mentioned. *这是上述选项中比较简单的选项。

    展开全文
  • VBA注释 多行

    万次阅读 2012-07-05 13:39:43
    VBA中可以用' or Rem 注释单行,但是注释多行却不容易做,正确答案是: 右击工具栏,选择Edit 在这个工具条中,就可以看到了. 看到了吗?

    在VBA中可以用' or Rem 注释单行,但是注释多行却不容易做,正确答案是:

    右击工具栏,选择Edit 在这个工具条中,就可以看到了.

    看到了吗?

    展开全文
  • 常用的VBA短句(带注释) [A65536].End(xlUp).Row 'A列末行向上第一个有值的行数 [A1].End(xlDown).Row 'A列首行向下第一个有值之行数 [IV1].End(xlToLeft).Column '第一行末列向左第一列有数值之列数。 [A1]....
  • excel的VBA快捷键

    2013-03-02 15:43:45
    excel的VBA快捷键
  • VBA 常用的VBA短句(带注释

    千次阅读 2016-07-26 14:03:33
    带解释的 VBA 短句 [VBA起步]常用的、带解释的 VBA 短句 [A65536].End(xlUp).Row 'A列末行向上第一个有值的行数 [A1].End(xlDown).Row 'A列首行向下第一个有值之行数 [IV1].End(xlToLeft).

    带解释的 VBA 短句

    [VBA起步]常用的、带解释的 VBA 短句

    [A65536].End(xlUp).Row                            'A列末行向上第一个有值的行数

    [A1].End(xlDown).Row                               'A列首行向下第一个有值之行数

    [IV1].End(xlToLeft).Column                        '第一行末列向左第一列有数值之列数。

    [A1].End(xlToRight).Column                       '第一行首列向右有连续值的末列之列数

    Application.CommandBars("Standard").Controls(2).BeginGroup=True '在常用工具栏的第二个按钮前插入分隔符

    Cells.WrapText = False             '取消自动换行

        If Len(Target) > 5 Then           '如果当前单元格中的字符数超过5个,执行下一行

            Target.WrapText = True        '自动换行

        End If

    [A1:B10].SpecialCells(xlCellTypeBlanks).Rows.Hidden = True      '有空格即隐藏行

    [A2].parent.name                                                '返回活动单元格的工作表名

    [A2].parent.parent.name                                         '返回活动单元格的工作簿名

    如下代码可使工作簿打开后30秒(或闲置30秒)内不输入、不重新选择等,自动关闭工作簿

    Private Sub Workbook_Open()               '工作簿打开事件

       tt                                     '工作簿打开时启动 tt 过程

    End Sub

    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  '工作表变化事件

       tt                                                                '工作表中任一单元格有变化时启动 tt 过程

    End Sub

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) '工作表选择变化事件

       tt                                                            '工作表中单元格的选择有变化时启动 tt 过程

    End Sub

    Sub tt()                                       'tt 过程

       Dim myNow As Date, BL As Integer            '定义myNow为日期型;定义BL为长整型 

       myNow = Now                                 '把当前的时间赋给变量myNow

       Do                                          '开始循环语句Do

          BL = Second(Now) - Second(myNow)         '循环中不断检查变量BL的值

          If BL = 30 Then GoTo Cl                  '当BL=30即跳转到CL

          DoEvents                                 '转让控制权,以便sheets可继续操作

       Loop Until BL > 30                          '当BL>30即跳出循环

       Exit Sub

    Cl:

       Application.EnableEvents = False            '避免引起其他事件 

       ActiveWorkbook.Close True                   '关闭活动工作簿并保存

       Application.EnableEvents = True             '可触发其他事件

    End Sub

    range("e4").addcomment.Text "代头" & Chr(10) & "内容……"         '添加批注 

    range("e4").Comment.Visible = True                     '显示批注

    把工作簿中所有工作表的指定列调整为最佳列宽:

    Sub 调整列宽()

       Dim i%                 

       For i = 1 To Sheets.Count                '遍历工作簿中所有的工作表

          Sheets(i).Columns("A:K").AutoFit      '把每个工作表的[A:K]列调整为最佳列宽

       Next i                                    

    End Sub

    Do循环语句的几种形式:

    1. 

    Do While i>1     '条件为True时执行

    ... ...  '要执行的语句

    Loop

    2.

    Do Until i>1     '条件为False时执行

    ... ...  '要执行的语句

    Loop

    3.

    Do 

    ... ...  '要执行的语句

    Loop While i>1   '条件为True时执行

    4.

    Do 

    ... ...  '要执行的语句

    Loop Until i>1   '条件为False时执行

    5.While...Wend 语句

    While i>1        '条件为True时执行

    ... ...  '要执行的语句

    Wend

    勾选"VBA项目的信任"

    Application.SendKeys "%(tmstv){ENTER}"                 '在 Excel 窗口操作

    Application.SendKeys "%(qtmstv){ENTER}"                '在 VBE 窗口操作

    Application.CommandBars("命令按钮名称").Position = msoBarFloating  '使[命令按钮]悬浮在表格中

       Application.CommandBars("命令按钮名称").Position = msoBarTop       '使[命令按钮]排列在工具栏中

    ActiveSheet.protect Password:="wshzw"                         '为工作表保护加口令

    ActiveSheet.Unprotect Password:="wshzw"                         '解除工作表保护

    Activesheet.ProtectContents                                 '判断工作表是否处于保护状态

    工作表的复制与命名

    Sub wshzw()

       Dim i As Integer

       For i = 1 To 5

          Sheets("Sheet1").Copy After:=Sheets(1)  'Before/After 复制新表在 Sheets("Sheet1") 前/后

          ActiveSheet.Name = i & "月"             '为复制的新表命名

       Next i

       Sheets("Sheet1").Name = "总表"             '为 Sheets("Sheet1") 改名

    End Sub

    Application.EnableEvents = False       

          ......

    Application.EnableEvents = True   '抑制事件连锁执行

    Application.EnableEvents = False

    ActiveWorkbook.Save     '抑制BeforeSave事件的发生

    Application.EnableEvents = True     '抑制指定事件

    Application.DisplayAlerts=False  '屏蔽确认提示 

     Application.ScreenUpdating = False

       .......

    Application.ScreenUpdating = true    ' 冻结屏幕以加快程序运行

     

    ActiveCell.CurrentRegion.Select                              '选择与活动单元格相连的区域

    range("a2:a20").NumberFormatLocal = "00-00"                          '区域的格式化

    ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row          '已用区域的最末行

    ActiveSheet.Copy Before:=Sheets(1)                          '复制活动工作表到第一张工作表之前

    range("a2:a20").FormulaHidden = True                           '工作表处于保护状态时隐藏部分单元格公式

     

    FileDateTime("E:\My Documents\33.xls")

    FileDateTime(thisworkbook.FullName)     '文件被创建或最后修改后的日期和时间

    FileLen(thisworkbook.FullName) / 1024

    FileLen("E:\My Documents\temp\33.xls") / 1024     '文件的长度(大小),单位是 KB

    Application.AskToUpdateLinks = False                     '不询问是否更新链接,并自动更新链接

    ActiveSheet.Hyperlinks.Delete                                   '删除活动工作表超链接

    ActiveWorkbook.SaveLinkValues = False                        '不保存活动工作簿的外部链接值

    ActiveSheet.PageSetup.CenterFooter = Range("k2").Value          '打印时设置自定义页脚

    ActiveSheet.PageSetup.Orientation = xlLandscape                 '设置为横向打印

    ActiveSheet.PageSetup.Orientation = xlPortrait                  '设置为纵向打印

    Application.WindowState = xlMinimized    '最小化窗口

        Application.WindowState = xlNormal    '最大化窗口

    Sub 删除工作表()

        Application.DisplayAlerts = False

        Sheet1.Delete

        Application.DisplayAlerts = True

    End Sub

    有删除就有添加

    Sub 添加工作表()

        For i = 1 To 5

            Worksheets.Add.Name = i

        Next

    End Sub

    [A1:A20].AdvancedFilter xlFilterCopy, [B1], Unique:=True          '可去掉重复数据

    [A2:C32].Replace What:="F", Replacement:="G"                     '指定范围内的查找与替换

    Activesheet.AutoFilterMode = false                              '取消自动筛选

    执行以下语句可有效缩小工作簿的大小,执行前请先看清每条语句的作用:

    ActiveSheet.UsedRange.ClearComments             '清除活动工作表已使用范围所有批注

    ActiveSheet.UsedRange.ClearFormats             '清除活动工作表已使用范围所有格式

    ActiveSheet.UsedRange.Validation.Delete         '取消活动工作表已使用范围的数据有效性

    ActiveSheet.Hyperlinks.Delete                   '删除活动工作表超链接

    ActiveSheet.DrawingObjects.Delete               '删除活动工作表已使用范围的所有对象

    ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value      '取消活动工作表已使用范围的公式并保留值

    还有:

    Sub x()

       Dim myRange As String

       myRange = ActiveSheet.UsedRange.Address     '去除活动工作表无数据的行列

    End Sub

    ActiveWorkbook.FullName                          '当前窗口文件名与路径

    Application.AltStartupPath= "E:\My\MyStart"      '替补启动目录路径

    Application.AutoRecover.Path                     '返回/设置Excel存储"自动恢复"临时文件的完整路径

    Application.DefaultFilePath                      '选项>常规中的默认工作目录

    Application.Evaluate("=INFO(""directory"")")     '默认工作目录

    Application.LibraryPath                          '返回库文件夹的路径

    Application.NetworkTemplatesPath                 '返回保存模板的网络路径

    Application.Path                                 '返回应用程序完整路径

    Application.RecentFiles.Item(1).Path             '返回最近使用的某个文件路径,Item(1)=第一个文件

    Application.StartupPath                          'Excel启动文件夹的路径

    Application.TemplatesPath                        '返回模板所存储的本地路径

    Application.UserLibraryPath                      '返回用户计算机上 COM 加载宏的安装路径

    Debug.Print Application.PathSeparator            '路径分隔符 "\"

    CurDir                                           '默认工作目录

    Excel.Parent.DefaultFilePath                     '默认工作目录

    ThisWorkbook.Path                                '返回当前工作薄的路径

    dim mm(2,10)

    Range("a1:b10")=mm              '可以将二维数组赋值给Range

    Application.Dialogs(XLdialogsaveas).show     显示保存对话框

    [SIZE=1]Sub x()

       Dim myRange As String

       myRange = ActiveSheet.UsedRange.Address     '去除活动工作表无数据的行列

    End Sub

    这相当于把新的已使用区域赋值给变量,效果等同于手工删除多余的列或行后立即保存;

    来一个函数的

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    '右边单元格反向显示活动单元格文本

    If ActiveCell.Column < 256 Then ActiveCell.Offset(0, 1) = StrReverse(ActiveCell)

    End Sub

    想不到UsedRange还可以这样用,又学到了!有了这个就可以轻松取得当前Sheet的最末行和最末列号了:

    Sub test()

    Dim myRange As String

    myRange = ActiveSheet.UsedRange.Address

    Debug.Print "LastRow=" & Cells.SpecialCells(xlCellTypeLastCell).Row

    Debug.Print "LastColumn=" & Cells.SpecialCells(xlCellTypeLastCell).Column

    myRange = ""

    End Sub

    跟一帖:如上下相邻单元格数据相同则删除一个

    Sub Yjue()

       Dim myCell As Range, NCell As Range        '定义

       Set myCell = ActiveSheet.Range("b2")       '把对象ActiveSheet.Range("b2")赋给变量myCell

       Do While Not IsEmpty(myCell)               '条件为True时执行 

          Set NCell = myCell.Offset(1, 0)         '把对象myCell的下一个单元格赋给变量NCell

          If NCell.Value = myCell.Value Then      '如上下相邻单元格数据相同,则望下执行

              myCell.Delete                       '删除myCell

          End If                                  '结束条件语句

          Set myCell = NCell                      '把变量NCell赋给变量myCell,等于在循环中把原myCell下移了一格

       Loop

    End Sub

    复制行高列宽与内容:

    Sub Yjue()                      '过程的名称

       Sheet2.Rows("2:23").Copy     '复制行区域

       Sheet3.Select                '选择粘贴区域

       Range("A2").PasteSpecial Paste:=xlPasteColumnWidths   '粘贴类型

       ActiveSheet.Paste            '实施粘贴

       Application.CutCopyMode = False   '取消复制模式

    End Sub

    如整行为空白则删除整行:

    Sub DelRow()

       Dim i As Integer, LastRow As Integer

       LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row  '把最后行的行号赋给变量

       For i = LastRow To 1 Step -1                                      '倒循环

          If Range("iv" & i).End(xlToLeft).Column = 1 And Range("a" & i) = "" Then 

             Range("a" & i).EntireRow.Delete                          '如整行为空白则删除整行

          End If

       Next i                                        

    End Sub

    T = Application.GetOpenFilename("Text Files (*.dat), *.dat")选择文件保存路径

    通过依次赋色给单元格的例子,展示简单的 On Error GoTo Line1 用法:

    Sub Yjue()                '过程名

       Dim i As Integer       '定义 i 为整型

       On Error GoTo Line1    '遇到错误跳转到 Line1

       For i = 0 To 65        '予设从 0 循环到 65

          Cells(i + 1, 2).Interior.ColorIndex = i  '依次赋色给第2列的单元格

          Cells(i + 1, 1) = i                      '依次给第1列的单元格标上色索引号

       Next i

       Exit Sub              '退出过程

    Line1:                   '遇到错误跳转到这行继续执行

       MsgBox "默认颜色只有 " & i - 1 & "种。"    '提示对话框

    End Sub                  '结束过程

    通过显示或取消网格线,展示运算符“Not”应用的简单示例:

       Dim myLine As Boolean                     '定义变量myLine为布尔型

       With CommandButton1                         'With语句结构

          If .Caption = "取消网格线" Then             '如按钮上显示为"取消网格线"

             .Caption = "显示网格线"                  '改按钮上的字幕为"显示网格线"

             myLine = ActiveWindow.DisplayGridlines       '把活动窗口当前网格线的显示状态赋给变量

             ActiveWindow.DisplayGridlines = Not myLine     '进行逻辑否定运算

          Else               

             .Caption = "取消网格线"                        '否则按钮上显示为"取消网格线"

             ActiveWindow.DisplayGridlines = Not myLine     '进行逻辑否定运算

          End If

       End With                           '结束With语句结构

    ActiveCell.Offset(, -1).Name = "hzw"                            '定义名称

    ActiveCell.Precedents.Address                                   '被当前单元格所引用的区域地址

    ActiveCell.Resize(0, 2).Select                                  '选定当前单元格并向右延伸二格

    Activesheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 '显示自动筛选后的行数

    有选择地删除指定区域内的单元格

    点击按钮可选择性的删除[A1:A20]区域内含有[D1]中字样的单元格;再点击按钮可返回原样;

    如果替换了[D1]中的字样,点击按钮后所删除[A1:A20]区域中的单元格亦会随着变化。

       With CommandButton1

          If .Caption = "删除单元格" Then       '如按钮显示的字符为:"删除单元格",

             .Caption = "反悔删除"              '则改为:"反悔删除"

             For i = 20 To 1 Step -1            '倒循环

                If Cells(i, 1) Like "*" & Range("d1") & "*" Then

                   Cells(i, 1).Delete Shift:=xlUp     '如循环中发现某个单元格含有[D1]中字符,则删除该单元格

                End If

             Next i

          Else

             .Caption = "删除单元格"            '否则让按钮显示的字符为:"删除单元格"

             Range("a1:a20") = Range("f1:f20").Value   '把[F1:F20]赋给[A1:A20],为了可反复测试

          End If

       End With

    下面换个话题,举一个限制鼠标只能在[B2:G60]以外的区域活动的例子:

       With ActiveSheet                      'With 语句,在一个单一对象上执行一系列的语句

          .Unprotect                         '解除没设密码的工作表保护 

          .Cells.Locked = False              '解除活动工作表中所有单元格的“锁定”

          .Range("b2:g60").Locked = True     '只锁定 [B2:G60] 区域

          .EnableSelection = xlUnlockedCells   '仅允许选定未被有效锁定的单元格

          .Protect                           '工作表保护(没设密码)

       End With                              'With 语句结束

    一个复制数据后,只能粘贴数值的例子

    Private Sub Worksheet_SelectionChange(ByVal T As Range)  '工作表SelectionChange事件

       On Error Resume Next                                  '忽略代码运行中的错误,并越过错误继续执行后面的语句

       If T.Column = 1 Then                                '如活动单元格为第一列时执行下面的语句

          Selection.PasteSpecial Paste:=xlPasteValues     '粘贴数值

          Application.CutCopyMode = False                 '立即清空剪贴板

       End If                                            'IF结构结束

    End Sub                                              '本过程结束 

    -----------------------------------------------------------

    如何用VBA获得工作簿名称?

    For Each wbk In Workbooks

        MsgBox wbk.Name

    Next

    Workbooks.Close  '关闭所有工作簿

    Application.Quit '关闭所有工作簿

     

    工作簿调用的问题

    本人做了一个程序,里面自定义了工具菜单:

         如果程序打开后,调用了一个新的工作簿,当再次调用第二个新的工作簿时如何用vba编写一段代码,先保存退出调用的第一个工作簿,然后再打开第二个新的工作簿

    Dim Wb As Workbook

    Sub test()

    Set Wb = Workbooks.Open("book2.xls")

    End Sub


    Sub test2()

    Wb.Close savechanges:=True

    Set Wb = Workbooks.Open("book5.xls")

    End Sub

    下面代码为何不能进行两工作簿中的工作之间的复制?(复制代码出现不支持此属性或方法的错误)

     Mybo = ActiveWorkbook.Name

        She = Sheets(1).Name

        Range("A1:B1").Select

        Selection.AutoFilter

        Range("B2").Select

        Selection.AutoFilter Field:=1, Criteria1:=">100", Operator:=xlAnd, _

            Criteria2:="<200"

        Windows(Mybo).Worksheets(She).Range("A1:K5000").Copy _

            Destination:=Windows(mybook).Worksheets("acfmis").Range("A1")


    展开全文
  • vba 注释

    千次阅读 2010-07-20 17:49:00
    注释一行用 单上引号 ‘ 或 Rem <br />一次注释多行 打开视图---工具栏---编辑 调出编辑工具栏,工具栏上有个“设置注释块” 和 “解除注释快”
  • Excel VBA CVR-100U/C 身份证记录程序 源代码为汽车站旅游线路记录个人记录使用 功能: 窗口界面:提供身份证信息显示,操作员信息,统计信息,全功能手动、自动、批量记录 记录功能:在表中自动按月记录数据 说明:...
  • vba常用方法

    2020-10-06 08:43:59
    Excel VBA常用代码总结1 做了几个月的Excel VBA,总结了一些常用的代码,我平时编程的时候参考这些代码,基本可以完成大部分的工作,现在共享出来供大家参考。 说明:本文为大大佐原创,但部分代码也是参考百度得...
  • 代码常用的VBA短句带注释.doc
  • VBA注释(四)

    2019-09-28 00:15:33
    注释用于记录程序逻辑和用户信息,其他...VBA中的注释用两种方法表示,它们分别如下 - 任何以单引号(')开头的语句都被视为注释。以下是注释的一个例子。 ' This Script is invoked after successful login...
  • VBA写辅助小程序

    2019-09-27 16:02:46
    1、用户窗体 (1)按钮ControlTipTerxt,增加注释
  • Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document ' On Error Resume Next '忽略错误 ...
  • 将后面的表格数据进行筛选,然后统一放置总表中浏览(操作简单明了,不懂的可以留言问我)
  • 原文地址: ...   代码注释有很多风格,纵多开源软件都...我们在编写代码注释时为了统一风格,经常使用copy-paste方法,然后再修改不同的部分。为了更方便统一代码注释规范的应 用,加快开发中编码的速度,我
  • Excel里使用VBA对已经合并的单元格添加注释,直接使用AddComment会报: 运行时错误 '1004':应用程序定义或者对象定义错误 找了很多文章都没找到怎么解决,最后发现在AddComment之前,先ClearComments一下,就好了 ...
  • vba文本文件读写

    2020-05-01 16:18:06
    如果注释掉strbuf = .readtext,就从文件头开始。如果新文本长度大于原内容长度,相当于实现覆盖的效果。否则会出现新文本原文本混合的情况。如果原文件文本是12345,新内容是666,完就是66...
  • Office编程百宝箱29.0,简称VBA百宝箱。为Office编程国产首款超大型插件,原创30多个功能宝贝。所有功能通用于Excel、Word、PowerPoint、Outlook、Access、Publisher、Project、Office全家福。适用于微软Office2003...
  • 近200个常用功能的VBA代码,对每一行代码进行了详细的解释,并对涉及的函数进行全面的阐述,是工作时的有力助手也是学习VBA的最佳利器。
  • VBA基本语法整理

    千次阅读 2019-03-02 12:16:28
    最近为了一个调货程序,边学边用,终于是出来了一个Excel VBA程序,其中学会了不少使用方法,借此整理出来,希望能够给后来的新人有所帮助。 1. VBA 局部变量和全局变量 1. 局部变量 在Sub或者Function结构中...
  • VBA批量添加批注

    2020-08-13 17:03:45
    Sub ali() Dim i Application.ScreenUpdating = False i = 3 For i = 1 To Application.Sheets(1).UsedRange.Rows.Count - 1 If Len(Sheet1.Cells(i, 21)) > 0 Then Sheet1.Cells(i, 10).ClearComments ...
  • 包含:Excel2010_常用SQL语句解释 Excel VBA 完全手册
  • VBA代码大全

    2013-03-05 17:32:39
    excel VBA开发代码大全,各种需求处理VB代码,很全的哦
  • VBA做的针对文本内容进行选择操作,对选择结果输出的工具
  • 该文件为 ExcleVBA 用户窗体控件的属性值含义及用法。 主要包含一些常用模块。其中列举了每种情况所对应的含义及使用方法。 本文件只对用户窗体中属性进行了一定的注释,具体语法的使用如果不太明白请咨询百度。
  • EXCEL 高级筛选的增强版
  • 然后步入今天的正题 ~ (一)VBA注释 注释:不参与运行,是给开发者自己看的“备注”。在VBA中书写注释的方法有:1.使用单引号来控制单行注释;2.使用工具条上的按钮来控制注释块。所谓注释块就是指多行注释聚集在一...
  • VBA注释临时

    2018-06-17 11:23:00
    With t(0) '这里成d.itme(1)是否可行?AHK中必须成那样; .MoveStart 1, 2: .MoveEnd 1, -1: s2 = .Text .Text = s1 End With d(str).Text = s2 End If '上面就是交换两个选项内容,而选项自身不变; Case 1...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,216
精华内容 1,286
关键字:

vba写注释的方法