精华内容
下载资源
问答
  • 原文:http://coolketang.com/staticOffice/5a97f1019f5454403c523cc8.html1. 本节课将为您演示,工作表重命名,以及工作表标签背景颜色的设置。首先点击加号按钮,增加一张工作表。 2. 在工作表名称上点击鼠标...

    原文:http://coolketang.com/staticOffice/5a97f1019f5454403c523cc8.html

    1. 本节课将为您演示,工作表的重命名,以及工作表标签背景颜色的设置。首先点击加号按钮,增加一张工作表。 



    2. 在工作表名称上点击鼠标右键,打开右键菜单。 


    3. 选择菜单中的[重命名]选项,开始编辑工作表的名称。 


    4. 然后输入[第十页],作为新工作表的名称。 


    5. 文字输入完成后,按下键盘上的回车键,完成工作表的重命名操作。 


    6. 鼠标双击工作表的名称,也可以快速进入工作表名称的编辑模式。 


    7. 按下键盘上的左向箭头,将光标移至[页]字的前方。 


    8. 按下键盘上的删除键,删除光标左侧的字符[十]。 


    9. 然后输入字符[九]。 


    10. 文字输入完成后,按下键盘上的回车键,完成工作表的重命名操作。 


    11. 接着为您演示如何调整工作表标签的背景颜色。在工作表标签上点击鼠标右键,打开右键菜单。 


    12. 选择菜单中的[工作表标签颜色]选项,显示颜色面板。 


    13. 在颜色面板中,选择一种颜色,作为工作表标签的颜色。 


    14. 在激活状态下,工作表标签的背景颜色,是以渐变方式存在的,点击其它的工作表标签,取消第九页工作表的激活状态。 


    15. 当第九页工作表失去激活状态时,其背景色是以单色方式存在的。在第二页工作表标签上点击鼠标右键,打开右键菜单。 


    16. 选择菜单中的[工作表标签颜色]选项,显示颜色面板。 


    17. 在颜色面板中,选择一种颜色,作为第二页工作表标签的颜色。 


    18. 点击其它的工作表标签,取消第二页工作表的激活状态。 


    19. 观察第二页工作表标签的背景颜色,然后您将清除该工作表的背景颜色。点击选择第二页工作表。 


    20. 在第二页工作表标签上,再次点击鼠标右键,打开右键菜单。 


    21. 选择菜单中的[工作表标签颜色]选项,显示颜色面板。 


    22. 在颜色面板中,选择[无颜色]选项,清除第二页工作表标签的颜色。 


    23. 点击其它的工作表标签,取消第二页工作表的激活状态,并观察第二页工作表标签颜色的变化。 


    本文整理自:《Excel 2016互动教程》,真正的[手把手]教学模式,用最快的速度上手Excel电子表格,苹果商店App Store免费下载:https://itunes.apple.com/cn/app/id1090726089,或扫描本页底部的二维码。课程配套素材下载地址:资料下载



    展开全文
  • 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工作表重命名

    vba工作表重命名

    00_lead_image_renaming_tabs

    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.

    默认情况下,Excel中的工作表选项卡具有通用名称,例如Sheet1,Sheet2等。 如果您的工作簿中有很多工作表,则查找特定工作表可能会很棘手。

    However, you can assign a name to each tab in your workbook so you can easily find the tab you want. It’s quite simple, and we’ll show you how.

    但是,您可以为工作簿中的每个选项卡分配一个名称,以便轻松找到所需的选项卡。 这很简单,我们将向您展示如何操作。

    To rename a tab, right-click on the tab and select “Rename” from the popup menu. You can also double-click on a tab.

    要重命名选项卡,请右键单击该选项卡,然后从弹出菜单中选择“重命名”。 您也可以双击选项卡。

    01_selecting_rename

    Type a new name for the tab and press Enter. Tab names can contain up to 30 characters.

    输入选项卡的新名称,然后按Enter。 标签名称最多可以包含30个字符。

    02_typing_tab_name

    Repeat this procedure for each tab you want to rename.

    对要重命名的每个选项卡重复此过程。

    03_sheets_renamed

    If your custom tab names are longer than the default names, they may not all fit on the worksheet tab bar. If they don’t, you will see three dots on the right end, initially. Click the dots to go to the first hidden tab to the right. Every time you click the three dots, the next hidden tab displays and is selected until you reach the last tab. As you click the three dots on the right, you will notice that three dots appear on the left end of the worksheet tab bar also. Click the three dots on the let to move to and select the next hidden tab on the left side of the worksheet tab bar, until you reach the first tab.

    如果您的自定义选项卡名称长于默认名称,则它们可能无法全部适合工作表选项卡栏。 如果没有,最初您会在右端看到三个点。 单击这些点以转到右侧的第一个隐藏选项卡。 每次单击三个点时,都会显示并选择下一个隐藏的选项卡,直到到达最后一个选项卡。 单击右侧的三个点时,您会注意到三个点也出现在工作表选项卡栏的左端。 单击让其移动到的三个点,然后选择工作表选项卡栏左侧的下一个隐藏选项卡,直到到达第一个选项卡。

    04_additional_tabs_indicator

    Try to be concise with your tab names. The longer your tab names, the fewer tabs will fit on the visible part of the worksheet tab bar.

    尽量简明扼要的标签名称。 选项卡名称越长,工作表选项卡栏的可见部分将容纳的选项卡就越少。

    You can also change the color of your worksheet tabs to distinguish among them.

    您还可以更改工作表选项卡的颜色以区分它们。

    翻译自: https://www.howtogeek.com/276285/how-to-rename-worksheet-tabs-in-excel/

    vba工作表重命名

    展开全文
  • 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工作表重命名

    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 or values.

    重命名工作表可以手动完成,但是如果要重命名许多工作表以及需要根据某些条件或值重命名工作表,这将是一项艰巨的任务。

    Today, I'm going to show how we can actually rename the worksheets based on conditions by writing some VBA codes.

    今天,我将展示如何通过编写一些VBA代码,根据条件实际重命名工作表。

    Create the fundamental

    创造基础

    Renaming the worksheet can be as easy as looking for a fixed value and then renaming it accordingly with another fixed value.

    重命名工作表就像查找一个固定值,然后相应地使用另一个固定值重命名一样容易。

    Worksheets("Sheet1").Name = "New Sheet Name" 
    

    When we are trying to rename many worksheets, we can repeat to call the codes with minimal changes:

    当我们尝试重命名许多工作表时,我们可以重复执行以最少的更改来调用代码:

    Worksheets("Sheet1").Name = "New Sheet Name"
    Worksheets("Sheet2").Name = "New Sheet Name (2)" 
    

    Note: You must be careful when you trying to rename your worksheet:

    注意:尝试重命名工作表时,必须小心:

    1) Make sure the worksheet name you're referring to exists in the current worksheet

    1 )确保您要引用的工作表名称在当前工作表中存在

    2) Make sure the new worksheet name doesn't exist in the current worksheet

    2 )确保新工作表名称在当前工作表中不存在

    To better handle this, you can create a function like this:

    为了更好地处理此问题,您可以创建如下函数:

    Function getWorkSheet(ByVal WorkSheetName As String) As Worksheet
        On Error GoTo EH
        Set getWorkSheet = Worksheets(WorkSheetName)
        Exit Function
    EH:
        Set getWorkSheet = Nothing
    End Function
    
    Function renameWorkSheet(ByRef ws As Worksheet, ByVal NewWsName As String) As Boolean
        On Error GoTo EH
        Debug.Print ws.Name & " to " & NewWsName
        If getWorkSheet(NewName) Is Nothing Then
            ws.Name = NewWsName
            renameWorkSheet = True
        Else
            'New Worksheet Name already exists
            renameWorkSheet = False
        End If
        Exit Function
    EH:
        renameWorkSheet = False
    End Function 
    

    Function getWorkSheet will be used to look up if there's an existing worksheet with the name that passes to that function. In this case, this function will return a worksheet object. Of course, you can customize your own codes to return as a Boolean instead, for example, but it's all up to you how you design your code.

    函数getWorkSheet将用于查找是否存在名称传递给该函数的现有工作表。 在这种情况下,此函数将返回一个工作表对象。 当然,例如,您可以自定义自己的代码以返回为布尔值,但是这完全取决于您如何设计代码。

    Function renameWorkSheet will be used to handle the rename worksheet process. First, it checks if the worksheet exists before the code proceeds to rename it.

    函数renameWorkSheet将用于处理重命名工作表过程。 首先,它在代码进行重命名之前检查工作表是否存在。

    So, we can directly implement the rename process by using code like this:

    因此,我们可以使用以下代码直接实现重命名过程:

    renameWorkSheet Worksheets("Sheet1"), "New Sheet Name"
    renameWorkSheet Worksheets("Sheet2"), "New Sheet Name (2)" 
    

    which should rename the worksheets accordingly

    应该相应地重命名工作表

    So far so good, right?

    到目前为止一切顺利,对吗?

    Now, what we can do is to rename the worksheets based on a set of rules, by knowing or without knowing how many of worksheets in total we should be renaming.

    现在,我们可以做的是基于一组规则来重命名工作表,方法是知道(或不知道)总共应该重命名多少个工作表。

    To do that, I would think we can list out the requirements we needed, such as:

    为此,我认为我们可以列出所需的要求,例如:

    1) What to be compared, such as fixed values, or cell values, etc.

    1 )要比较的内容,例如固定值或单元格值等。

    2) The comparison method, such as exact match, partial match, or match by using start with, etc.

    2 )比较方法,例如精确匹配,部分匹配或通过使用start with进行匹配等。

    To address the above, I have come out with a  data structure like this:

    为了解决上述问题,我提出了这样的数据结构:

    Private Enum CompareMethod
        Exact = 1
        Within = 2
        StartWith = 3
    End Enum
    
    Private Enum ReadFrom
        Cell = 1
        FixedValue = 2
    End Enum
    
    Private Type WorkSheetSettings
        CompareKey As String
        CompareMethod As CompareMethod
        ReadFrom As ReadFrom
        ReplaceWith As String
        ReadFrom2 As ReadFrom
        ReplaceWith2 As String
        JoinString As String
    End Type 
    

    Enum is being used to define the possible values for our own defined type.

    枚举被用来为我们自己定义的类型定义可能的值。

    Type is being used to declare a user-defined type.

    类型用于声明用户定义的类型。

    In addition, we would need a function getNewWsName to generate the new worksheet name based on the options given above:

    另外,我们将需要一个函数getNewWsName来基于上面给出的选项生成新的工作表名称:

    Function getNewWsName(ByRef ws As Worksheet, ByRef config As WorkSheetSettings) As String
        If config.ReplaceWith <> "" Then
            If config.ReadFrom = Cell Then
                getNewWsName = ws.Range(config.ReplaceWith).Value
            Else
                getNewWsName = config.ReplaceWith
            End If
        End If
        If config.ReplaceWith2 <> "" Then
            If config.ReadFrom2 = Cell Then
                getNewWsName = getNewWsName & config.JoinString & ws.Range(config.ReplaceWith2).Value
            Else
                getNewWsName = getNewWsName & config.JoinString & config.ReplaceWith2
            End If
        End If
    End Function 
    

    Now, to rename "Sheet1" to "New Sheet Name", we can implement this:

    现在,要将“ Sheet1 ”重命名为“ New Sheet Name ”,我们可以实现以下功能:

        Dim NewWsName As String
        Dim ws As Worksheet
        Dim myConfig As WorkSheetSettings
        
        myConfig.CompareKey = "Sheet1"
        myConfig.CompareMethod = Exact
        myConfig.ReadFrom = FixedValue
        myConfig.ReplaceWith = "New Sheet Name"
        
        Set ws = getWorkSheet(myConfig.CompareKey)
        If Not ws Is Nothing Then
            NewWsName = getNewWsName(ws, myConfig)
            renameWorkSheet ws, NewWsName
        End If 
    

    In the event that we would like to rename Sheet1 based on the cell value of Sheet1's cell, A1, we can implement the same by using code:

    如果我们想基于Sheet1的单元格A1的单元格值重命名Sheet1,我们可以使用以下代码来实现:

        Dim NewWsName As String
        Dim ws As Worksheet
        Dim myConfig As WorkSheetSettings
        
        myConfig.CompareKey = "Sheet1"
        myConfig.CompareMethod = Exact
        myConfig.ReadFrom = Cell
        myConfig.ReplaceWith = "A1"
       
        Set ws = getWorkSheet(myConfig.CompareKey)
        If Not ws Is Nothing Then
            NewWsName = getNewWsName(ws, myConfig)
            renameWorkSheet ws, NewWsName
        End If 
    

    To replace multiple worksheets all together, we can simply declare the WorkSheetSettings as an array with the settings, like:

    要一起替换多个工作表,我们可以简单地将WorkSheetSettings声明为具有设置的数组,例如:

        Dim NewWsName As String
        Dim ws As Worksheet
        Dim myConfig(1) As WorkSheetSettings
        
        myConfig(0).CompareKey = "Sheet1"
        myConfig(0).CompareMethod = Exact
        myConfig(0).ReadFrom = Cell
        myConfig(0).ReplaceWith = "A1"
        
        myConfig(1).CompareKey = "Sheet2"
        myConfig(1).CompareMethod = Exact
        myConfig(1).ReadFrom = FixedValue
        myConfig(1).ReplaceWith = "New Sheet Name (2)"
        
        For i = 0 To UBound(myConfig)
            Set ws = getWorkSheet(myConfig(i).CompareKey)
            If Not ws Is Nothing Then
                NewWsName = getNewWsName(ws, myConfig(i))
                renameWorkSheet ws, NewWsName
            End If
        Next 
    

    You can try exploring the possible combinations by revisiting the rules:

    您可以尝试通过重新访问规则来探索可能的组合:

    1) What to be compared, such as fixed values, or cell values, etc.

    1 )要比较的内容,例如固定值或单元格值等。

    2) The comparison method, such as exact match, partial match, or match by using start with, etc.

    2 )比较方法,例如精确匹配,部分匹配或通过使用start with进行匹配等。

    Real Scenario Implementation

    实际方案实施

    Based on the question posted recently: Needs Help With Conditional Renaming for Several Tabs

    基于最近发布的问题: 需要几个标签的条件重命名的帮助

    For the 1st tab, the "Allocation" tab, I need to rename it as “Master_CellD28Value” which means that if Cell D28’s value is A123 - FIFO, the tab should be renamed to “Master_A123 - FIFO”.

    对于第一个选项卡,即“分配”选项卡,我需要将其重命名为“ Master_CellD28Value”,这意味着如果单元格D28的值为A123-FIFO,则该选项卡应重命名为“ Master_A123-FIFO”。

    For the 6th and 7th tab, the "ESD Trf Qty" and "EVNL Trf Qty" tabs, I need it to be renamed like this: The part before “ Trf Qty”_Cell C28’s value. For example, if EVNL Trf Qty tab’s cell C28 value is A123 - LIFO then the tab should be renamed to “EVNL_A123 - LIFO”

    对于第6和第7个选项卡,“ ESD Trf数量”和“ EVNL Trf数量”选项卡,我需要像这样重命名:“ Trf数量” _Cell C28值之前的部分。 例如,如果“ EVNL Trf数量”选项卡的单元格C28值为A123-LIFO,则该选项卡应重命名为“ EVNL_A123-LIFO”



    The tabs which are named "By Ctrn-EIN", "By Ctrn-EMSB", "By Ctrn-ETH", "By Ctrn-EPC" and "By Ctry-IDC", these need to be renamed to “CellE25Value_CellC28Value”. If Cell E25 Value’s is Canada and Cell C28’s Value is B987 -123 then the tab should be renamed to “Canada_B987 - 123”

    名为“按Ctrn-EIN”,“按Ctrn-EMSB”,“按Ctrn-ETH”,“按Ctrn-EPC”和“按Ctry-IDC”的选项卡,这些选项卡需要重命名为“ CellE25Value_CellC28Value”。 如果单元格E25的值是加拿大,单元格C28的值是B987 -123,则该选项卡应重命名为“ Canada_B987-123”



    As an error proofing method, the last tab, the subset list should be left alone.

    作为防错方法,最后一个选项卡,子集列表应保留为空。

    This actually can be done by simply changing the rules and apply the code below:

    实际上,只需更改规则并应用以下代码即可完成此操作:

    Sub RenameWorkSheets()
        Dim NewWsName As String
        Dim ArrPrefix(3) As WorkSheetSettings
        
        ArrPrefix(0).CompareKey = "Allocation"
        ArrPrefix(0).CompareMethod = Exact
        ArrPrefix(0).ReadFrom = FixedValue
        ArrPrefix(0).ReplaceWith = "Master_"
        ArrPrefix(0).ReadFrom2 = Cell
        ArrPrefix(0).ReplaceWith2 = "D28"
        
        ArrPrefix(1).CompareKey = "ESD "
        ArrPrefix(1).CompareMethod = StartWith
        ArrPrefix(1).ReadFrom = FixedValue
        ArrPrefix(1).ReplaceWith = "ESD_"
        ArrPrefix(1).ReadFrom2 = Cell
        ArrPrefix(1).ReplaceWith2 = "C28"
        
        ArrPrefix(2).CompareKey = "EVNL "
        ArrPrefix(2).CompareMethod = StartWith
        ArrPrefix(2).ReadFrom = FixedValue
        ArrPrefix(2).ReplaceWith = "EVNL_"
        ArrPrefix(2).ReadFrom2 = Cell
        ArrPrefix(2).ReplaceWith2 = "C28"
        
        ArrPrefix(3).CompareKey = "By "
        ArrPrefix(3).CompareMethod = StartWith
        ArrPrefix(3).ReadFrom = Cell
        ArrPrefix(3).ReplaceWith = "E25"
        ArrPrefix(3).ReadFrom2 = Cell
        ArrPrefix(3).ReplaceWith2 = "C28"
        ArrPrefix(3).JoinString = "_"
        
        Dim ws As Worksheet
        
        For Each ws In ActiveWorkbook.Worksheets
            For i = 0 To UBound(ArrPrefix)
                Select Case ArrPrefix(i).CompareMethod
                Case CompareMethod.Exact
                    If ws.Name = ArrPrefix(i).CompareKey Then
                        NewWsName = getNewWsName(ws, ArrPrefix(i))
                        renameWorkSheet ws, NewWsName
                        Exit For
                    End If
                Case CompareMethod.StartWith
                    If Left(ws.Name, Len(ArrPrefix(i).CompareKey)) = ArrPrefix(i).CompareKey Then
                        NewWsName = getNewWsName(ws, ArrPrefix(i))
                        renameWorkSheet ws, NewWsName
                        Exit For
                    End If
                Case CompareMethod.Within
                    If InStr(ws.Name, ArrPrefix(i).CompareKey) > 0 Then
                        NewWsName = getNewWsName(ws, ArrPrefix(i))
                        renameWorkSheet ws, NewWsName
                        Exit For
                    End If
                End Select
            Next
        Next
    End Sub 
    

    As you can see, the main code remains the same. Hence, minimal code changes are needed.

    如您所见,主要代码保持不变。 因此,需要最少的代码更改。

    Note:

    注意:

    In the case you see the worksheet name is not being renamed, there could be some possibilities:

    如果您看到工作表名称未重命名,则可能存在一些可能性:

    1) You provided an invalid sheet name that needs to be renamed

    1 )您提供了一个无效的工作表名称,需要重命名

    2) You provided an empty new sheet name

    2 )您提供了一个空白的新工作表名称

    3) You provided a new sheet name that is over the limited allowed in Excel (max allowed is 31 chars)

    3 )您提供的新工作表名称超出了Excel中允许的限制(允许的最大字符数为31个字符)

    4) You provided a new sheet name that already exists

    4 )您提供了一个已经存在的新工作表名称

    Well, we are done! And here is the complete code to share with you all:

    好了,我们完成了! 以下是与大家共享的完整代码:

    Private Enum CompareMethod
        Exact = 1
        Within = 2
        StartWith = 3
    End Enum
    
    Private Enum ReadFrom
        Cell = 1
        FixedValue = 2
    End Enum
    
    Private Type WorkSheetSettings
        CompareKey As String
        CompareMethod As CompareMethod
        ReadFrom As ReadFrom
        ReplaceWith As String
        ReadFrom2 As ReadFrom
        ReplaceWith2 As String
        JoinString As String
    End Type
    
    Sub RenameWorkSheets()
        Dim NewWsName As String
        Dim ArrPrefix(3) As WorkSheetSettings
       
        ArrPrefix(0).CompareKey = "Allocation"
        ArrPrefix(0).CompareMethod = Exact
        ArrPrefix(0).ReadFrom = FixedValue
        ArrPrefix(0).ReplaceWith = "Master_"
        ArrPrefix(0).ReadFrom2 = Cell
        ArrPrefix(0).ReplaceWith2 = "D28"
       
        ArrPrefix(1).CompareKey = "ESD "
        ArrPrefix(1).CompareMethod = StartWith
        ArrPrefix(1).ReadFrom = FixedValue
        ArrPrefix(1).ReplaceWith = "ESD_"
        ArrPrefix(1).ReadFrom2 = Cell
        ArrPrefix(1).ReplaceWith2 = "C28"
       
        ArrPrefix(2).CompareKey = "EVNL "
        ArrPrefix(2).CompareMethod = StartWith
        ArrPrefix(2).ReadFrom = FixedValue
        ArrPrefix(2).ReplaceWith = "EVNL_"
        ArrPrefix(2).ReadFrom2 = Cell
        ArrPrefix(2).ReplaceWith2 = "C28"
       
        ArrPrefix(3).CompareKey = "By "
        ArrPrefix(3).CompareMethod = StartWith
        ArrPrefix(3).ReadFrom = Cell
        ArrPrefix(3).ReplaceWith = "E25"
        ArrPrefix(3).ReadFrom2 = Cell
        ArrPrefix(3).ReplaceWith2 = "C28"
        ArrPrefix(3).JoinString = "_"
       
        Dim ws As Worksheet
       
        For Each ws In ActiveWorkbook.Worksheets
            For i = 0 To UBound(ArrPrefix)
                Select Case ArrPrefix(i).CompareMethod
                Case CompareMethod.Exact
                    If ws.Name = ArrPrefix(i).CompareKey Then
                        NewWsName = getNewWsName(ws, ArrPrefix(i))
                        renameWorkSheet ws, NewWsName
                        Exit For
                    End If
                Case CompareMethod.StartWith
                    If Left(ws.Name, Len(ArrPrefix(i).CompareKey)) = ArrPrefix(i).CompareKey Then
                        NewWsName = getNewWsName(ws, ArrPrefix(i))
                        renameWorkSheet ws, NewWsName
                        Exit For
                    End If
                Case CompareMethod.Within
                    If InStr(ws.Name, ArrPrefix(i).CompareKey) > 0 Then
                        NewWsName = getNewWsName(ws, ArrPrefix(i))
                        renameWorkSheet ws, NewWsName
                        Exit For
                    End If
                End Select
            Next
        Next
    End Sub
    
    Function getNewWsName(ByRef ws As Worksheet, ByRef config As WorkSheetSettings) As String
        If config.ReplaceWith <> "" Then
            If config.ReadFrom = Cell Then
                getNewWsName = ws.Range(config.ReplaceWith).Value
            Else
                getNewWsName = config.ReplaceWith
            End If
        End If
        If config.ReplaceWith2 <> "" Then
            If config.ReadFrom2 = Cell Then
                getNewWsName = getNewWsName & config.JoinString & ws.Range(config.ReplaceWith2).Value
            Else
                getNewWsName = getNewWsName & config.JoinString & config.ReplaceWith2
            End If
        End If
    End Function
    
    Function getWorkSheet(ByVal WorkSheetName As String) As Worksheet
        On Error GoTo EH
        Set getWorkSheet = Worksheets(WorkSheetName)
        Exit Function
    EH:
        Set getWorkSheet = Nothing
    End Function
    
    Function renameWorkSheet(ByRef ws As Worksheet, ByVal NewWsName As String) As Boolean
        On Error GoTo EH
        Debug.Print ws.Name & " to " & NewWsName
        If getWorkSheet(NewName) Is Nothing Then
            ws.Name = NewWsName
            renameWorkSheet = True
        Else
            'New Worksheet Name already exists
            renameWorkSheet = False
        End If
        Exit Function
    EH:
        renameWorkSheet = False
    End Function 
    

    What's more?

    更重要的是?

    Last but not least, we can further enhance our code to include features such as:

    最后但并非最不重要的一点是,我们可以进一步增强代码以包括以下功能:

    • Put the color options to worksheet's tab

      将颜色选项放入工作表的选项卡
    • Sort the worksheets according to certain orders

      根据某些顺序对工作表进行排序
    • Split the content of a worksheet into multiple worksheets

      将工作表的内容拆分为多个工作表
    • Merge the content of worksheets into a single worksheet

      将工作表的内容合并到一个工作表中

    This I think we can discuss that in future tutorials.

    我想我们可以在以后的教程中对此进行讨论。

    I hope you found this article useful. You are encouraged to ask questions, report any bugs or make any other comments about it below.

    希望本文对您有所帮助。 鼓励您在下面提出问题,报告任何错误或对此作出任何其他评论。

    Note: If you need further "Support" about this topic, please consider using the Ask a Question feature of Experts Exchange. I monitor questions asked and would be pleased to provide any additional support required in questions asked in this manner, along with other EE experts...

    注意 :如果您需要有关此主题的更多“支持”,请考虑使用Experts Exchange 的“提问”功能。 我会监督提出的问题,并很高兴与其他电子工程师一起提供以这种方式提出的问题所需的任何其他支持...

    Please do not forget to press the "Thumb's Up" button if you think this article was helpful and valuable for EE members.  It also provides me with positive feedback. Thank you!

    如果您认为本文对EE成员有用且有价值,请不要忘记按“ Thumb's Up”按钮。 它还为我提供了积极的反馈。 谢谢!

    翻译自: https://www.experts-exchange.com/articles/33507/Rename-a-list-of-worksheets-using-VBA-codes-with-conditions.html

    vba工作表重命名

    展开全文
  • 虽然平常在用excel 2010重命名工作表的时候,一般可能会用“双击工作表”的方法来重名,但是遇到大批量重名的时候就很麻烦。 ... '批量工作表重命名 Dim i As Integer For i = 1 To 5 Works...

    虽然平常在用excel 2010重命名工作表的时候,一般可能会用“双击工作表”的方法来重名,但是遇到大批量重名的时候就很麻烦。

    我的方法,先建一张新表,然后在第一列写好要命名的表名字,然后在VBE窗口里面输入代码

    Sub rename()
        '批量工作表重命名
        Dim i As Integer
        For i = 1 To 5
            Worksheets(i).Name = Cells(i, 1)
        Next
    End Sub
    


    转载于:https://www.cnblogs.com/zhurun/p/4590567.html

    展开全文
  • 批量重命名excel工作表

    千次阅读 2014-12-16 22:36:41
    ,实现按第一列内容重命名工作表。 (2)按下ALT+F11,打开VBE窗口,单击插入——模块,复制下面代码,并运行   Sub 按A列数据修改表名称()  On Error Resume Next '忽略错误继续执行VBA代码,避免出现...
  • Excel表格无法重命名工作表

    千次阅读 2020-07-01 19:15:34
    Excel表格无法重命名工作表 原因分析: Excel表受保护,无法修改 详细步骤: step1:审阅>保护工作簿 step2:输入密码 step3:即可正常修改工作表 step4:安全需要,别忘了再重新设置密码 ...
  • 下面将为大家介绍两种重命名工作表的方法,一起来试试吧。 1.直接重命名工作表 在需要重命名工作表标签上双击鼠标,具体的操作步骤如下。 步骤1 在工作簿中双击要重命名工作表的标签,如双击Sheet1工作表标签...
  • MySQL数据库导入、导出、复制重命名表

    千次阅读 多人点赞 2019-11-30 14:13:09
    提前说明这是一篇小白总结,高手勿喷请绕行,写这篇总结的...看来还得稳扎稳打从基础入手,因为实际工作的用到的SQL并不多,现在把常用的几条总结一下,即使下次不能立马写出来,也能在这篇文章中的快速找到想要的...
  • plsql数据表重命名 重命名数据透视表明细表 (Rename Pivot Table DrillDown Sheets) When you double-click a pivot table value cell, Excel adds a new sheet to your workbook, with the details for that ...
  • 重命名表空间

    2014-09-19 13:32:02
    oracle10g起才可以重命名表空间,这个特性使得重名冲突下传输空间变得简单,ORACLE还会智能的完成配套修改工作,例如修改数据库或用户的默认空间,修改默认的UNDO空间,spfile也会发生对应的变化。重命名表...
  • 由于要用到无序的文件进行重命名,以下写了一个脚本,进行批量进行重命名。基本格式是 i.后缀名 (i 循环条件下的数 )1 #coding:utf82 import os;34 def rename():5 i=06 path="F: est";7 filelist=os....
  • 一、批量重命名一个工作簿中的所有工作表 工作簿中有10个工作表,每张工作表的名字中都带有“2020年”字样,想把这几个字去掉。虽然说一个一个的重命名也花不了多少时间,但是如果这个工作簿中有100张工作表中,有...
  • 前言 ...看来还得稳扎稳打从基础入手,因为实际工作的用到的SQL并不多,现在把常用的几条总结一下,即使Flutter基础下次不能立马写出来,也能在这篇文章中的快速找到想要的。 正如标题中的提到的...
  • matlab将excel里的sheet重命名; matlabExcel工作表重命名; 使用matlab将excel合并单元格; matlab导出excel时合并单元格;
  • 在Access数据库中重命名表
  • 文章目录1、为表重命名(了解)1.1 范例1:将member表更名为person表2、数据表的删除(重点)2.1 范例1:删除emp30表3、闪回技术(理解) ????大家好!我是近视的脚踏实地,这篇文章主要是来讲学习Oracle中常用的数据...
  • I would need to rename a few columns in some tables in a SQLite database. 我需要在SQLite数据库的某些重命名一些列。
  • 一键批量重命名

    2020-11-13 19:50:07
    各位大帅比跟大漂亮们~老Amy来咯!最近跟老James、Tony交流了一会,听说兄弟们工作中有一些需求就是批量重命名文件。所以我就开始了如下操作,只能用一个词来形容,那就是呕心沥血 ...依次文件进行重命名
  • 文章目录一、工作表1.1 工作表重命名与复制1.2 工作组二、合并计算 一、工作表 1.1 工作表重命名与复制 工作表重命名:①右键,选择重命名。...工作组中的一个工作表进行改动,整个工作组都将随之改动。
  • Ubuntu 重命名文件

    千次阅读 2017-12-22 15:47:47
    在linux下修改文件的名字有很多种方法,常用的有mv和rename。 一,mv mv fromfile tofile ...mv一次只能重命名一个文件,而且,它是移动命令。...当然有选项可以已存在的文件进行提示,
  • python用指定名称列表文件批量重命名问题描述代码 问题描述 文件夹1中是一系列的mp3文件; 文件夹2中是同样数量的命名不规则的excel文件; 需要将2中的excel重命名,并与文件夹1中的mp3名字一一对应。 代码 #按...
  • linux 中文件批量重命名

    千次阅读 2019-06-19 08:42:40
    linux 中文件批量重命名
  • 复制指定目录下excel工作簿中同名工作表,该代码将在相同目录下创建汇总工作簿,各工作簿中同名工作表将被分别复制到汇总工作簿的不同表中(汇总工作簿中各工作表以分工作簿名命名)。 所有要汇总的工作簿在同一个...
  • 如何防止Excel工作表名称被修改

    千次阅读 2020-01-29 14:51:53
    在Excel工作表标签上双击可以修改名称,如果其他工作簿中公式使用了对于此工作表的外部引用,那么工作表名称变化后,这些外部引用经失效,在VBA代码中通过工作表名称引用对象也将出错。利用VBA对象事件代码可以一定...
  • Excel区域重命名

    千次阅读 2009-07-29 15:38:00
    ※选中单个单元格来将工作表上所有公式中的引用更改为名称。2、在“插入”菜单上,指向“名称”,再单击“应用”。 3、在“应用名称”框中,单击一个或多个名称。举个例子:假如你把A1:A4定义为ray在A5有公式 =SUM...
  • 在Excel中修改工作表名称有什么可讲的,在工作表标签上点右键,选择重命名就可以了,恭喜你答对了一半。 另一半呢?除了这个名称外,工作表还有另外一个名称——CodeName,想修改这个名字就没那么简单了。一个...
  • 工作表的名称显示在工作表标签上,除了在相应的功能菜单中可以进行重命名操作外,在工作表标签上双击鼠标也能修改工作表名称。但是一旦工作表名称进行了修改,则后期的引用则会造成很多影响。 下列代码可以保证...
  • 前段时间因工作需要,需要一些文件进行重命名,因为文件有几W,所以靠手动一个个rename是不可能,思考了一下,因为是按规则rename所以可以考虑使用工具或者脚本什么的批量修改! Rename的要求大概是:有2W张照片...
  • Excel文件批量重命名

    千次阅读 多人点赞 2019-03-28 21:49:40
    为了保证数字前的0不被隐藏以及方便下拉填充,前面加了个x,然后进行下拉自动填充。 3. C列1行中输入命令 =SUBSTITUTE(B1,"x","") ,用来去掉x。 4. D列1行输入命令 ="ren "&""""&A1&""""&" "&""""&C1&"""" 5. 在...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 63,886
精华内容 25,554
关键字:

对工作表进行重命名的作用是什么