Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2288|回复: 7

[已解决]请一个关于保存数据到新的工作表的问题

[复制链接]
发表于 2011-10-29 18:00 | 显示全部楼层 |阅读模式
未命名3.jpg
客户结算表1.rar (11.21 KB, 下载次数: 10)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2011-10-29 18:22 | 显示全部楼层    本楼为最佳答案   
  1. Sub 椭圆1_Click()
  2.     Dim str$
  3.     str = Range("b2")
  4.     On Error Resume Next
  5.     Application.DisplayAlerts = False
  6.     Sheets(str).Delete
  7.     Sheets.Add
  8.     ActiveSheet.Name = str
  9.     Sheets("sheet1").Select
  10. End Sub
复制代码
客户结算表1b.rar (14.85 KB, 下载次数: 24)
回复

使用道具 举报

发表于 2011-10-29 18:23 | 显示全部楼层
回复 EXCEL1984 的帖子

不知道附件是否符合楼主的要求?{:3912:}

客户结算表1.rar

12.54 KB, 下载次数: 16

回复

使用道具 举报

发表于 2011-10-30 06:56 | 显示全部楼层
你用的什么软件,怎么工作表在上面显示
回复

使用道具 举报

发表于 2011-10-30 11:19 | 显示全部楼层
本帖最后由 admin321 于 2011-10-30 11:20 编辑

回复 爱疯 的帖子

爱疯老师,把新建的工作表,放到sheet1后面。要怎么改?

点评

Sheets.Add after:=Sheets(Sheets.Count)  发表于 2011-10-30 12:16
回复

使用道具 举报

发表于 2011-10-30 11:38 | 显示全部楼层
回复 admin321 的帖子

在爱疯老师原先代码的基础上修改的,如果符合楼主的要求,请楼主将爱疯老师评为最佳答案。{:912:}
  1. Sub 椭圆1_Click()
  2.     Dim str$
  3.     str = Range("b2")
  4.     On Error Resume Next
  5.     Application.DisplayAlerts = False
  6.     Sheets(str).Delete
  7.     Sheets.Add(, Sheets("Sheet1")).Name = str
  8.     Sheets("sheet1").Select
  9. End Sub
复制代码

客户结算表1b.rar

12.8 KB, 下载次数: 9

回复

使用道具 举报

发表于 2011-10-30 11:46 | 显示全部楼层
回复 admin321 的帖子

{:4712:}原来你不是楼主呀!{:1812:}
回复

使用道具 举报

 楼主| 发表于 2011-10-30 11:47 | 显示全部楼层
回复 201228 的帖子

2007版的啊
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 20:20 , Processed in 0.511460 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表