Excel vba 重命名复选框

Question

我有一个包含许多复选框的工作表。 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 继续，导致行中的名称重复。

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

非常感谢!

亲切的问候，
马克

Answer 1

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