sqlyog怎么查找表_VBA代码解决方案第58讲：在VBA中查找指定工作表的实用方法

大家好，我们今日继续讲解VBA代码解决方案的第58讲内容：在VBA中查找指定工作表的方法。在上一个例子中，我们通过一个自定义函数解决了删除工作表的方法。其实实现目的的方法有很多种，不必要必须有某种办法，但是写程序的人，比如我，有着很大的惰性，或者说是偏爱某一种方法，比如，我特别喜欢用LEFT和RIGHT来进行左右的截取操作，虽然很多的时候用MID会更简单些，唉，真的没办法。在完成某项目的也是如此，如果不是用自定义函数，只是用遍历工作表的方法也可以实现的。今天的例子也是如此。所以有的朋友自认为自己有更好的方法，其实，有些时你是对的，或者说是对的，但对于做程序的人来说不一定会采用你认为好的方法，就这么简单。

今天我们讲查找某个工作表的方法，在实际的应用中往往要先查到某个工作表，然后再进行操作控制。判断工作簿中是否存在指定名称的工作表，当然可以使用遍历工作簿中所有工作表的方法外，单今天我仍要自定义函数的方法。

Function MyExistSh(Sh As String) As Boolean

Dim Sht As Object

On Error Resume Next

Set Sht = Sheets(Sh)

If Err.Number = 0 Then MyExistSh = True

Set Sht = Nothing

End Function

代码解析：

自定义MyExistSh函数包含一个String类型的参数，代表需要判断的工作表名称。如果该工作表存在，则返回True。

第5行代码判断前面的代码是否出错，如果前面的代码存在错误，则表示不存在指定名称的表。

使用自定义ExistSheet函数判断工作簿中是否存在指定名称的工作表，如下面的代码所示。

Sub MyNotSht()

Dim Sh As String

Sh = InputBox("请输入查找的工作表名称：")

If Len(Sh) > 0 Then

If Not MyExistSh(Sh) Then

MsgBox "对不起,您查找的" & Sh & "工作表不存在!"

Else

Sheets(Sh).Select

End If

End Sub

代码解析：

MyNotSht过程使用自定义的ExistSh函数判断工作簿中是否存在指定名称的工作表，如果不存在则使用消息框进行提示.

下面看代码的实测，代码窗口截图：

代码的运行：

当录入kk后点击确认，页面的ACTIVESHEET会转到KK的工作表。

今日内容回向：

1 查找工作表的思路是怎么样的？

2 上述代码中If Err.Number = 0 Then MyExistSh = True是什么意思？

sqlyog怎么查找表_VBA代码解决方案第58讲：在VBA中查找指定工作表的实用方法相关推荐

Python+Excel系列：案例六：批量打印工作簿、批量打印多个工作簿中的指定工作表
文章目录批量打印工作簿批量打印多个工作簿中的指定工作表批量打印工作簿专门用于打印的函数PrintOut() import os #导入os模块 import xlwings as xw #导入 ...
vba 判断文本框内容是否为空_VBA代码解决方案第119讲：如何遍历工作表中的图形...
大家好,我们今日继续讲解VBA代码解决方案的第119讲内容:如何遍历工作表中的图形.其实这节的内容在我前面的章节中已经讲过,今日但拿出来,作为一节的专门的内容. 工作表中的多个图形,有时我们需要根据实 ...
vba 当前文件名_VBA代码解决方案第77讲内容：如何导出文件
大家好,我们今日继续讲解VBA代码解决方案的第77讲内容:如何导出文件,形成一个文本文件,如果需要将工作表中的数据保存为文本文件,可以创建一个文本文件用于保存数据. 应用于FileSystemObje ...
vue 鼠标点击事件_VBA代码解决方案第115讲：点击鼠标实现精准控制触发事件的VBA代码第二方案...
大家好,我们今日继续讲解VBA代码解决方案的第115讲内容:工作表事件中,根据Target参数不同,实现精准控制触发事件的VBA代码第二方案.在上一讲中我们讲了利用Address的属性实现控制触发事件 ...
vba 数组赋值_VBA数组与字典解决方案第18讲：VBA中静态数组的定义及创建
大家好,我们今日继续讲解VBA数组与字典解决方案,今日讲解第18讲:VBA数组如何定义,又该如何创建呢? 从这一讲开始,我们开始进入VBA数组阶段,VBA数组和工作表数组有着不同的意义,在很大程度上, ...
vba 数组赋值_VBA数组与字典解决方案第31讲：VBA数组声明及赋值后的回填方法
大家好,我们今日继续VBA数组与字典解决方案,今日讲解VBA数组的声明,一些朋友会问了:数组都讲了这么长时间了,怎么才讲声明啊?是的,有些知识不到一定的程度即使讲了,大家也不能深入的理解,只有到了一定 ...
VBA中使用EXCEL工作表函数
EXCEL的VBA有两个函数库,一个是VBA的函数库,另一个是EXCEL工作表函数,也就是我们在单元格中使用的函数,两个函数库不是完全一样的.例如FIND(),VLOOKUP(),在VBA的函数库中是 ...
VBA指定工作表并批量复制
问题:VBA如何实现指定工作表并批量复制答案:可通过窗体控件实现.具体操作如下: 1:新建命令按钮 2:创建用户窗体,增加复合框,在工作表中输入以下代码: Private Sub CommandBu ...
每日10行代码67：openpyxl指定工作表（sheet）的5种方法
20210330更新了部分内容. 今天工作时,写了一小段代码,大概功能就是比对excel里的数据与数据库里的数据差异,具体实现就是根据excel里维度列(就是sql中where后的部分)到数据库查找相 ...

sqlyog怎么查找表_VBA代码解决方案第58讲：在VBA中查找指定工作表的实用方法

sqlyog怎么查找表_VBA代码解决方案第58讲：在VBA中查找指定工作表的实用方法相关推荐

最新文章

热门文章