vba中更改sheet名
我写的程序将sheet更名了,不在是sheet1,sheet2,比如更名为abcd,efah,如果是这样的名称,我想要把两个工作表的a替换成5,vba程序能实现吗,要怎么...
我写的程序将sheet更名了,不在是sheet1,sheet2,比如更名为 abcd,efah,如果是这样的名称,我想要把两个工作表的a替换成5,vba程序能实现吗,要怎么写,若是循环,怎么能选择表,求程序,谢谢
谢谢,不过请问下怎么知道Application.WorksheetFunction.Substitute,对于我新手来说,怎么能获得这些函数并且知道怎么使用 展开
谢谢,不过请问下怎么知道Application.WorksheetFunction.Substitute,对于我新手来说,怎么能获得这些函数并且知道怎么使用 展开
3个回答
展开全部
1、Sheets("abcd").Name = "5bcd"
2、Application 属性
则该属性返回一个 Application 对象,该对象代表 Microsoft Excel 应用程序。
示例:
本示例显示一个有关创建 myObject 的应用程序的信息。
Set myObject = ActiveWorkbook
If myObject.Application.Value = "Microsoft Excel" Then
MsgBox "This is an Excel Application object."
Else
MsgBox "This is not an Excel Application object."
End If
3、WorksheetFunction 属性
返回 WorksheetFunction 对象。(什么是WorksheetFunction 对象:该对象上级对象为Application 。用作可从 Visual Basic 中调用的 Microsoft Excel 工作表函数的容器。
使用 WorksheetFunction 属性可返回 WorksheetFunction 对象。)
WorksheetFunction 属性示例
本示例对单元格区域 A1:A10 使用 Min 工作表函数,并显示结果。
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
你的这些问题并非一句两句就可以说的清楚,好方法就是查阅和学习vba的帮助中的相关章节和实例文件。
2、Application 属性
则该属性返回一个 Application 对象,该对象代表 Microsoft Excel 应用程序。
示例:
本示例显示一个有关创建 myObject 的应用程序的信息。
Set myObject = ActiveWorkbook
If myObject.Application.Value = "Microsoft Excel" Then
MsgBox "This is an Excel Application object."
Else
MsgBox "This is not an Excel Application object."
End If
3、WorksheetFunction 属性
返回 WorksheetFunction 对象。(什么是WorksheetFunction 对象:该对象上级对象为Application 。用作可从 Visual Basic 中调用的 Microsoft Excel 工作表函数的容器。
使用 WorksheetFunction 属性可返回 WorksheetFunction 对象。)
WorksheetFunction 属性示例
本示例对单元格区域 A1:A10 使用 Min 工作表函数,并显示结果。
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
你的这些问题并非一句两句就可以说的清楚,好方法就是查阅和学习vba的帮助中的相关章节和实例文件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2010-03-17 · 知道合伙人软件行家
关注
展开全部
Sub adsf()
For i = 1 To 2
Sheets(i).Name = Application.WorksheetFunction.Substitute(Sheets(i).Name, "a", "5")
Next
End Sub
For i = 1 To 2
Sheets(i).Name = Application.WorksheetFunction.Substitute(Sheets(i).Name, "a", "5")
Next
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Sub aa()
Dim ws As Worksheet
For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
ws.Name = i
Next i
End Sub
Dim ws As Worksheet
For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
ws.Name = i
Next i
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询