[已解决]excel 如何获取按钮所在行？

takyo

请问，有这样的一系列按钮，可不可以每个按钮都使用同一个宏方法，来获取所点按钮所在的行号？

最佳答案

月排行榜 / 总排行榜

oobird

2012-6-28 22:00

Book1.rar (7.36 KB, 下载次数: 159)

2012-6-28 22:00 上传

点击文件名下载附件

跳转到最佳答案楼层

Select

理论上存在这样的情况：如果按钮恰好在两个行号中间，咋办呀？

takyo

呵呵，是啊。那可以设计个算法，是更上一点，还是更下一点。如果完全相同，可以人为定义取上面的行号。

oobird

r = CommandButton1.TopLeftCell.Row
在两个行号中间会取上面的行号

oobird

Book1.rar (7.36 KB, 下载次数: 159)

2012-6-28 22:00 上传

点击文件名下载附件

Select

1. 
   
2. Sub ShapeClick1()
   
3.     Dim h As Long, t As Long
   
4.     With Sheets(1).Shapes(1)
   
5.         h = .Height / 2    '按钮高度的一半
   
6.         t = .Top    '按钮的高度
   
7.     End With
   
8.     '按默认行高来算的话
   
9.     '假如判断方法是：h+t=按钮中心的位置
   
10.     '按钮中心四舍五入后，最接近的行号是
    
11.     MsgBox Round((h + t) / 13.5)
    
12. End Sub
    
13. 
    
14. Sub ShapeClick2()
    
15.     Dim h As Long, t As Long
    
16.     With Sheets(1).Shapes(2)
    
17.         h = .Height / 2    '按钮高度的一半
    
18.         t = .Top    '按钮的高度
    
19.     End With
    
20.     '按默认行高来算的话
    
21.     '假如判断方法是：h+t=按钮中心的位置
    
22.     '按钮中心四舍五入后，最接近的行号是
    
23.     MsgBox Round((h + t) / 13.5)
    
24. End Sub
    

复制代码

ShapeClick.rar (9.22 KB, 下载次数: 5)

2012-6-28 22:35 上传

点击文件名下载附件

窗体按钮没事件，不好弄啊 ... 也想不出过渡办法（[已解决]单选框边框颜色 设置； ）
这应该是没办法的办法吧，如果有更多按钮，复制过程，改下：
Sub ShapeClick3()
...
With Sheets(1).Shapes(3)
...


唉，很别扭

Select

oobird 发表于 2012-6-28 22:00

msoFormControl、caller、TopLeftCell，好东西刚好全都用上了 ... {:161:}
学习学习{:091:}

takyo

多谢各位。
百度到了TopLeftCell，但是不知道怎么取Button的ID，oobird的方法不错
关键就是这句ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row

takyo

Select 发表于 2012-6-28 22:39
窗体按钮没事件，不好弄啊 ... 也想不出过渡办法（[已解决]单选框边框颜色 设置； ）
这应该是没办法的 ...

呵呵，我也就会一个按钮弄一个宏，也是觉得别扭啊……所以来请教一下

takyo

问题结了，再次感谢