查看: 5322|回复: 13
默认名为Macro的工作表有什么用?
阅读权限20
在线时间 小时
今天在一次按错键的情况下[em04],我在工作薄里用Ctrl+Alt+F1键打开一个默认名Macro的工作表[em05],在这个工作表里不能(好像,我仅试了几个公式和函数)进行运算[em06],我不知道各位在工作中有没有碰到过,也不知道这个工作表除了能做表格外,还能做什么工作.[em09].浪费大家的时间了哈.感谢大家能告诉点我什么哦.
阅读权限20
在线时间 小时
你是哪个版本的?我的似乎不行.你是用的EXCEL2007吗?
[此贴子已经被作者于 17:45:25编辑过]
阅读权限20
在线时间 小时
以下是引用xatwangtao在 17:43:17的发言：你是哪个版本的?我的似乎不行.你是用的EXCEL2007吗?2003的啊,我也不知道呢.今天才弄出来的啊,有点奇怪哦
阅读权限20
在线时间 小时
&你咋把我的 MVP 也给引用上了,本来想唬唬人的,哎....算了,那就博大家一笑吧!
阅读权限100
在线时间 小时
这应该是宏表,但是宏表是按CTL+F11建立的,楼主是不是写错了?现在一般用不到宏表,建议楼主删了它,否则每次打开会有宏提示,很烦的.
阅读权限100
在线时间 小时
Ctrl+F11 （在2003中按Ctrl+Alt+F1也可以）插入 Microsoft Excel 4.0 宏表。 宏表是早期的EXCEL开发语言，目前是淘汰趋势！CTRL+F11是创建快捷方式，等同于右击工作表标签插入\MS&EXCEL&4.0&宏表. 宏表是专门用于运行和处理宏函数的表格,&在这宏表中可以执行指定的宏表4.0&函数.&比如RETURN\GOTO\IF\NEXT&等等.宏表的列宽比一般的工作表宽。见下贴：81.
作者：&& 浏览：121&& 回复：3&&→ &&
<font color="#05-5-4 13:33:08&
[此贴子已经被作者于 11:08:35编辑过]
阅读权限100
在线时间 小时
以下是引用aichong在 20:51:52的发言：Ctrl+F11 （在2003中按Ctrl+Alt+F1也可以）......为什么我按CTL+ALT+F1不行呢,按了之后屏幕一黑,随即又恢复正常,好像什么都没发生.
阅读权限100
在线时间 小时
以下是引用白天睡觉在 21:03:55的发言：为什么我按CTL+ALT+F1不行呢,按了之后屏幕一黑,随即又恢复正常,好像什么都没发生.我的在2003中可以啊！
阅读权限30
在线时间 小时
嘻嘻哈哈,通过测试发现我的用ctrl+alt+f1能插入宏表.[em01]
阅读权限100
在线时间 小时
以下是引用aichong在 21:08:18的发言：我的在2003中可以啊！晕,你们都行,就我不行. 唉,EXCEL真XXX好玩,因为EXCEL老是XXX玩我[em06]
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 3209|回复: 13
[已解决]用某列名称自动建立工作表标签，同时建立目录
本帖最后由 手机帐户 于
22:33 编辑
一张表，我想用B列的名字自动新建表并以对应的名字命名，同时粘贴表头及该名称所在行的内容到对应的工作表中。最后工作表标签做成一个超链接目录。
现在的问题是：运行以后，总是出现名称中包含/,空格等特殊字符，无法建立工作表标签。
谁有帮我查找特殊字符替换为空，然后建立工作表标签……。最后建立一个超链接目录。
在线等，弄了一下午了，水平有限，总是出不来想要的结果。拜托高手出现。
图片只是一个例子，实际的数据在压缩包里面。
(31.59 KB, 下载次数: 13)
20:49 上传
那么的帅发布于
手机帐户 发表于
终于有高手帮我了…………我试过了，可是为什以只能出现2，26，29三张工作表呢
修改了Sub Macro1()
'
' Macro1 Macro
' 宏由 yy 录制，时间:
'
'Sub BRIDGE()
& & Dim K&, N&, SH As Worksheet
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & For Each SH In Sheets
& && &&&If Right(SH.Name, 1) = &桥& Then
& && && && &SH.Delete
& && &&&End If
& & Next
& & Set SH = Sheets(&脱硫脱硝调试项目部&)
& & SH.Activate
& & N = [B65536].End(xlUp).Row
& & K = 5
& & For i = K To N - 1
& &
& && &&&If SH.Cells(i, 2) && && Then
& && && && &Application.Worksheets.Add after:=Sheets(Sheets.Count)
& && &
& && && && &With Sheets(Sheets.Count)
& && && && && & .Name = Left(Replace(SH.Cells(i, 2).Value, &/&, &&), 31)
& && && && && & 'mybook.Sheets(&sheet1&).Rows(6).Copy target.Sheets(&sheet2&).Cells(1, 1)
& && && && && & SH.Range(&a2:k4&).Copy .Range(&a30:i32&)
& && && && && & SH.Rows(i).Copy .Rows(33)
& && && && &End With
& && &&&End If
& & Next
& & Application.DisplayAlerts = True
& & Application.ScreenUpdating = True
& & mandBars(&Stop Recording&).Visible = False
End Sub复制代码
没人能帮我看下吗
Sub Macro1()
' Macro1 Macro
' 宏由 yy 录制，时间:
'Sub BRIDGE()
& & Dim K&, N&, SH As Worksheet
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& && &&&Set SH = Sheets(&表1&)
& & SH.Activate
& & N = [B65536].End(xlUp).Row - 5
& & For i = 1 To N
& && &&&If Cells(K, 2) && && Then
& && && && &Application.Worksheets.Add after:=Sheets(&表1&)
& && && && &
& && && && &mstr = &*/ []。&
& && && && &For y = 1 To Len(mstr)
& && && && &temStr = Mid(mstr, y, 1)
& && && && & SH.Cells.Replace What:=temStr, Replacement:=&&
& && && && &Next
& && && && &
& && && && &ActiveSheet.Name = SH.Cells(K, 2).Value
& && && && &'mybook.Sheets(&sheet1&).Rows(6).Copy target.Sheets(&sheet2&).Cells(1, 1)
SH.Range(&a2:k4&).Copy ActiveSheet.Range(&a30:i32&)
SH.Rows(K).Copy ActiveSheet.Rows(33)
& && && && &SH.Activate
& && &&&End If
& && &&&K = K + 1
& & Application.DisplayAlerts = True
& & Application.ScreenUpdating = True
& & mandBars(&Stop Recording&).Visible = False
Sub Macro1()
'
' Macro1 Macro
' 宏由 yy 录制，时间:
'
'Sub BRIDGE()
& & Dim K&, N&, SH As Worksheet
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & For Each SH In Sheets
& && &&&If Right(SH.Name, 1) = &桥& Then
& && && && &SH.Delete
& && &&&End If
& & Next
& & Set SH = Sheets(&脱硫脱硝调试项目部&)
& & SH.Activate
& & N = [B65536].End(xlUp).Row - 5
& & K = 5
& & For i = K To N
& && &&&If Cells(i, 2) && && Then
& && && && &Application.Worksheets.Add after:=Sheets(Sheets.Count)
& && && && &With Sheets(Sheets.Count)
& && && && && & .Name = Left(Replace(SH.Cells(i, 2).Value, &/&, &&), 31)
& && && && && & 'mybook.Sheets(&sheet1&).Rows(6).Copy target.Sheets(&sheet2&).Cells(1, 1)
& && && && && & SH.Range(&a2:k4&).Copy .Range(&a30:i32&)
& && && && && & SH.Rows(i).Copy .Rows(33)
& && && && &End With
& && &&&End If
& & Next
& & Application.DisplayAlerts = True
& & Application.ScreenUpdating = True
& & mandBars(&Stop Recording&).Visible = False
End Sub复制代码
终于有高手帮我了…………我试过了，可是为什以只能出现2，26，29三张工作表呢
我这初级，连和高手发短信的功能都没有啊……。为什么只有三张表自动出现了，其它的表哪里去了呀
&&&本楼为最佳答案&&&
手机帐户 发表于
终于有高手帮我了…………我试过了，可是为什以只能出现2，26，29三张工作表呢
修改了Sub Macro1()
'
' Macro1 Macro
' 宏由 yy 录制，时间:
'
'Sub BRIDGE()
& & Dim K&, N&, SH As Worksheet
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & For Each SH In Sheets
& && &&&If Right(SH.Name, 1) = &桥& Then
& && && && &SH.Delete
& && &&&End If
& & Next
& & Set SH = Sheets(&脱硫脱硝调试项目部&)
& & SH.Activate
& & N = [B65536].End(xlUp).Row
& & K = 5
& & For i = K To N - 1
& &
& && &&&If SH.Cells(i, 2) && && Then
& && && && &Application.Worksheets.Add after:=Sheets(Sheets.Count)
& && &
& && && && &With Sheets(Sheets.Count)
& && && && && & .Name = Left(Replace(SH.Cells(i, 2).Value, &/&, &&), 31)
& && && && && & 'mybook.Sheets(&sheet1&).Rows(6).Copy target.Sheets(&sheet2&).Cells(1, 1)
& && && && && & SH.Range(&a2:k4&).Copy .Range(&a30:i32&)
& && && && && & SH.Rows(i).Copy .Rows(33)
& && && && &End With
& && &&&End If
& & Next
& & Application.DisplayAlerts = True
& & Application.ScreenUpdating = True
& & mandBars(&Stop Recording&).Visible = False
End Sub复制代码
神啊！！！！膜拜啊！！！！特殊字符也行啊！！！就是少个超链接的目录……真是神人！我以后得多在这里向大师学习。
Sub Macro2()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
& & If Sheets(i).Name && &脱硫脱硝调试项目部& Then Sheets(i).Delete
Next
For i = 5 To Range(&b65536&).End(xlUp).Row - 1
& & With Sheets.Add(after:=Sheets(Sheets.Count))
& && &&&.Name = Left(Replace(Sheet1.Cells(i, 2), &/&, &&), 31)
& && &&&Sheet1.Rows(i).Copy .Cells(1, 1)
& & End With
Next
Sheet1.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
复制代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 And Target.Row & 4 Then
& & zf = Left(Replace(Target, &/&, &&), 31)
& & If Not Sheets(zf) Is Nothing Then Sheets(zf).Activate
End If
End Sub
复制代码
点击按钮后，选中b列单元格自动链接对应工作表
21:50 上传
点击文件名下载附件
35.02 KB, 下载次数: 75
Powered by推荐这篇日记的豆列
······