sheet不是对象，只能是sheets(1).name 或者是sheet1.name或者是worksheets(1).name再或者是worksheets("工作表名").name sheet.name是错的，没有这种写法。。sheet(1).name之后不能跟active了。。。
= "目录" On Error Resume Next '代码出错时继续运行 Set SheetActive = ActiveSheet '确定活动单元格名称 i = 0 For Each Sheet In Worksheets If Sheet.Name = ActiveSheetsName Then '遍历工作表，判断有无"目录"工作表名称，若有,变量赋值变化。
Application.DisplayAlerts=False'不显示警告信息ForEachshtInWorksheetsIfsht.Name = ActiveSheet.NameThen'判断sht是不是活动工作表sht.Delete'删除sht代表的工作表EndIfNextApplication.DisplayAlerts=True'恢复显示警告信息End Sub 3、EnableEvents属性 启用或禁用事件,False为禁用(不让事件发生),True为启用 什么是事件?能...
1、如果只留下一张名为“Sheet1”的工作表，其余的全删除,代码如下： For Each Sheets In Worksheets If Sheets.Name <> "Sheet1" Then Sheets.Delete End If Next 2、留下活动工作表，其余工作表全部删除，代码如下： Dim SheetActive As Worksheet Dim SheetActiveName As String ...
ActiveWorkbook.Names.Add Name = "date", RefersToR1C1:="Sheet1!R5C[-2]" R5C[-2]说明:R后面的数值表示行号,C后面的数值表示列号,[]中括号表示相对引用,默认是绝对引用,相对应用时R>0表示向下移动,C>0表示向右移动 R[2]C[3]:对活动单元格下方的第二行与右边的第3列相交的单元格的引用 R2C3:对工...
ActiveSheet.Name= mainRowNo -2activeEnd= totalrow +1wb.ActiveSheet.Cells(1,1) ="日期"wb.ActiveSheet.Cells(1,2) ="涨跌幅"wb.Sheets(1).Range("c"& startdaterowno &":c"& enddateno.Row).Copy Destination:=wb.ActiveSheet.Range("a2:a"&activeEnd) ...
Sub HideWorksheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> ThisWorkbook.ActiveSheet.Name Then ws.Visible = xlSheetHidden End If Next ws End Sub 现在,假设您要隐藏工作簿中除活动工作表之外的所有工作表。此宏代码将为您执行此操作。相关:VBA 函数列表 35. 取消...
1、转载VBA中名称的使用VBA 中名称的使用在 VBA 中对名称的基本操作(1) 创建名称 可以使用下面的代码在当前工作簿中创建名称:ActiveWorkbook.Names.Add Name:=MyName,RefersToR1C1:=Sheet1!R2C2:R6C4 或者ActiveWorkbook.Names.Add Name:=MyName,RefersTo:=Sheet1!$B$2:$D$6面的代码在当前工作簿中将工作...
Visible = xlSheetVisible Then i = i + 1 Next If i > 1 Then ActiveSheet.Visible = xlSheetVeryHidden Else MsgBox "至少要保证有一个可见工作表。", vbCritical End If End Sub Sub VeryHideExceptActiveSht() Dim sht As Worksheet For Each sht In Worksheets If sht.Name <> ActiveSheet.Name Then...
Rename the Active Sheet using a VBA Code If you want to rename the active sheet, in that case, you don’t need to define the sheet name, instead, you need to use the ActiveSheet object that tells VBA to refer to the sheet that is active right now. ...