精华内容
下载资源
问答
  • 需求:手动报表生成后,通常需要删除一些辅助工作表及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
    
    展开全文
  • 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

    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 Trust access to Visual Basic Editor before running the code. Change "Module1" to suit.

    1. Sub DeleteThisModule()
    2. Dim vbCom As Object
    3.      
    4.     MsgBox "Hi, I will delete myself "
    5.      
    6.     Set vbCom = Application.VBE.ActiveVBProject.VBComponents
    7.     
    8.     vbCom.Remove VBComponent:= _
    9.     vbCom.Item("Module1")
    10.      
    11. End Sub

     

    From: http://www.ozgrid.com/VBA/delete-module.htm

    展开全文
  • 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   整列删除

                              

    展开全文
  • 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代码是什么意思?

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

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

    千次阅读 2011-01-10 10:26:12
    使用了ClearContents清除单元格内容时,有时再统计单元格有内容的行数,会发现刚清除了的单元格也会列入统计之中,造成统计结果不对,而delete就不会了!
  • 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 ...
  • 1.按Alt+F11打开VBA编辑窗口 2.双击要禁止delete的sheet,例如sheet1 3.在右边的编辑区的最上面加入下面的函数声明 [code="java"]Private Declare Function GetKeyboardState Lib "user32&...
  • 需求: 在辛苦生成报表后,要交付给用户的文件越“干净”越好!比如,在工作文件(workfile)中...http://www.cnhup.com/index.php/archives/delete-the-bad-references-in-the-active-workbook-using-vba-in-excel/
  • " _ & "Data Source=" & ThisWorkbook.Path & "Northwind.mdb" cnn.Open strcon '打开数据库连接 strSql = "DELETE FROM 客户 WHERE 客户ID='" & custID & "'" '删除"客户"表的SQL语句 cnn.Execute (strSql) If Err ...
  • 大部分的朋友学习VBA都是因为Excel,都想通过VBA能够让Excel发挥更强大的功效。学习VBA本质上也是学习各种各样的对象,这些对象具有什么属性以及利用什么方法可以让这些对象做什么工作,所以在学习VBA时,认识各种...
  • VBA

    2013-01-18 14:00:51
    Dim SelRange As Range Dim myChartobj As ChartObject Dim RowsCount As Integer Dim CountCol As Integer Dim CellValue As String Dim MyStarCol As String Dim MyDataSourse As String Call chart_Delete(actShe
  • ……SELECT查询语句是SQL的核心,聊完了它,剩下的就简单了……掰掰我的手指头……关于SQL,我们大概还有3个部分没讲,分别是DELETE删除、UPDATE更新以及INSERT新增。这3个语句讲完,本系列的SQL也就告一段...
  • 现在,您可以使用舒适的语法,支持Add() , Count() , Delete() , Sort()等方法。 您可以在找到更多信息。 例子 初始化ClassVector项并添加新元素: Dim vector As New ClassVector Dim arr1
  • excel vba

    2018-07-22 16:01:00
    删除符合条件单元格的整行数据 Submydel() DimiAsDouble Fori=Cells(Rows.Count,1).End(3).RowTo2Step-1 IfRange("B"&i)="完成"ThenRows(i).Delete Nexti EndSub 转载于:https://ww...
  • Excel VBA笔记

    2020-12-17 22:39:28
    Excel VBA 笔记 1、Sheet表的增、删、复制 '添加100个sheet Sub addSheet() Sheets.Add Count:=100 End Sub '删除100个sheet Sub deleteSheet() Dim i as integer '取消删除警告弹窗 Excel.Application.Display...
  • vb中运行vba代码 When changes need to be made to code, the easiest thing to do is obviously to just add, change or delete lines and be done with it. The problem with that is that after m...
  • 大家好,我们今日继续讲解VBA代码解决方案的第65讲内容:在VBA中Dir函数的利用及删除文件的方法 在操作文件时删除一个文件时再平常不过的事情,选中它右键删除,或者直接按DELETE键删除即可,在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 为...
  • vba 删除行

    千次阅读 2015-11-08 12:27:04
    Public Function ddd()  For i = 100 To 1 Step -1  ' For i = 1 To 100  ' Range("c2").Value = (10 Mod 2) ' Range("b1:z111").Value = ...' Rows("5:10").Delete  Range("a" & i).Value = i  Range
  • VBA之单元格操作1

    2020-03-25 01:25:03
    VBA之单元格操作1 select 选中 delete删除 copy复制 clearcontents清空 1.一列数据,如何定位到该列最后一个数据: range(“a65536”).End(xlUp).Row 2.复制一整行数据,到指定位置 range("a1).EntireRow.Copy range...
  • VBA常用操作

    2013-06-16 10:32:39
    删除文件夹 假设我在C区建立一个文件夹aaaa, 以下是删除该文件的程序 Sub ssssss() Set fs = CreateObject("Scripting....f.Delete End Sub ----------- 可以通过api函数来取得文件夹的位置,再进行删除. D
  • Delete source control branch

    2020-12-30 03:18:59
    <div><p>Source control doesn't allow you to delete branches.</p><p>该提问来源于开源项目:rubberduck-vba/Rubberduck</p></div>
  • VBA生成图表方式

    千次阅读 2019-10-08 17:20:48
    Worksheets("图表").ChartObjects.Delete With Worksheets("历史记录表") Set MYCHART = .ChartObjects.Add(10, 10, 500, 150) '左,上,长,高 With MYCHART.Chart .ChartType = xlLineMarkers .SetSourceData So...
  • 关于vba 2

    2011-04-25 09:40:00
    关于用代码自动插入图表   Private Sub CommandButton1_Click() Dim myrange As Range Dim myChart As ChartObject... .ChartObjects.Delete 'R = .Range("A65536").End(xlUp).Row R = Active
  • 希望了解VBA中的EXCEL中的页数,类似于某个单元格中的属性,例如:ROW代表行,COLUNN代表列。如果了解EXCEL中的页数,那么就可以通过ADD和SHEET两个函数做页增加,通过DELETE和SHEET两个函数做页删除。

空空如也

空空如也

1 2 3 4 5 ... 10
收藏数 198
精华内容 79
关键字:

deletevba