关键修改点 #

• 将每个新建复选框存入变量，直接设置其标题为对应工作表名称
• 明确指定在第一个工作表中生成复选框，避免依赖ActiveSheet的不确定性
• 循环从第3个工作表开始，自动跳过前两个工作表
• 移除冗余的Select操作，提升代码运行效率

Sub GetWorkSheetNamesWithCheckBoxes()
    Dim wsTarget As Worksheet
    Dim chkBox As CheckBox
    Dim i As Integer
    Dim rowNum As Integer
    
    ' 指定操作的目标工作表为工作簿的第一个工作表
    Set wsTarget = ThisWorkbook.Sheets(1)
    rowNum = 2 ' 从第2行开始生成内容，可根据需求调整起始行
    
    ' 从第3个工作表开始循环，跳过前两个工作表
    For i = 3 To ThisWorkbook.Sheets.Count
        ' 创建复选框并赋值给变量
        Set chkBox = wsTarget.CheckBoxes.Add( _
            wsTarget.Cells(rowNum, "A").Left, _
            wsTarget.Cells(rowNum, "A").Top, _
            120, 16) ' 加宽复选框宽度，适配较长的工作表名称
        
        ' 设置复选框标题为对应工作表的名称
        chkBox.Caption = ThisWorkbook.Sheets(i).Name
        
        rowNum = rowNum + 1 ' 行号递增，准备生成下一个复选框
    Next i
End Sub

代码说明 #

• wsTarget变量固定指向第一个工作表，确保操作对象不会因当前活动表变化而出错
• chkBox变量存储每个新建复选框，直接通过变量设置标题属性，逻辑更清晰
• 调整复选框宽度至120，避免长工作表名称被截断
• 用rowNum控制生成位置，比原代码的i+1更灵活，方便修改起始行位置

内容的提问来源于stack exchange，提问作者B19