[已解决]如何读取工作表名称中的后几个字符。

kingofbirds

我建立了几个工作表“公11”私11“公12”私12“等。。
比如：我想把“公12”工作表的名字中后面的数字“12”读出来写到a1单元格中，咋写？

最佳答案

月排行榜 / 总排行榜

搁浅2008

2011-2-22 15:01

Sub aa()
    Range("A1") = StrReverse(Val(StrReverse(Sheet1.Name)))
End Sub

Sub aa()
    Range("A1") = Right(Sheet1.Name, Len(Sheet1.Name) - 1)
End Sub

跳转到最佳答案楼层

搁浅2008

Sub aa()
    Range("A1") = StrReverse(Val(StrReverse(Sheet1.Name)))
End Sub

Sub aa()
    Range("A1") = Right(Sheet1.Name, Len(Sheet1.Name) - 1)
End Sub

kingofbirds

请问如果向A1中写函数的话直接输入“= StrReverse(Val(StrReverse(Sheet1.Name)))
”不行吗

搁浅2008

在VBA板块问函数问题  要是函数 就要用宏表函数了

kingofbirds

谢谢你的答复，我在函数板块提了相应的问题，没人答复。
不知怎样才能将这个变成函数应用呢。
非常感谢你的答复。

搁浅2008

先定义名称aa=GET.WORKBOOK(3)
=MID(aa,FIND("]",aa)+2,100)

kingofbirds

非常感谢你的答复，可是我不太懂。“先定义名称aa=GET.WORKBOOK(3)”

kingofbirds

回复 搁浅2008 的帖子

非常感谢你的答复，可是我不太懂。“先定义名称aa=GET.WORKBOOK(3)”
那个函数输入就可以的，这个应该在哪里定义呢。

老糊涂

学习最佳答案

linch92413

如果是03版的：插入——名称——定义
如果是07版的：公式选项卡——定义的名称——定义名称