六月, 2017 | ExcelOffice

如何用vba访问操作vba工程对象？

2017年6月30日作者：exceloffice

暂无评论

vba除了可以处理excel层面的日常操作以外，还可以对vba工程对象进行访问，处理vba工程对象的读取、对vba代码的删除、增加、替换等。

如果要顺利的访问vba工程对象需要进行如下的设置

第一步，开启“信任对VBA工程对象模型的访问”，如下图所示：

第二部，添加“VBE[……]

阅读全文

如何在word文档添加第X页，共X页并且会自动更新的页码？

2017年6月29日作者：exceloffice

暂无评论

如下图所示

形如“第X页，共X页”的页码格式可以通过以下的步骤来插入：

双击“页脚”在弹出的“页眉和页脚工具”选项卡下的“插入”工作组中选择“文档部件”下拉菜单下的“域”命令。

第一步插入当前页的域代码，如下图所示

第二步，插入总页码的域代码，如下图所示[……]

阅读全文

如何用vba给vbe内置菜单命令栏添加自定义命令？

2017年6月27日作者：exceloffice

暂无评论

在如何用vba在单元格右键快捷菜单中添加自定义的菜单命令？一文中介绍了用vba给单元格右键快捷菜单添加自定义菜单命令的方法。

类似的，也可以在vbe内置菜单命令栏添加自定义命令。

如下代码所示

Sub QQ1722187970()
    Dim objCMB As CommandBar
    Dim objCMBB As CommandBarButton
    Set objCMB = Excel.Application.VBE.CommandBars("Code Window")
    With objCMB
        .Reset
        Set objCMBB = .Controls.Add(msoControlButton)
        With objCMBB
            .Caption = "测试"
            .FaceId = 100
            .OnAction = "xyf"
        End With
    End With
End Sub
Sub xyf()
    MsgBox 1
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

Sub QQ1722187970()

Dim objCMB As CommandBar

Dim objCMBB As CommandBarButton

Set objCMB = Excel.Application.VBE.CommandBars("Code Window")

With objCMB

.Reset

Set objCMBB = .Controls.Add(msoControlButton)

With objCMBB

.Caption = "测试"

.FaceId = 100

.OnAction = "xyf"

End With

End Sub

Sub xyf()

MsgBox 1

End Sub

当运行上述代码后可以在[……]

阅读全文

如何用vba获取vbe编辑环境中的各个内置菜单命令栏的名称？

2017年6月27日作者：exceloffice

暂无评论

在如何用vba代码返回excel应用程序中的所有内置命令栏的名称? 一文中介绍了如何用vba获取excel应用程序的各个内置命令栏的名称。

有了名称就可以获取具体的命令栏对象，然后就可以添加自定义命令按钮。

按下组合快捷键ALT+F11进入VBE的编辑环境中也有各种菜单命令栏。同样的可以[……]

阅读全文

如何在vba中使用WithEvents关键字？

2017年6月27日作者：exceloffice

暂无评论

WithEvents 是用于在定义变量时添加表示该变量是将要响应事件的变量，它只能用于类模块中。

vba中有很多对象是可以响应事件，在添加WithEvents定义变量的同时就可以看到哪些对象是可以响应事件的。

如下图所示

WithEvents

由于定义的对象变量，在没有赋值之前没有匹配任何一个对[……]

阅读全文

如何用vba把excel文件发布转化为pdf格式文件？

2017年6月27日作者：exceloffice

暂无评论

在office 2007版本以后，微软新增了将excel文件发布转化为pdf格式文档的功能。

操作上可以单击“文件”选项卡，然后单击“导出”命令，可以选择将excel 工作簿导出为PDF文档。

在vba中，也提供了ExportAsFixedFormat方法可以将excel的Workboo[……]

阅读全文

如何在vba中调用选择性粘贴的功能？

2017年6月26日作者：exceloffice

暂无评论

如下图所示，

选择性粘贴可以实现很多功能，比如将单元格内容转置，跳过空单元格等等。

在vba中可以通过调用range对象的PasteSpecial方法。

它的语法如下

expression . PasteSpecial( Paste , Operation , Ski[……]

阅读全文

如何在vba中调用excel的排序功能？

2017年6月26日作者：exceloffice

暂无评论

如下图所示

sort1

如果要在vba中对A1：B7单元格区域按照销售额进行排序，可以使用如下的代码

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.Worksheets("Sheet1")
    With oWK
        iRow = .Range("a65536").End(xlUp).Row
    End With
    With oWK.Sort
        '删除原来的排序字段
        .SortFields.Clear
        '添加新的排序字段
        .SortFields.Add Key:=oWK.Range("a1"), SortOn:=xlSortOnValues, Order:=xlDescending
        '设置排序的单元格区域
        .SetRange oWK.Range("a1:e" & iRow)
        '设置排序的方向
        .Orientation = xlSortColumns
        '设置是否包含列标题
        .Header = xlYes
        '开始排序
        .Apply
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Sub QQ1722187970()

Dim oWK As Worksheet

Set oWK = Excel.Worksheets("Sheet1")

With oWK

iRow = .Range("a65536").End(xlUp).Row

End With

With oWK.Sort

'删除原来的排序字段

.SortFields.Clear

'添加新的排序字段

.SortFields.Add Key:=oWK.Range("a1"), SortOn:=xlSortOnValues, Order:=xlDescending

'设置排序的单元格区域

.SetRange oWK.Range("a1:e" & iRow)

'设置排序的方向

.Orientation = xlSortColumns

'设置是否包含列标题

.Header = xlYes

'开始排序

.Apply

End With

End Sub

在vba中调用excel的排序功能，首先要先设置排序字段，也就是以哪个字段按照升序或者降序排序。这个通过SortFields对[……]

阅读全文

如何在vba中使用IRibbonUI对象？

2017年6月18日作者：exceloffice

暂无评论

当我们在vba中定义一个变量为对象时，需要将具体的某个对象实例赋值给这个变量才能正常使用。

如下代码所示，oWK变量被定义为工作表对象，然后用set语句将第一个工作表赋值给这个变量，这个变量才具有使用价值。

Sub xyf()
    Dim oWK As Worksheet
    Set oWK = Excel.Worksheets(1)
    MsgBox oWK.Name
End Sub

1

2

3

4

5

Sub xyf()

Dim oWK As Worksheet

Set oWK = Excel.Worksheets(1)

MsgBox oWK.Name

End Sub

类似的IRibb[……]

阅读全文

如何在自定义功能区时添加编辑框（editBox）的控件？

2017年6月18日作者：exceloffice

暂无评论

如下图所示

editBox1

在自定义功能区时，可以通过如下自定义功能区XML代码添加类似VBA中标签+文本框的控件。

<customUI  xmlns="http://schemas.microsoft.com/office/2009/07/customui"  >
	<ribbon >
		<tabs >
<tab idMso="TabDeveloper" visible="false" >
</tab>
			<tab 
				id="Tab1"
				label="自定义选项卡">
<group 
					id="Group1"
					label="自定义组">
				
<editBox id="editBox1" label="请输入内容：" 
/>
				</group >

							</tab >
		</tabs >
	</ribbon >
</customUI >

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

<tabs >

</tab>

<tab

id="Tab1"

label="自定义选项卡">

<group

id="Group1"

label="自定义组">

<editBox id="editBox1" label="请输入内容："

/>

</group >

</tab >

</tabs >

</ribbon >

</customUI >

近期文章

关键字

功能