Question

[VBA]遍历表中所有表单控件，并将控件的文本复制到另一个表中，控件名(checkbox xx）不定

如题，请问可以实现吗？通过VBA编程方法。注意，不是activex控件，是表单控件中的“复选框”。

Answer 1

#用VBA遍历CheckBox#可以先遍历所有shaps,再根据名称判断是否复选框。

Sub 遍历CheckBox()
    Dim shp As Shape, i
    i = 1
    For Each shp In Sheet1.Shapes
        If shp.Name Like "Check Box" & "*" Then
            Sheet1.Cells(i, 1) = shp.Name
            shp.Select
            Sheet1.Cells(i, 2) = Selection.Characters.Text
            i = i + 1
        End If
    Next
End Sub

 

 

-------【如有疑问，可加新浪微博@芐雨】------