0717-7821348
新闻中心

爱彩人彩票

您现在的位置: 首页 > 新闻中心 > 爱彩人彩票
爱彩人app苹果下载-Excel VBA作业薄 7.7依照某列/行新增作业表 生成新作业表更便利
2019-05-31 22:55:17

远景概要()

上一节咱们学习了经过作业表的指定单元格内容来更改作业表的姓名,办法粤之家也并不是很难,简略的两句代码就能够完成了,不过批量生成作业表之后,再经过单元格内容来进行重命名好像有点费事,为什么这样说呢?由于咱们彻底能够依据单元格的内容来批量生成作业表的,在批量生成作业表的过程中,顺带履行作业表的重命名,一举两大,彻底不需求再次操作重命名的

场景模仿

假定咱们当时有一个班级一切的同学的VBA和python的考试成绩

咱们现在期望针对爱彩人app苹果下载-Excel VBA作业薄 7.7依照某列/行新增作业表 生成新作业表更便利每个童鞋进行剖析,将他们本次的考试成功和每次的考试成绩放在一同,构成一个比照,看看该童鞋最近学习的发展状况

那么首爱彩人app苹果下载-Excel VBA作业薄 7.7依照某列/行新增作业表 生成新作业表更便利要咱们需求将这些同学每个人树立一个作业表,这样才能够便利剖析

依照之前所需的,咱们需求数一下当时一共有多少个童鞋,然后新建多少个作业表,然后再挑选单元格区域,再进行批量重命名,这个单元格区域还不能选错,选错了会报错的。十分的费事,而且至少需求两个小脚本,今日咱们来介绍一个更便利的,便利的办法。

代码区

Sub ssss()
Dim rng As Range, arr
Set rng = Application.InputBox("请挑选单元格区域", "单元格区域的确认", , , , , , 8)
arr = rng
For i = 1 To UBound(arr) + 1
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = arr(i, 1)
Next i
End Sub

来看看作用,直接履行代码,首要挑选单元格区域

然后履行新建,偏重命名,看看作用

成功的一次性新增了一切的单元格对应的作业表

这样操作的优点,咱们不需求数咱们有多少个同学,需求添加多少个表,直接挑选单元格就能够了

有多少个单元格,体系就会主动生成多少个新的作业表并进行重命名,下降犯错的危险,假如你挑选的少了就会这样报错

代码剖析

本次的代码也是十分的简略,乃至关于许多有VBA触摸的小伙伴来说,这样的代码彻底没有阅览压力,我就简略说下思路和办法

For i = 1 To UBound(arr)
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = arr(i, 1)
Next i

和之前不同的是,咱们不需求去数我现在需求添加几个,而是直接依据单元格内容来进行添加,你挑选了几个就新增爱彩人app苹果下载-Excel VBA作业薄 7.7依照某列/行新增作业表 生成新作业表更便利几个,将挑选的单元格赋值给数组

经过数组的最大下标来确认最重要多少个作业表,而且循环,每生成一个作业表就用对应的数组的值,进行重命名

这样的操作愈加的灵敏和便利

==========爱彩人app苹果下载-Excel VBA作业薄 7.7依照某列/行新增作业表 生成新作业表更便利===========================================================

今日和咱们共享怎么经过VBA依据单元格来进行批量创立作业表和作业表重命名的操作,相关于之前的一些操作过程,这样的灵敏性有了很大的提高,到到此,关爱彩人app苹果下载-Excel VBA作业薄 7.7依照某列/行新增作业表 生成新作业表更便利于作业表的新建和重命名所触及的场景和操作,大致就共享完了,后边咱们将会进入作业表的兼并这一块的共享,假如咱们有什么需求和主意,也能够联络小编哦~~

明晚19:00,按时再会。