八月, 2019 | ExcelOffice【微信公众号：水星Excel】

如何在vb.net中获取当前电脑系统的日期和时间？

2019年8月29日作者：水星Excel
1,221 次浏览暂无评论

在VBA或vb 6.0中，可以使用Date或Now函数获取当前电脑系统的日期和时间，代码如下：

Visual Basic

Sub QQ1722187970() '获取当前的系统日期 MsgBox Date '获取当前的系统时间 MsgBox Now() End Sub

1
2
3
4
5
6

Sub QQ1722187970()
    '获取当前的系统日期
    MsgBox Date
    '获取当前的系统时间
    MsgBox Now()
End Sub

在VB.NET中，要获取当前电脑系统的日期[……]

阅读全文>>>

如何在vb.net中实现VB中array函数给数组赋值的功能？

2019年8月29日作者：水星Excel

2,047 次浏览暂无评论

在VBA或VB 6.0 中，如果要快速生成已知元素的一维或多维数组，可以使用Array函数直接赋值。

如下代码所示：

Sub QQ1722187970()
    Dim arr1
    '添加一维数组
    arr1 = Array(1, 2, 3, 4, "a", "b", "c")
    Dim arr2
    '添加二维数组
    arr2 = Array(Array(1, 2, 3), Array("a", "b", "c"))
End Sub

1

2

3

4

5

6

7

8

Sub QQ1722187970()

Dim arr1

'添加一维数组

arr1 = Array(1, 2, 3, 4, "a", "b", "c")

Dim arr2

'添加二维数组

arr2 = Array(Array(1, 2, 3), Array("a", "b", "c"))

End Sub

但是在VB.N[……]

阅读全文>>>

如何用vba选中所有word文档中的某个格式的文本？

2019年8月27日作者：水星Excel

1,680 次浏览暂无评论

用vba可以查找word文档中满足格式的内容，如果想要一次性选中所有这些满足格式的内容，可以使用如下的代码：

Sub QQ1722187970()
    Const wdReplaceAll = 2
    Const wdFindStop = 0
    Const wdEditorCurrent = -6
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    oDoc.Windows(1).View.ShadeEditableRanges = False
    Dim oEditor As Editor
    Dim oRng As Range
    Set oRng = Word.Selection.Range
    '先判断是否有选中区域，没有选中则表示整个文档
    If oRng.Start = oRng.End Then
        Set oRng = oDoc.Content
    End If
    With oRng.Find
        .ClearFormatting
        '要查找的格式
        .Font.Bold = True
        .Text = ""
        Do
           '先执行一次查找
            bResult = .Execute(FindText:="", Format:=True)
            '如果找到了
            If bResult = True Then
                '为找到的内容单元格区域添加Editor
                 oRng.Editors.Add (wdEditorCurrent)
            End If
        Loop Until bResult = False
    End With
    '选中所有可以编辑的区域
    oDoc.Content.GoToEditableRange(wdEditorCurrent).Editors(1).SelectAll
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

29

30

31

32

Sub QQ1722187970()

Const wdReplaceAll = 2

Const wdFindStop = 0

Const wdEditorCurrent = -6

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

oDoc.Windows(1).View.ShadeEditableRanges = False

Dim oEditor As Editor

Dim oRng As Range

Set oRng = Word.Selection.Range

'先判断是否有选中区域，没有选中则表示整个文档

If oRng.Start = oRng.End Then

Set oRng = oDoc.Content

End If

With oRng.Find

.ClearFormatting

'要查找的格式

.Font.Bold = True

.Text = ""

Do

'先执行一次查找

bResult = .Execute(FindText:="", Format:=True)

'如果找到了

If bResult = True Then

'为找到的内容单元格区域添加Editor

oRng.Editors.Add (wdEditorCurrent)

End If

Loop Until bResult = False

End With

'选中所有可以编辑的区域

oDoc.Content.GoToEditableRange(wdEditorCurrent).Editors(1).SelectAll

End Sub

[……]

阅读全文>>>

如何用vba给word文档添加可以编辑的内容区域？

2019年8月27日作者：水星Excel
1,099 次浏览暂无评论

在word中可以通过“审阅”选项卡下的“保护”组中的“限制编辑”命令限制对word文档内容的修改，如下图所示：

如果要将某个word内容区域添加为可以编辑的区域，可以用Range对象的Edito[……]

阅读全文>>>
如何用vba按照文本查找word文档并高亮显示？

2019年8月27日作者：水星Excel
1,822 次浏览暂无评论

在word文档中，当我们要查找某个文本字符串时，如果需要将所有找到的字符串高亮显示，可以使用Find对象的HitHighlight方法。

如下图所示

如果要查找文档中的“主题”两个字，并且[……]

阅读全文>>>
如何将ListView控件中的数据导出到Excel中？

2019年8月27日作者：水星Excel
1,432 次浏览暂无评论

ListView控件可以显示多列数据，与excel工作表单元格具有相似性。

如下图所示为ListView控件中的数据，

现在希望导出生成如下图所示的Excel数据

可以使用如[……]

阅读全文>>>
如何将Excel数据导入到ListView控件中？

2019年8月27日作者：水星Excel
1,184 次浏览暂无评论

ListView控件可以显示多列数据，与excel工作表单元格具有相似性。

如下图所示为Excel中的数据

现在要将Excel数据导入到ListView控件中，形成如下图所示的结果[……]

阅读全文>>>
如何在python里面使用字典？

2019年8月18日作者：水星Excel
520 次浏览暂无评论

在python中可以使用字典。

字典是python的内置数据类型。

字典的每个键值 key=>value 对用冒号 : 分割，每个键值对之间用逗号分隔，整个字典包括在花括号 {} 中。[……]

阅读全文>>>
如何在python中使用数组？

2019年8月17日作者：水星Excel
1,059 次浏览暂无评论

在Python中没有数组的概念。

我们认识的其它语言中的数组在Python中用列表（List）来表示。

列表是 Python 中使用最频繁的数据类型。

列表可以完成大多数集合类的数据结构实[……]

阅读全文>>>
安装答得喵MOS2016模拟考试系统后出现的{00020970-0000-0000-C000-000000000046}错误的解决办法

2019年8月11日作者：水星Excel
1,135 次浏览暂无评论

当安装了答得喵MOS2016模拟考试系统后启动该系统弹出如下图所示的错误提示：

产生这个错误的原因是当前的电脑系统安装过多个不同的office版本，同时安装过WPS版本。

解决办法就是重新[……]

阅读全文>>>