| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
ADSL如何秒变专线,公网IP盒子了解一下千里之行 始于足下
共有 124 人关注过本帖
标题:多表格引用如何自动创建副本
只看楼主 加入收藏
gaobomld
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2019-8-4
结帖率:0
  已结贴   问题点数:20  回复次数:3   
多表格引用如何自动创建副本
我是一个知天命的人了,还想东想西的
求教各位
表格A中如5C单元填入XT2019-031-***,则自动创建表格B的副本,且对副本进行重命名为表格B***,三个*与表格A中单元格一致。如何编程。真心请教。
搜索更多相关主题的帖子: 多表 引用 自动 创建 表格 
2019-08-04 13:33
cjaihh
Rank: 2
等 级:论坛游民
帖 子:1
专家分:20
注 册:2019-8-6
  得分:20 
Sub creatsheet()
Dim a, b As String
Dim SH As Worksheet
Dim S As Range
Dim aa As Integer
For Each S In Application.Selection
a = Left(S, 2)
If a = "XT2019" Then
   b = Right(S, 3)
       For aa = 1 To Sheets.Count
          If Sheets(aa).Name = b Then
             MsgBox ("这个文档已存在")
             GoTo IPTR
          End If
       Next
     Set SH = Worksheets.Add
         SH.Name = b
IPTR:    Worksheets("SHEET1").Select
End If
Next
End Sub
2019-08-06 16:07
gaobomld
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2019-8-4
  得分:0 
谢谢!
2019-08-08 18:37
gaobomld
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2019-8-4
  得分:0 
回复 2楼 cjaihh
能给我解说下吗?
6 天前 17:51







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023308 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved