精华内容
下载资源
问答
  • 分享成果,随喜真能量。... 176:使用自定义MyExistSh函数判断工作簿是否存在指定名称的工作表NO. 177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域VBA过程代码176:使用自定义MyExi...

    分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.176-NO.177内容是:

    NO. 176:使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

    NO. 177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

    VBA过程代码176:使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

    Sub mynz()

    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 If

    End Sub

    代码的解析说明:myn过程使用自定义的MyExistSh函数判断工作簿中是否存在指定名称的工作表,如果不存在则使用消息框进行提示.

    VBA过程代码177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

    Option Base 1

    Sub mynz ()

    Dim arr As Variant

    Dim i As Integer

    arr = Array("A111", "A222", "A333", "A444", "A555", "A666", "A777", "A888")

    For i = LBound(arr) To UBound(arr)

    Sheets("59").Cells(i, 1) = arr(i)

    Next

    End Sub

    代码的解析说明:mynz过程使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域。Option Base语句声明数组下标的缺省下界为1,数组下标的缺省下界默认为0。代码使用Array函数创建数组用来保存数据。使用LBound函数和UBound函数取得数组的最小和最大下标。确定数组的大小后使用For...Next语句遍历数组元素并将数组元素依次写入到工作表的A列单元格中。

    VBA是实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA教程,这些是我多年编程经验的记录,也是我“积木编程”思想的体现。每一讲都是较大块的“积木”,可以独立的完成某些或者某类的过程,有需要的朋友可以联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。其一:“VBA代码解决方案”PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备;其二“VBA数据库解决方案”PDF教程,数据库是数据处理的利器,对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制,“每天20分钟,半年精进VBA”,越早参与,回馈越多。现在录制到第三册的99讲。

    展开全文
  • 分享成果,随喜真能量。... 176:使用自定义MyExistSh函数判断工作簿是否存在指定名称的工作表NO. 177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域VBA过程代码176:使用自定义MyExi...

    分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.176-NO.177内容是:

    NO. 176:使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

    NO. 177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

    801b3d34009378556d410b435bc9b20c.png

    VBA过程代码176:使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

    Sub mynz()

    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 If

    End Sub

    代码的解析说明:myn过程使用自定义的MyExistSh函数判断工作簿中是否存在指定名称的工作表,如果不存在则使用消息框进行提示.

    54dff90dbf30ca36d4d2dc62f299bccf.png

    VBA过程代码177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

    Option Base 1

    Sub mynz ()

    Dim arr As Variant

    Dim i As Integer

    arr = Array("A111", "A222", "A333", "A444", "A555", "A666", "A777", "A888")

    For i = LBound(arr) To UBound(arr)

    Sheets("59").Cells(i, 1) = arr(i)

    Next

    End Sub

    代码的解析说明:mynz过程使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域。Option Base语句声明数组下标的缺省下界为1,数组下标的缺省下界默认为0。代码使用Array函数创建数组用来保存数据。使用LBound函数和UBound函数取得数组的最小和最大下标。确定数组的大小后使用For...Next语句遍历数组元素并将数组元素依次写入到工作表的A列单元格中。

    4ec2b339e72f3c7bcd61134f22254849.png

    VBA是实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA教程,这些是我多年编程经验的记录,也是我“积木编程”思想的体现。每一讲都是较大块的“积木”,可以独立的完成某些或者某类的过程,有需要的朋友可以联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。其一:“VBA代码解决方案”PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备;其二“VBA数据库解决方案”PDF教程,数据库是数据处理的利器,对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制,“每天20分钟,半年精进VBA”,越早参与,回馈越多。现在录制到第三册的99讲。

    展开全文
  • 分享成果,随喜真能量。... 176:使用自定义MyExistSh函数判断工作簿是否存在指定名称的工作表NO. 177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域VBA过程代码176:使用自定义MyExi...

    6a8cca7ffdb5e290783c9264a69ef986.png

    分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.176-NO.177内容是:

    NO. 176:使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

    NO. 177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

    4d1ac404c5b38d7095d6a1aebf45b52a.png

    VBA过程代码176:使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

    Sub mynz()

    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 If

    End Sub

    代码的解析说明:myn过程使用自定义的MyExistSh函数判断工作簿中是否存在指定名称的工作表,如果不存在则使用消息框进行提示.

    fce3f350be4271ed0021d2bbcca6423b.png

    VBA过程代码177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

    Option Base 1

    Sub mynz ()

    Dim arr As Variant

    Dim i As Integer

    arr = Array("A111", "A222", "A333", "A444", "A555", "A666", "A777", "A888")

    For i = LBound(arr) To UBound(arr)

    Sheets("59").Cells(i, 1) = arr(i)

    Next

    End Sub

    代码的解析说明:mynz过程使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域。Option Base语句声明数组下标的缺省下界为1,数组下标的缺省下界默认为0。代码使用Array函数创建数组用来保存数据。使用LBound函数和UBound函数取得数组的最小和最大下标。确定数组的大小后使用For...Next语句遍历数组元素并将数组元素依次写入到工作表的A列单元格中。

    7fcbc3f9a350d151f4ef2b473f05c73d.png

    VBA是实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA教程,这些是我多年编程经验的记录,也是我“积木编程”思想的体现。每一讲都是较大块的“积木”,可以独立的完成某些或者某类的过程,有需要的朋友可以联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。其一:“VBA代码解决方案”PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备;其二“VBA数据库解决方案”PDF教程,数据库是数据处理的利器,对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制,“每天20分钟,半年精进VBA”,越早参与,回馈越多。现在录制到第三册的99讲。

    展开全文
  • 分享成果,随喜真能量。... 176:使用自定义MyExistSh函数判断工作簿是否存在指定名称的工作表NO. 177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域VBA过程代码176:使用自定义MyExi...

    4c7395a77b9d7d389e87858288cd248c.png

    分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.176-NO.177内容是:

    NO. 176:使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

    NO. 177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

    fddf6b077b4e5a5e0501b1ee70342c5d.png

    VBA过程代码176:使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

    Sub mynz()

    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 If

    End Sub

    代码的解析说明:myn过程使用自定义的MyExistSh函数判断工作簿中是否存在指定名称的工作表,如果不存在则使用消息框进行提示.

    c1c6d9b6e366ecc852cce900aa50a135.png

    VBA过程代码177:使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

    Option Base 1

    Sub mynz ()

    Dim arr As Variant

    Dim i As Integer

    arr = Array("A111", "A222", "A333", "A444", "A555", "A666", "A777", "A888")

    For i = LBound(arr) To UBound(arr)

    Sheets("59").Cells(i, 1) = arr(i)

    Next

    End Sub

    代码的解析说明:mynz过程使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域。Option Base语句声明数组下标的缺省下界为1,数组下标的缺省下界默认为0。代码使用Array函数创建数组用来保存数据。使用LBound函数和UBound函数取得数组的最小和最大下标。确定数组的大小后使用For...Next语句遍历数组元素并将数组元素依次写入到工作表的A列单元格中。

    4dbb9b1b6dea1f5833752f221efc3b2e.png

    VBA是实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA教程,这些是我多年编程经验的记录,也是我“积木编程”思想的体现。每一讲都是较大块的“积木”,可以独立的完成某些或者某类的过程,有需要的朋友可以联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。其一:“VBA代码解决方案”PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备;其二“VBA数据库解决方案”PDF教程,数据库是数据处理的利器,对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制,“每天20分钟,半年精进VBA”,越早参与,回馈越多。现在录制到第三册的99讲。

    展开全文
  • 某一个文件夹下存了许多文件,想知道某一文件是否存在,然后依据判断结果进行各样的操作。代码可以这么写: Sub test() Dim fileName As String fileName = ThisWorkbook.Path & "\机密文件.xlsx" If Len...
  • 为了避免这种异常的发生,使用代码操作任何表(不止局限于工作表,也适用于宏表和图表)之前应检测该工作是否存在。在代码中这样用到此功能,那么将可以将此功能封装为一个自定义函数,在代码中可以很方便的调用...
  • 开发VBA代码时,经常需要操作工作表对象,但是这个是否存在呢?各种奇葩的用户都会有,所以在代码中一定要先判断然后再进行后续操作,非常可惜的是VBA中并没有提供直接的方法来完成这个判断,只有写一个自定义函数了...
  • 在前一篇文章神奇的Excel VBA系列之:制作工作表目录中,分享了制作工作表目录的源码...假设我们想判断工作簿中是否有名称为“东门子订单数据”的工作表。第一种方法: 使用VBA遍历循环的方法Sub 判断工作表是否存在...
  • 在前一篇文章中分享了制作工作表目录的源码过程。...假设我们想判断工作簿中是否有名称为“东门子订单数据”的工作表。第一种方法: 使用VBA遍历循环的方法Sub 判断工作表是否存在_方法2()Dim d As ObjectSet...
  • 在前一篇文章中分享了制作工作表目录的源码过程。...假设我们想判断工作簿中是否有名称为“东门子订单数据”的工作表。第一种方法: 使用VBA遍历循环的方法Sub 判断工作表是否存在_方法2()Dim d As ObjectSet...
  • VBA中经常会有一个这样的需求,在执行运算之前需要先判断指定工作表名称是否存在,否则程序将会报“下标越界”的错误,给用户不好的体验 我所知晓的查询工作表名称通常有3种方法: 一、遍历所有工作表,如果工作表...
  • Excel 文件操作 一、概述 本质就是操作 workbook window 文件窗口 一个 excel 文件对应一...1、判断文件是否存在和打开 是否存在:输出为 0 就是不存在 Debug.Print Len(Dir("d:\test.xlsx")) 是否打开 Dim...
  • 如何操作Excel工作簿、工作表和...本示例文件涉及的案例包括:遍历工作簿名称示例、判断工作簿是否打开、判断工作表是否存在、将工作表另存为文件、引用单个单元格、设置单元格格式、插入单元格的格式控制、定位区域端
  • gosub..return'on error resume next ''on error goto ''on error goto 0 '工作表操作'1 判断A工作表文件是否存在’2 excel工作表的插入'3 excel工作表隐藏和取消隐藏'4 excel工作表的移动'5 excel工作表的复制到前...
  • Excel VBA技巧实例手册

    2016-07-28 22:29:39
    技巧109判断工作簿是否存在 技巧110判断打开的工作簿个数 5.2 使用工作簿事件 技巧111退出前强制保存工作簿 技巧112限制打印 技巧113限制保存工作簿 技巧114显示激活的工作表 技巧115显示新工作表的插入时间 第6章 ...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧43 判断指定工作簿是否打开 12 43-1 遍历Workbooks集合方法 12 43-2 错误处理方法 12 技巧44 禁用宏则关闭工作簿 12 技巧45 关闭工作簿不显示保存对话框 12 45-1 使用Close方法关闭工作簿 12 45-2 单击工作簿...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧43 判断指定工作簿是否打开 106 43-1 遍历Workbooks集合方法 106 43-2 错误处理方法 106 技巧44 禁用宏则关闭工作簿 107 技巧45 关闭工作簿不显示保存对话框 111 45-1 使用Close方法关闭工作簿 111 45-2 单击...
  • VBA与数据库

    2015-11-19 18:07:38
    •实例7-1 判断SQL Server数据库是否存在(ADO) 172 •实例7-2 检查数据表是否存在(ADOX) 173 •实例7-3 创建新的SQL Server数据库和数据表(ADO) 174 •实例7-4 在已有的SQL Servre数据库中创建数据表(ADO) ...
  • 02012判断工作簿是否为以只读方式打开的 02013判断工作簿是否为加载宏工作簿 02014获取所有打开的工作簿名称 02015获取当前活动工作簿的名称 02016获取当前宏代码运行的工作簿名称 02017获取所有打开的工作簿路径 ...
  • Excel_VBA教程

    2014-09-22 11:36:34
    3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME函数) 147 5.获得文件大小(FILELEN函数) 147 6.返回和设置文件属性(GETATTR函数和SETATTR函数) 147 7.更改缺省文件夹或...
  • Excel VBA与数据库整合应用范例精讲

    热门讨论 2011-10-29 18:48:38
    实例7-1 判断SQL Server数据库是否存在(ADO) 实例7-2 检查数据表是否存在(ADOX) 实例7-3 创建新的SQL Server数据库和数据表(ADO) 实例7-4 在已有的SQL Server数据库中创建数据表(ADO) 实例7-5 从SQL ...
  • 'Application.Intersect ...PS:Is Nothing 用于判断对象是否存在,对象可以是工作簿,工作表,单元格区域等 教学代码: 1 Sub test() 2 If Intersect([a1:d10], Selection) Is Nothing Then '注释:Is Not...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME函数) 147 5.获得文件大小(FILELEN函数) 147 6.返回和设置文件属性(GETATTR函数和SETATTR函数) 147 7.更改缺省文件夹或...
  • 实例7-1 判断SQL Server数据库是否存在(ADO) 实例7-2 检查数据表是否存在(ADOX) 实例7-3 创建新的SQL Server数据库和数据表(ADO) 实例7-4 在已有的SQL Server数据库中创建数据表(ADO) 实例7-5 从SQL ...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    判断语句................................................................................................................................2 第九节 循环语句..................................................
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    第八节判断语句................................................................................................................................2 第九节循环语句.............................................
  • 【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【公农双历查询】【高级定位】【选区背景着色】【修改文件建立时间】【工作表环境设置】【按颜色合计】【根据工资计算钞票】【隔行插入行】【折分工作簿(工作表)】【工作表折分】【合并工作簿】【文本与数值互换】...

空空如也

空空如也

1 2
收藏数 37
精华内容 14
关键字:

vba判断工作簿是否存在