Excel Vba | ExcelOffice

如何用vba做出类似百度搜索那样的逐步提示模糊查询下拉列表框？

2019年7月23日作者：exceloffice
暂无评论
如下图所示，

当我们在百度搜索框中搜索关键字时，百度搜索框会自动列出含有关键字的搜索历史供下拉选择。

类似地，在excel中，也经常遇到类似的需求。希望在excel单元格中输入关键字后列出所有含有该关键字的相关列表供快速选择。

要实现上述功能，需要解决以下几个问题：
阅读全文
如何用vba实现数据有效性下拉列表的多选？

2019年6月19日作者：exceloffice
暂无评论

在excel中可以为单元格添加数据有效性下拉列表，方便快速地选择要输入的内容，如下图所示：

但是数据有效性的下拉列表只能单选，不能多选。

这时候可以用ActiveX 列表框控件代替，如下图所示：

首先在工作表中插入一个ActiveX 列表框控件命名为“ListBox[……]

阅读全文
如何在excel中用函数或vba生成a-z的英文字母序列？

2019年6月17日作者：exceloffice
暂无评论

我们知道英文字母有a-z 26个。

今天本文将介绍如何用excel函数或vba生成各种英文字母序列，如下图所示：

一、在excel中用函数公式生成a-z的英文字母序列

如果要在excel单元格中生成a-z 的英文字母序列，可以使用excel函数CHAR。

在A1单元格[……]

阅读全文
VBE6EXT.OLB不能被加载，内存溢出的最简单解决办法

2019年6月2日作者：exceloffice
暂无评论

在安装了Office的多个版本或者即安装了Office又安装了WPS后，如果想使用VBA功能，经常会出现“VBE6EXT.OLB不能被加载、内存溢出”的错误提示，而且VBA功能无法使用，如下图所示：

针对这种“VBE6EXT.OLB不能被加载、内存溢出”的错误提示，百度上有很多相关的链[……]

阅读全文

为什么用vba给excel添加名称公式报错？

2019年6月2日作者：exceloffice

暂无评论

如下图所示

当用vba给excel工作簿添加如上图所示的公式名称“计算文本字符串”，代码如下：

Sub QQ1722187970()
    Dim oName As Name
    Dim oWB As Workbook
    Dim oWK As Worksheet
    Set oWB = Excel.ThisWorkbook
    Set oName = oWB.Names.Add(Name:="计算文本字符串", RefersTo:="=EVALUATE(Sheet1!A1)")
End Sub

1

2

3

4

5

6

7

Sub QQ1722187970()

Dim oName As Name

Dim oWB As Workbook

Dim oWK As Worksheet

Set oWB = Excel.ThisWorkbook

Set oName = oWB.Names.Add(Name:="计算文本字符串", RefersTo:="=EVALUATE(Sheet1!A1)")

End Sub

会显示如下图所示的错误：

这是为什么呢？

当把Evaluate去掉后，修改代码为如下:
[cray[……]

如何用vba批量自动调整行高或列宽使得单元格的内容可以刚好完全显示？

2019年6月2日作者：exceloffice
暂无评论

在excel中可以通过先全选所有单元格，然后双击列标与列标之间的分隔线或者行高与行高之间的分隔线来达到自动调整所有行的行高或者所有列的列宽，使得单元格的内容可以刚好完全显示，如下图所示

在vba中可以使用Range对象的AutoFit方法实现上述操作一样的效果，代码如下：
[cray[……]

阅读全文
如何用vba取消工作表中所有行列的隐藏？

2019年6月2日作者：exceloffice
暂无评论

在excel vba中要取消行或者列的隐藏，可以使用Range对象的Hidden属性。

通过Range对象的Hidden属性不仅可以设置行或者列的隐藏，还可以获取行或者列是否处于隐藏状态。

以下vba代码分别可以实现隐藏当前工作表的1到3行，A到C列以及取消所有行、列的隐藏:
[cra[……]

阅读全文
如何用vba将工作表中的所有零值隐藏或显示？

2019年6月1日作者：exceloffice
暂无评论

要在excel中设置是显示还是隐藏零值，可以使用如下的方法：

要在vba中设置是显示还是隐藏零值，可以使用DisplayZeros属性。

在excel vba中可以通过Window对象的DisplayZeros属性或者WorksheetView对象的DisplayZeros属性设[……]

阅读全文
如何用vba获取excel文件的属性值？

2019年5月17日作者：exceloffice
暂无评论

excel文件的高级属性可以有文件的创建时间、修改时间、访问时间、标题、主题、作者、上次保存者、关键词等，其中创建时间、修改时间等属于内置的属性，而办公室、编辑者等则属于自定义属性。

如下图所示：

在vba中可以使用Workbook对象的BuiltinDocume[……]

阅读全文

如何用vba获取excel工作簿中当前选中的是哪几个工作表？

2019年5月6日作者：exceloffice

暂无评论

如下图所示

在工作簿1中选中了4个工作表。

如果要用vba判断选中的是哪些工作表，可以使用Window对象的SelectedSheets属性。

代码如下：

Sub QQ1722187970()
    Dim oWK As Worksheet
    '遍历当前选中的所有工作表
    For Each oWK In Excel.ThisWorkbook.Windows(1).SelectedSheets
        Debug.Print oWK.Name
    Next
End Sub

1

2

3

4

5

6

7

Sub QQ1722187970()

Dim oWK As Worksheet

'遍历当前选中的所有工作表

For Each oWK In Excel.ThisWorkbook.Windows(1).SelectedSheets

Debug.Print oWK.Name

Next

End Sub