精华内容
下载资源
问答
  • 需求:手动报表生成后,通常需要删除一些辅助工作表及VBA代码,因为用户是不需要看到这些内容的。代码:Sub deleteVBACode() Dim wkBook As Workbook '用于删除delivery文件中的VBA代码(模块及工作表) Dim ...

    需求:

    手动报表生成后,通常需要删除一些辅助工作表及VBA代码,因为用户是不需要看到这些内容的。

    代码:

    其中,VBA组件类型有以下几种(供参考):

    Const vbext_ct_ActiveXDesigner = 11
    Const vbext_ct_ClassModule = 2
    Const vbext_ct_Document = 100 (&H64)
    Const vbext_ct_MSForm = 3
    Const vbext_ct_StdModule = 1

    Sub deleteVBACode()
    
    
    Dim wkBook As Workbook      '用于删除delivery文件中的VBA代码(模块及工作表)
    Dim objVbc As Object        '定义delivery文件中的VBA组件(VB Component)
        Set wkBook = GetObject(Filename)
        '删除delivery文件中的VBA代码 (用户无需看到这些代码)
        With wkBook.VBProject
            For Each objVbc In .VBComponents
            Select Case objVbc.Type
                Case 1, 2, 3
                    .VBComponents.Remove .VBComponents(objVbc.Name)
                Case Else
                    With objVbc.CodeModule
                        .DeleteLines 1, .CountOfLines
                    End With
            End Select
            Next
        End With
    
    
    End Sub
    
    展开全文
  • VBA中ClearContents和Delete的区别

    千次阅读 2020-03-23 09:48:34
    ClearContents:清除数值且保留原格式 Delete:清除数值且将整行删除 一、ClearContents效果 二、Delete效果 可以看到Delete的效果相当于右击单元格——删除——整行删除 ...

    ClearContents:清除内容且保留原格式

    Delete:删除单元格和内容,且将下方单元格上移(不带参数时默认)

    一、ClearContents效果

    二、Delete效果

    可以看到Delete的效果相当于右击单元格——删除——(不加参数默认)下方单元格上移。

    若Delete后使用参数,则可选右侧单元格左移、整行删除或整列删除。

    分别对应:Range("a3").Delete shift:=1  右侧单元格左移

                     Range("a3").Delete shift:=2   下方单元格上移(默认)

                     Range("a3").Delete shift:=3   整行删除

                     Range("a3").Delete shift:=4   整列删除

                              

    展开全文
  • 现在,您可以使用舒适的语法,支持Add() , Count() , Delete() , Sort()等方法。 您可以在找到更多信息。 例子 初始化ClassVector项并添加新元素: Dim vector As New ClassVector Dim arr1
  • VBA-Selection.Delete Shift:=xlUp

    千次阅读 2019-05-18 08:27:12
    Selection.Delete Shift:=xlUp 这句vba代码是什么意思? 我来答 分享 举报浏览 9691 次 1个回答 #热议#翻译软件越来越强大,大学生还有必要学外语吗? gaodongweiLove 推荐于2018-02-28 删除所选单元格或...

    Selection.Delete Shift:=xlUp 这句vba代码是什么意思?

    删除所选单元格或区域,单元格或区域以下内容向上移动。

    展开全文
  • 需求: 在辛苦生成报表后,要交付给用户的文件越“干净”越好!比如,在工作文件(workfile)中...http://www.cnhup.com/index.php/archives/delete-the-bad-references-in-the-active-workbook-using-vba-in-excel/

    需求:

    在辛苦生成报表后,要交付给用户的文件越“干净”越好!比如,在工作文件(workfile)中可能创建了很多vlookup区域(vlookup range names),这些名称会随着工作文件而“另存为”在待交付文件中。不要小看这些区域,实践证明,如果区域较多时,会额外占用很多空间。而且,这些区域对用户而言没有任何意义,所以,最好删除掉。


    代码:

    Sub deleteVBACode()
    
    Dim nm As Name
    Dim wkBook As Workbook
    Dim fileName As String      '定义delivery文件的完整路径(包括文件名)
    
    fileName = "在此指定delivery文件的完整路径"
    Set wkBook = GetObject(fileName)    '非常重要的一句!
    
       '删除无效名称
        For Each nm In wkBook.Names
            If InStr(1, nm.RefersTo, "#REF!") > 0 Then
                'List the name before deleting
                Debug.Print nm.Name & ": deleted"
                nm.Delete
            End If
        Next nm
    
    
    End Sub

        参考文章:

    http://www.cnhup.com/index.php/archives/delete-the-bad-references-in-the-active-workbook-using-vba-in-excel/

    展开全文
  • VBA ClearContents delete两者的区别

    千次阅读 2011-01-10 10:26:12
    使用了ClearContents清除单元格内容时,有时再统计单元格有内容的行数,会发现刚清除了的单元格也会列入统计之中,造成统计结果不对,而delete就不会了!
  • VBA 入门笔记

    千次阅读 2016-02-25 14:13:57
    去年刚刚学习VBA,总结一下入门知识,包括属性定义,选择判断循环等等。 Sub aa() MsgBox _ "学习 VBA ing" End Sub Sub 属性赋值() Sheet2.Name = "属性赋值" Sheet2.Range("b2") = "This is B2 cell" ...
  • 1.按Alt+F11打开VBA编辑窗口 2.双击要禁止delete的sheet,例如sheet1 3.在右边的编辑区的最上面加入下面的函数声明 [code="java"]Private Declare Function GetKeyboardState Lib "user32&...
  • VBA做日报

    千次阅读 多人点赞 2019-01-22 21:45:57
    前言:有个同事需要每天做日报,但是电脑又因为种种原因用不了power query,所以就用VBA帮他写了一段代码 报表成品如下图: 其实东西并不多,只有8列数据,用power query大概也就15分钟的时间,可是VBA我写了...
  • VBA批量删除Shape

    千次阅读 2018-08-13 12:40:00
    If n > 0 Then sht.Shapes.Range(arr).Delete n = 0 Next sht End Sub 删除当前工作表图片 Sub Clear_Picutes() Dim Shp As Shape For Each Shp In ActiveSheet.Shapes If Shp.Type = msoPicture Then Shp....
  • 在使用这个语句时会出现一个对话让用户来确认, 我们可用使用以下方法来避免这种...ActiveSheet.Delete 第二 Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True 转载于...
  • 因为在Excel中VBA是默认隐藏且禁止运行宏的,所以首先介绍如何在Excel中启用VBA,然后介绍基础的变量、常量与循环、判断语句
  • VBA与数据库

    2015-11-19 18:07:38
    •实例6-5 删除数据表(DAO+DELETE) 147 •实例6-6 删除数据表(DAO+SQL) 147 •实例6-7 删除数据表(Access) 148 •实例6-8 为数据表增加字段(ADO) 148 •实例6-9 为数据表增加字段(ADOX) 149 •实例6-10 为...
  • The code below can be used to delete the module which houses the code. In other words, it deletes itself after running once.You will have to go to Tools>Macro>Security - Trusted Publishers and check
  • excel 透视表 vba 使用Excel VBA删除数据透视表计算字段 (Remove Pivot Table Calculated Field With Excel VBA)Yesterday, I started out with the best of intentions, planning to get some work done, and find ...
  • 在iobjects.Net组件中,按下“Delete”按键,为了防止错删对象,在删除对象时,弹出提示框。
  • VBA】工作表删除所有图片、形状

    千次阅读 2018-11-07 11:13:13
    Dim shp As Object  For Each shp In ActiveSheet.Shapes  shp.Delete  Next shp  
  • Vba中 删除指定行

    千次阅读 2020-03-14 17:23:31
    "e") = "FOLDERS" Then dele = slc + 1 For j = slc + 1 To LastRow If Range("A" & j) > Range("A" & j + 1) Then dele = j Exit For End If Next j Range(Rows(slc), Rows(dele)).Delete GoTo Line1 End If Next ...
  • VBA 批量删除worksheets

    2018-09-13 22:33:00
    Worksheets(x).Delete Next Application.DisplayAlerts = True End Sub Sub 遍历表() Dim x As Integer For x = 1 To Worksheets.Count MsgBox Worksheets(x).Name Next End Sub Sub 删除...
  • VBA-Excel: Delete Blank Rows from Excel Work Sheet ometimes deleting the blank rows from you Excel sheet is a tedious task to do especially when your sheet contains lots of data, say 10k-15k rows and ...
  • Sub VBA小程序_清除工作簿所有Sheet工作表的条件格式() Dim sht As Worksheet For Each sht In Worksheets sht.Activate sht.Cells.FormatConditions.Delete '清除整个Sheet的条件格式 Next End Sub
  • 当对一个没有图表的工作表进行删除操作时会报错 Sheet1.ChartObjects.Delete ' 所有要先进行判断,如果图表数大于0才执行删除操作 End If Sheet3.Rows(1).Copy Destination:=Sheet2.Rows(1) ' 将Sheet3第1行的数据...
  • Vba菜鸟教程

    万次阅读 多人点赞 2020-05-02 18:21:15
    文章目录Vba菜鸟教程编辑器宏vba基本语法运算符变量语句简写语句sub语句调用语句退出语句分支语句循环语句判断语句公式与函数在单元格输入公式利用单元格公式返回值调用工作表函数利用vba函数自定义函数操作对象操作...
  • delete可以删除多笔记录,可以使用where设定条件运算式,符合条件的记录才 删除语法如下: delete [资料表.*] from 资料表 where 条件运算式 使用DROP陈述式从资料库中删除整个资料表,包括失去资料表...
  • If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r 删除空余列: Dim LastColumn As Long, c As Long LastColumn = ActiveSheet.UsedRange.Columns.Count LastColumn = LastColumn + ...
  • 动态添加和删除VBA代码过程

    千次阅读 2018-02-27 00:31:32
    VBA代码删除代码,是自相残杀吗?非也,是定点清除,呵呵 言归正传,VBA是个不错的开发工具,一般情况下,程序猿开发测试代码之后,才会将Excel文件分发给最终的用户,此时代码已经保存在文件中,属于已经完成的...
  • 2:在delete中不能和order连用,所以也不能通过top和order by连用来删除按照某一条件排序的全部的靠前的几条记录。 3:改语句不能用于sql2000中 search_condition 用于指定删除数据的条件 1:该命令和select中的...
  • Excel VBA 处理图形图表详解
  • sText = VBA.Replace(oRng.Text, Chr(13), "") .Delete '插入题注 .InsertCaption "图", sText '插入xx如yy所示的交叉引用 .InsertAfter "所示" & Chr(13) '重新定义区域 .SetRange .Start, .Start ....

空空如也

空空如也

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

deletevba