Vba 基础知识 | ExcelOffice

如何用vba返回桌面文件夹的路径？

2019年3月18日作者：exceloffice

暂无评论

在Windows系统中，桌面是一个虚拟的文件夹。

不同的电脑，桌面文件夹的路径是不一样的。

如果要用vba返回任意电脑的桌面文件夹路径，可以使用内核对象Shell的SpecialFolders属性返回桌面文件夹的路径，代码如下：
[crayon-5cbbb4b70f81c5472527[……]

阅读全文

如何用vba调出调色板选择颜色对话框，并且保存使用选择的颜色？

2018年8月15日作者：exceloffice

暂无评论

在设计vba解决方案时，有时候需要给用户提供选择颜色的操作，同时，基于用户选择的颜色执行某些操作。

在vba中可以使用如下的代码弹出颜色对话框供选择颜色：

Sub QQ1722187970()
    Dim oDialog As Dialog
    Set oDialog = Excel.Application.Dialogs(xlDialogEditColor)
    'show方法后一定要输入一个数值参数,才能打开xlDialogEditColor对话框
    '该数值可以是1-56之间的任意整数
    oDialog.Show (1)
End Sub

1

2

3

4

5

6

7

Sub QQ1722187970()

Dim oDialog As Dialog

Set oDialog = Excel.Application.Dialogs(xlDialogEditColor)

'show方法后一定要输入一个数值参数,才能打开xlDialogEditColor对话框

'该数值可以是1-56之间的任意整数

oDialog.Show (1)

End Sub

当在上述“颜色”对话框中选择颜色后，单击“确定”按钮，直接关[……]

阅读全文

为什么用vba无法打开xlDialogEditColor对话框？

2018年8月15日作者：exceloffice

暂无评论

vba中提供了Application对象的Dialogs属性用于返回excel应用程序的内置对话框。

比如如下的代码将分别弹出“打开”文件对话框和”设置字体”对话框。

Sub QQ1722187970()
    '弹出打开文件对话框
    Excel.Application.Dialogs(xlDialogOpen).Show
    '弹出设置字体对话框
    Excel.Application.Dialogs(xlDialogFont).Show
End Sub

1

2

3

4

5

6

Sub QQ1722187970()

'弹出打开文件对话框

Excel.Application.Dialogs(xlDialogOpen).Show

'弹出设置字体对话框

Excel.Application.Dialogs(xlDialogFont).Show

End Sub

其它的内置对话框常量可以见内置对话框枚举。

在vb[……]

阅读全文

如何在vba中为OnAction属性指定宏名？

2018年8月14日作者：exceloffice

暂无评论

在excel VBA中按下F2快捷键，在弹出的“对象浏览器”对话框中输入OnAction，会发现只有4个对象具有OnAction属性，如下图所示：

在vba中我们可以为Shape、CommandBarControl、CommandBarComboBox、CommandBarButton[……]

阅读全文

如何用vba获取相同单元格内容的联合单元格区域？

2018年8月14日作者：exceloffice

暂无评论

在用vba处理单元格数据时，会遇到相同的单元格内容需要批量处理的情况。

如下图所示

A列的品类含有多个相同项，如果要把相同项所在的单元格区域罗列出来，可以使用如下的代码：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.Worksheets("Sheet1")
    Dim oRng As Range
    With oWK
        iRow = .Range("a65536").End(xlUp).Row
    End With
    '定义字典对象变量
    Dim oDic As Object
    '创建字典对象
    Set oDic = CreateObject("Scripting.Dictionary")
    For i = 2 To iRow
        With oDic
            sKey = oWK.Cells(i, 1).Value
            If .exists(sKey) Then
                '添加相同单元格内容的单元格区域
                Set .Item(sKey) = Excel.Application.Union(.Item(sKey), oWK.Cells(i, 1))
            Else
                .Add sKey, oWK.Cells(i, 1)
            End If
        End With
    Next i
    arrKeys = oDic.keys
    For i = 0 To UBound(arrKeys)
        Set oRng = oDic.Item(arrKeys(i))
        Debug.Print oRng.Address
    Next i
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

Sub QQ1722187970()

Dim oWK As Worksheet

Set oWK = Excel.Worksheets("Sheet1")

Dim oRng As Range

With oWK

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

End With

'定义字典对象变量

Dim oDic As Object

'创建字典对象

Set oDic = CreateObject("Scripting.Dictionary")

For i = 2 To iRow

With oDic

sKey = oWK.Cells(i, 1).Value

If .exists(sKey) Then

'添加相同单元格内容的单元格区域

Set .Item(sKey) = Excel.Application.Union(.Item(sKey), oWK.Cells(i, 1))

Else

.Add sKey, oWK.Cells(i, 1)

End If

End With

Next i

arrKeys = oDic.keys

For i = 0 To UBound(arrKeys)

Set oRng = oDic.Item(arrKeys(i))

Debug.Print oRng.Address

Next i

End Sub

如何用vba返回多个单元格区域的联合区域？

2018年8月14日作者：exceloffice

暂无评论

在vba中可以使用Application对象的Union方法返回多个单元格区域的联合区域，相当于在excel函数公式中使用了”,”单元格区域联合运算符。

以下是一个示例代码：

Sub QQ1722187970()
    Dim oWK  As Worksheet
    Set oWK = Excel.ActiveSheet
    Dim oRng As Range
    Set oRng = Excel.Application.Union(oWK.Range("a1"), oWK.Range("c3:c5"))
    Debug.Print oRng.Address
End Sub

1

2

3

4

5

6

7

Sub QQ1722187970()

Dim oWK As Worksheet

Set oWK = Excel.ActiveSheet

Dim oRng As Range

Set oRng = Excel.Application.Union(oWK.Range("a1"), oWK.Range("c3:c5"))

Debug.Print oRng.Address

End Sub

如何用vba判断打开的文件是否处于受保护视图？

2018年8月13日作者：exceloffice

暂无评论

当用vba代码遍历文件时，如果文件是从互联网上下载的，会弹出提示以受保护视图打开，无法继续编辑，此时代码会报错。

vba中ProtectedViewWindow对象是与受保护的视图相关的对象。

在vba中可以使用Application对象的ActiveProtectedViewWindo[……]

阅读全文

如何用vba创建工作表目录以及返回目录超链接？

2018年8月9日作者：exceloffice

暂无评论

要用vba创建工作表目录和返回目录超链接，步骤可以如下：

首先新建一个工作表，在新建的工作表中创建其它工作表的目录超链接。
在其它工作表中任意位置插入图形，创建返回工作表目录的超链接。

同时，为了考虑程序的多次重复使用不出错，还需要考虑到每次执行程序时要注意以下几点：

[……]

阅读全文

如何用vba快速地创建以1月到12月为名称的工作表？

2018年8月9日作者：exceloffice

暂无评论

若要用vba创建工作表，可以使用Worksheets.Add方法。

它的语法如下：

expression . Add( Before , After , Count , Type )

1	expression . Add( Before , After , Count , Type )

其中Before , After参数分别表示是要将新建的工作表至于哪个工作表之前或之后，Count参数为要插入的工作表的数量，Type参数为[……]

阅读全文

如何解决Application.InputBox弹出的对话框单击取消出错的问题？

2018年8月6日作者：exceloffice

暂无评论

如下代码所示：

Sub QQ1722187970()
     Dim oRng As Range
     Set oRng = Application.InputBox("请选择要脱敏的数据区域", "脱敏", , , , , , 8)
End Sub

1

2

3

4

Sub QQ1722187970()

Dim oRng As Range

Set oRng = Application.InputBox("请选择要脱敏的数据区域", "脱敏", , , , , , 8)

End Sub

当弹出对话框后，不选择具体的单元格区域，而是单击“取消”按钮，则会报出类型不匹配的错误。

这是因为，当单击取消按钮后，Application.InputBox返回的值为False，不能赋值给对象变量。[……]

阅读全文

如何用vba返回桌面文件夹的路径？

如何用vba调出调色板选择颜色对话框，并且保存使用选择的颜色？

为什么用vba无法打开xlDialogEditColor对话框？

如何在vba中为OnAction属性指定宏名？

如何用vba获取相同单元格内容的联合单元格区域？

如何用vba返回多个单元格区域的联合区域？

如何用vba判断打开的文件是否处于受保护视图？

如何用vba创建工作表目录以及返回目录超链接？

如何用vba快速地创建以1月到12月为名称的工作表？

如何解决Application.InputBox弹出的对话框单击取消出错的问题？

扫一扫下面的二维码图案，加我微信

近期文章

功能

扫一扫下面的二维码图案，加我微信

关键字

近期文章

功能