[已解决]如何获取复选框所在单元格的位置

design100

因为可能每次表格的行数会有不同,复选框名字也会有不同,
所以只能获取复选框的位置和单元格位置是否一致。
请大神帮忙！谢谢~

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-13 11:23

'窗体复选框
Sub test1()
    Dim x As Shape
    For Each x In Me.Shapes
        If Me.Shapes(x.Name).LinkFormat = 1 Then
            Debug.Print x.Name, x.TopLeftCell.Address
        End If
    Next
End Sub


'AcitveX复选框
Sub test2()
    Dim x As OLEObject
    For Each x In Me.OLEObjects
        If x.Object.Value Then
            Debug.Print x.Name, x.TopLeftCell.Address
        End If
    Next
End Sub

复选框.rar (13.38 KB, 下载次数: 5)

2016-5-13 11:23 上传

点击文件名下载附件

跳转到最佳答案楼层

design100

其实就是想把 勾先的单元格英文翻成中文，但是每次人家给的复选框和单元格位置会有不同。
所以就想请教如何获取复选框所在单元格的位置

好运来5599

design100 发表于 2016-5-12 16:41
其实就是想把 勾先的单元格英文翻成中文，但是每次人家给的复选框和单元格位置会有不同。
所以就想请教如何 ...

见图示

design100

谢回复，不是这个意思！

文档是人家给的，不是单元格链接。

我是要用VBA程序获取复选框的位置。。

爱疯

用VBA程序获取复选框的位置，是为了什么？

design100

爱疯 发表于 2016-5-13 09:30
用VBA程序获取复选框的位置，是为了什么？

难道就那么表达不清楚吗？

因为我的客人每次给我一大堆规格书，里面复选框勾起的我要翻译出来，但是他的规格书也分了好几个版本经常复选框所在的单元格位置不同。

所以我想写个程序自动获取复选框勾起的所在单元格。。。

爱疯

'窗体复选框
Sub test1()
    Dim x As Shape
    For Each x In Me.Shapes
        If Me.Shapes(x.Name).LinkFormat = 1 Then
            Debug.Print x.Name, x.TopLeftCell.Address
        End If
    Next
End Sub


'AcitveX复选框
Sub test2()
    Dim x As OLEObject
    For Each x In Me.OLEObjects
        If x.Object.Value Then
            Debug.Print x.Name, x.TopLeftCell.Address
        End If
    Next
End Sub

复选框.rar (13.38 KB, 下载次数: 5)

2016-5-13 11:23 上传

点击文件名下载附件

design100

爱疯 发表于 2016-5-13 11:23
'窗体复选框
Sub test1()
    Dim x As Shape

谢谢！！复选框的值可以获取吗？

爱疯

要看是哪种复选框，可用7楼 IF语句的条件表达式 来获取。

design100

爱疯 发表于 2016-5-13 14:55
要看是哪种复选框，可用7楼 IF语句的条件表达式 来获取。

这句表达是错的