| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2143 人关注过本帖
标题:多表格引用如何自动创建副本
只看楼主 加入收藏
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
能给我解说下吗?
2019-08-13 17:51
快速回复:多表格引用如何自动创建副本
数据加载中...
 
   



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

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