十二月, 2017 | ExcelOffice

如何使用vba的format函数？

2017年12月31日作者：exceloffice

暂无评论

vba中的format函数可以实现数字、文本、日期、时间等数据类型格式化，凡是数据的格式都可以用format函数来实现。

以下是format函数的一些应用

Sub QQ1722187970()
    Dim i
    i = 13246.56
    '把数字添加千分位分隔符
    Debug.Print VBA.Format(i, "Standard")
    Debug.Print Format(i, "###,###,###,##0.00")
End Sub

1

2

3

4

5

6

7

Sub QQ1722187970()

Dim i

i = 13246.56

'把数字添加千分位分隔符

Debug.Print VBA.Format(i, "Standard")

Debug.Print Format(i, "###,###,###,##0.00")

End Sub

如何用vba快速地结束所有应用程序的进程？

2017年12月31日作者：exceloffice

暂无评论

比如打开了多个word 进程，可以使用dos 命令 Taskkill 来快速地结束。

如DOS命令 “Taskkill /im winword.exe /f /t ”，可以强制一次性快速地结束word进程。

其中/im 表示要结束的进程的映像名称，/f 表示强制结束，/t 表示连同子进程[……]

阅读全文

如何用vba获取word文档中表格的标题段落文字？

2017年12月31日作者：exceloffice

暂无评论

一篇word文档经常会有很多表格，每个表格一般都会有标题。

标题或者是在表格的第一行或者是独立于表格之外位于表格之上的一个段落行。

如下图所示

可以使用如下的代码获得表格的标题内容：

Sub QQ1722187970()
    Const wdParagraph = 4
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    Dim oRng As Range
    With oDoc
        For Each oT In .Tables
            Set oRng = .Range(oT.Range.Start - 2, oT.Range.Start - 1)
            '将oRng对象按照整个段落选中,oRng对象自动变为整个段落的Range对象
            oRng.Expand wdParagraph
            '读取标题的文本内容
            MsgBox oRng.Text
        Next
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

Sub QQ1722187970()

Const wdParagraph = 4

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

Dim oRng As Range

With oDoc

For Each oT In .Tables

Set oRng = .Range(oT.Range.Start - 2, oT.Range.Start - 1)

'将oRng对象按照整个段落选中,oRng对象自动变为整个段落的Range对象

oRng.Expand wdParagraph

'读取标题的文本内容

MsgBox oRng.Text

End Sub

实现的关键点在于用R[……]

阅读全文

跨软件将ppt用exportasfixedformat转化为pdf的bug的解决办法

2017年12月13日作者：ExcelOffice

暂无评论

在如何用vba把ppt文档发布转化为pdf格式文件一文中，介绍了在ppt的vba中用exportasfixedformat方法将ppt转换为pdf的方法。

但是，如果是跨软件调用这个方法转换会报错，比如在excel vba中用如下的代码：
[crayon-5ba36416c119a85657[……]

阅读全文

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

2017年12月13日作者：ExcelOffice

暂无评论

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

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

在vba中，也提供了ExportAsFixedFormat方法可以将ppt的Presentation对象导[……]

阅读全文

什么是BSTR数据类型?

2017年12月8日作者：exceloffice

暂无评论

在微软的官方文档中有这么一句话：

Strings in Visual Basic are stored as BSTR’s

在vba中字符串是以BSTR类型存储的。

BSTR的C++声明如下：

typedef WCHAR OLECHAR;
typedef OLECHAR* BSTR;
typedef BSTR* LPBSTR;

1

2

3

typedef WCHAR OLECHAR;

typedef OLECHAR* BSTR;

typedef BSTR* LPBSTR;

从声明可以看出BS[……]

阅读全文

什么是指针？

2017年12月7日作者：exceloffice

暂无评论

每个变量都在内存中占据一个位置，每个位置都有它的地址。

指针就是一个变量，这个变量的值是另一个变量的内存地址。

由于指针也是一个变量，要使用之前，需要先声明这个变量，在C语言中，按照如下的格式声明指针变量：

type *var-name;

其中type 为指针变量的基类型，表[……]

阅读全文

如何在excel中用vba创建图表?

2017年12月6日作者：exceloffice

暂无评论

excel中可以创建内嵌在工作表中的图表也可以创建独立的图表工作表。

在vba中有多个对象与图表有关。

Charts对象表示的是所有的独立的图表工作表所组成的图表集合，它不包含内嵌在工作表中的图表。

ChartObjects对象表示的所有内嵌在工作表中的图表所组成的集合。

C[……]

阅读全文

如何使自定义功能区代码在2007-2016版本都可以使用？

2017年12月4日作者：exceloffice

暂无评论

从2007版本开始，office 引进了ribbon 功能区替代菜单。

通过customUI 自定义功能区代码可以自定义ribbon 功能区，从而实现个性化的设置。

office 2007、office 2010、office 2013、office 2016 都可以自定义功能区[……]

阅读全文

如何在excel中进行年利率、月利率、日利率之间的转换

2017年12月2日作者：exceloffice

暂无评论

利率（interest rate）表示一定时期内利息量与本金的比率。

年利率通常用%表示，月利率用‰表示，日利率用万分号表示。

三种利率之间的换算方式是：

月利率=年利率/12

日利率=年利率/360=月利率/30。

央行基准贷款利率是指年利率，比如5年期以上基准贷款利[……]

阅读全文

近期文章

关键字

功能