2

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

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

非常感谢！

亲切的问候，马克

4

2 回答 2

1

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

于 2011-09-23T16:03:33.673 回答
0

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

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

其中 8 是“CheckBox”的长度。

于 2011-05-23T15:06:49.523 回答