Excel VBA自动重命名复选框

Question

我目前正在处理几张带有大量复选框的Excel工作表。 当你输入一个复选框时，它的名称为CheckBox1，CheckBox2等，但它可以自动重命名它们吗？ 在我的代码中，我现在必须将所有复选框重命名为Rij11_1，Rij11_2等。

如果可以自动逐行完成，那将节省大量时间。

有人知道如何做到这一点吗？

非常感谢！

此致 马克

Answer 1

假设复选框是薄片用代号Sheet 1上

Sub test() 

Dim obj As OLEObject, ChkBoxRow as long 

ChkBoxRow = 1 'Only change checkboxes with topleft corner in row 1 

With Sheet1 
'Loop AX controls 
For Each obj In .OLEObjects 
    'Check for checkbox only 
    If TypeName(obj.Object) = "CheckBox" Then 

     'Examples to identify location (as suggested by Dick Kusleika) 
     'ChkBoxRow = obj.TopLeftCell.Row 
     'ChkBoxCol = obj.TopLeftCell.Column 
     'ChkBoxAdd = obj.TopLeftCell.Address 

     'ChkBoxRow = obj.BottomRightCell.Row 
     'ChkBoxCol = obj.BottomRightCell.Column 
     'ChkBoxAdd = obj.BottomRightCell.Address 
     'etc 

     if obj.TopLeftCell.Row = ChkBoxRow then 
      obj.Name = "Rij11_" & Right(obj.Name, Len(obj.Name) - 8) 
     end if 

    End If 
Next obj 
End With 
End Sub 

我已经更新表示一个很好的方法Dick Kusleika指出一天以定位复选框驻留。你可以测试If obj.TopLeftCell.Row = 1 Then等