精华内容
下载资源
问答
  • Public Sub 更改名称() For i = 2 To Worksheets.Count Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value Next End Sub
    Public Sub 更改名称()
        For i = 2 To Worksheets.Count
            Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value
        Next
    End Sub
    
    展开全文
  • 防止更改工作表名称 工作表的名称显示在工作表标签上,除了在相应的功能菜单中可以对其进行重命名操作外,在工作表标签上双击鼠标也能修改工作表名称。但是一旦工作表名称进行了修改,则后期的引用则会造成很多影响...

    防止更改工作表名称

    工作表的名称显示在工作表标签上,除了在相应的功能菜单中可以对其进行重命名操作外,在工作表标签上双击鼠标也能修改工作表名称。但是一旦工作表名称进行了修改,则后期的引用则会造成很多影响。

    下列代码可以保证工作表名称不被修改:

    '是的表1的表名为“不能改”不变
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
        If Sheet1.Name <> "不能改" Then
            Sheet1.Name = "不能改"
        End If
        ThisWorkbook.Save
    End Sub
    
    展开全文
  • 'VBA禁止更改工作表名称 Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range) If Sheet16.Name <> "数据" Then Sheet16.Name = "数据" ThisWorkbook.Save End Sub
    'VBA禁止更改工作表名称
    Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
    
        If Sheet16.Name <> "数据" Then Sheet16.Name = "数据"
         ThisWorkbook.Save
    
    End Sub
    
    展开全文
  • VBA - Excel数据汇总-工作表工作簿名称列在右边

    有些工作需要汇总数据,一个一个粘贴又慢又麻烦,而且容易错,我分享一个我曾经写的一个方法。用VBA可以快速的解决这个问题,希望你需要的人有所帮助。

    以下是代码,粘贴到模块就行,有的地方我有注释,可以根据需要更改。

    Sub 汇总()
    Application.ScreenUpdating = False
    Dim Wb As Workbook
    On Error Resume Next '遇到错误继续运行
    With Application.FileDialog(msoFileDialogFilePicker)
       .AllowMultiSelect = True
       '多选
      .Filters.Clear
       '清除文件过滤器
      .Filters.Add "Excel文件", "*.xlsx;*.xls"
      .Filters.Add "Excel文件", "*.xlsm"
      .Filters.Add "Excel文件", "*.xls"
      .Filters.Add "全部文件", "*.*"
       '设置文件过滤器,可以指定多个扩展名,每个扩展名都必须用分号分隔。 例如,可以将参数分配给字符串:".txt;.htm"。
      Range("2:" & Rows.Count).Clear
      If .Show = -1 Then
        For Each vrtSelectedItem In .SelectedItems
          Set Wb = Workbooks.Open(vrtSelectedItem)
          With ThisWorkbook.ActiveSheet
            For Each Mysheet In Wb.Worksheets
              i = .Cells(Rows.Count, 2).End(xlUp).Row
              '获取不包含第一行的当前区域
              CellAddress = Split(Mysheet.Cells(2, 1).CurrentRegion.Address, ":")
              Mysheet.Range("A2:" & CellAddress(1)).Copy .Cells(i + 1, 1)
              j = .Cells(Rows.Count, 2).End(xlUp).Row
              '工作簿、工作表名称放在第6、7列,如果放在数据右边的列,可以用range.CurrentRegion.Columns.Count+1指定所在列
              .Range(.Cells(i + 1, 6), .Cells(j, 6)) = Wb.Name
              .Range(.Cells(i + 1, 7), .Cells(j, 7)) = Mysheet.Name
            Next
          End With
          Wb.Close
        Next
        Set Wb = Nothing
      End If
    End With
    Application.ScreenUpdating = True
    End Sub

    下图是它汇总的样子,A、B列是数据,F、G列是工作簿名称和工作表名称,可以知道数据来源  

    展开全文
  • VBA单元格、工作表工作簿

    千次阅读 2019-04-30 23:08:35
    详解VBA单元格、工作表工作簿各种表示、方法,注意事项。
  • VBA开发时,对工作表的引用有两种: Sub test() Sheets("人员").Activate ' 使用sheet1的名字“人员”进行引用,需要始终与sheet名称保持一致 Sheet1.Activate ' 直接引用sheet1,不受工作簿中sheet的名称的影响...
  • vba工作表重命名Renaming of worksheets can be done manually, but it will look like a massive task if there are a lot of worksheets to be renamed and when we need to rename it based on some conditions ...
  • vba工作表重命名By default, worksheet tabs in Excel are given generic names, such as Sheet1, Sheet2, and so on. If you have a lot of worksheets in your workbook, finding specific sheets can get tricky....
  • VBA 创建一个工作簿

    千次阅读 2021-04-08 09:53:59
    一、代码 Sub test() Dim wb As Workbook, sht As Worksheet '定义一个Workbook对象和一个Worksheet对象 Set wb = Workbooks.Add '新建一个工作簿 ... .Name = "另存工资表" '修改第一张工作表的标签名称 .R
  • Range("A" & x).Value Workbooks(Sname).Activate With Workbooks(Sname) .Sheets(1).name = Mid(Sname, 1, Len(Sname) - 5) '更改工作表名称 End With Sheets(1).Copy Before:=Workbooks("x.xlsx").Sheets(2) Next ...
  • VBA-工作簿的引用方法

    千次阅读 2020-02-26 11:19:28
    工作簿名称是指 Excel 文件的文件名,可以使用 Workbooks 集合引用方式来引用工作簿。 Sub test() MsgBox "名称为:" & Workbooks("1.xlsx").Path '显示路径,但是目前打开的名称为1.xlsx End Sub 2、使用工作...
  • Sub sheet另存为工作簿() Sheets(Array("人员档案", "明细一", "明细二", "明细三")).Copy Workbooks(Workbooks.Count).SaveAs ThisWorkbook.Path & "/" & "数据备份.xls" End Sub
  • 使用情景:如题,将一个包含多工作表工作簿拆分为单工作表工作簿文件 原始文件描述:【旺旺大礼包.xlsx】中有三个工作表,分别是旺仔牛奶、旺旺仙贝、旺旺小小酥 操作流程: 打开旺旺大礼包.xlsx——在菜单栏...
  • 先讲工作簿工作表的相关操作。 一、工作簿工作表的相关操作 1、保存工作簿 Sub SaveWorkBooks() Dim book As Workbook For Each book In Workbooks 'path等于空说明是新文件,就不保存 If book.path <...
  • excel宏 拆分工作表 在Excel宏代码中更改工作表名称 (Change Sheet Names in Excel Macro Code) If you download one of the sample Excel workbooks from my Contextures website, you might want to customize it,...
  • VBA获取当前工作表的表名

    千次阅读 2020-03-08 19:49:29
    Excel VBA代码怎么样获取或修改当前工作表的表名 获取: Sub get_sheetname() sheetname = ActiveWindow.ActiveSheet.Name Debug.Print sheetname(即时窗口打印,使用Ctrl + G能调出即时窗口,MsgBox消息盒子) End Sub ...
  • Workbooks是所有工作簿对象组成的集合,而Wrokbook对象是Workbooks集合的一个成员。 1.引用集合中的工作簿 利用工作簿名引用工作...通过代码获得指定工作簿名称、保存的路径等文件信息,示例代码如下。 Sub WbMsg...
  • 经常会有网友提问:如何实现禁止修改Excel工作表名称,这个暂时没有完美解决方案,但是如下变通解决方法基本上可以满足需求。 示例文件中有两个工作表,名称为Summary和Sheet2,假设禁止修改第一个工作表名称修改...
  • 一般的操作方法都是打开两个工作簿,然后选中需要移动的工作表,右键单击以后选择“移动或复制”。接下来在新的窗口里面进行设置就可以了。这种方法适合在移动数量较少的工作表的时候使用。如果有很多的工作簿,都...
  • 参考: VBA 合并同文件夹下多工作簿中同名工作表到 一工作簿工作表 在原先代码的基础上修改,可以自由选择和输入要合并多工作簿的同文件夹和工作表名,并生成目录页。 效果展示: 1、选择工作表 2、输入指定相同...
  • 如图所示,在同一个目录下有多个工作表名称相同的工资汇总月报。现希望通过VBA建立该多个月份的月报总表,将多个工作簿中的“工资汇总”工作表导入当前工作簿,并以月份命名。该如何实现呢? ...
  • 您在问题中显示的代码因以下原因而失败:Assets = Array("pipe_mat_tables", "pipe_diam_tables", "pipe_length_tables")Assets是一种工作表,它是一种Object,在为对象赋值时必须使用Set:Set Assets = Array("pipe...
  • 如何防止Excel工作表名称修改

    千次阅读 2020-01-29 14:51:53
    在Excel工作表标签上双击可以修改名称,如果其他工作簿中公式使用了对于此工作表的外部引用,那么工作表名称变化后,这些外部引用经失效,在VBA代码中通过工作表名称引用对象也将出错。利用VBA对象事件代码可以一定...
  • 心得(2):如何利用VBA一键更改多个excel文件为指定的名称 问题:如何一键更改相同目录下的所有excel文件的名称,改为这个excel文件名内的每个单元格的内容,如我这个因为是要统计所有比赛队伍的信息,因为大部分人的...
  • 在EXCEL表格中利用VBA对文件名进行批量更改。 利用EXCEL表格的便利性,将表格中第一列的文件名修改为第二列的文件名。
  • VBA-新建工作簿

    2020-02-26 12:09:43
    这节内容介绍如何应用VBA自动创建工作簿,并修改部分内容后保存关闭。和创建工作表类似,创建工作簿仍然使用add方法。下面是一个较为完整的创建例子: Sub addnewbook() Dim i As Integer Dim shtname As Variant ...
  • 在Excel中修改工作表名称有什么可讲的,在工作表标签上点右键,选择重命名就可以了,恭喜你答对了一半。 另一半呢?除了这个名称外,工作表还有另外一个名称——CodeName,想修改这个名字就没那么简单了。一个...
  • sub 批量新建指定名称工作表() Dim i As Integer For i = 2 To 10 '根据实际情况修改i大小 Worksheets.Add after:=Worksheets(ThisWorkbook.Worksheets.Count) ActiveSheet.Name = Sheets(1).Cells(1, i) ...
  • 如图所示,如何利用VBA将该工作簿中的各个工作表分别保存至单独的工作簿中,并将工作簿名称工作表标签命名? 部门 市场部 员工编号 姓名 0215 林革壮 0233 李卫卿 0247 申玲 ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,718
精华内容 1,487
关键字:

vba修改工作簿名称