Excel vba 重命名复选框答案

【问题标题】：Excel vba Renaming checkboxesExcel vba 重命名复选框
【发布时间】：2011-08-31 03:56:29
【问题描述】：

我有一个包含许多复选框的工作表。 Excel 自动将它们命名为 CheckBox1、CheckBox2 等...但是，对于我的文档，我需要将它们全部重命名为 Rij11_1、Rij11_2 等（Rij11 是第 11 行，_1 是该行中的第一个复选框，依此类推） . 重要的是每行的重命名都从 _1 开始。

Stackoverflow 成员 Osknows 和 Dave DuPlantis 已经在这方面帮助了我（非常感谢您的帮助），代码如下：

Sub test()  
    Dim obj As OLEObject, ChkBoxRow as long  
    ChkBoxRow = 11   
    With Worksteets("Storia") 
    For Each obj In .OLEObjects     
    If TypeName(obj.Object) = "CheckBox" Then          
        if obj.TopLeftCell.Row = ChkBoxRow then            
            obj.Name = "Rij11_" & Right(obj.Name, 1)         
        end if      
    End If 
    Next obj
    End With
End Sub

但是，每行上第一个重命名的复选框不是从 1 开始（通常是从 7 开始，出于某种我无法理解的原因），如果一行中有超过 10 个复选框，编号不会超过 10 . _9 之后，我得到 _0 而不是 _10，然后，在 _0 之后，它再次以 _1 继续，导致行中的名称重复。

有人可以帮我解决这个重新编号的问题吗？

非常感谢！

亲切的问候，马克

【问题讨论】：

标签： excel vba checkbox renaming

【解决方案1】：

这是摆脱这些问题的简单方法。突出显示要删除复选框和相关文本的列或单元格。然后使用 CTRL+C 剪切它们，然后移动到不同的工作表中，粘贴它们。（此方法是假设您要删除一列复选框但保留另一列，或删除随机复选框）。现在按 F5，然后按 Special，然后按 Objects（在您粘贴要删除的工作表上）它们都将被选中，现在只需剪切它们，完成！ :)

【讨论】：

【解决方案2】：

问题在于内部 If 语句中的 Right(obj.Name, 1)。重命名只会将旧对象名称的最右边的字符粘贴到新名称的末尾。尝试将其替换为以下内容：

Right(obj.Name, Len(obj.Name) - 8)

其中 8 是“CheckBox”的长度。

【讨论】：