Dim shp As Shape
For Each shp In Shapes
irow1 = shp.TopLeftCell.Row '获的shape对象的左上角所在单元格的行号
icol1 = shp.TopLeftCell.Column '获的shape对象的左上角所在单元格的的列号
irow2 = shp.BottomRightCell.Row '获得shape对象的右下角所在单元格的行号
icol2 = shp.BottomRightCell.Column '获得shape对象的右下角所在单元格的列号
Cells(irow1, icol2 + 1) = shp.Name '把shape对象的名字写入shape对象右边一列
Cells(irow1, icol2 + 2) = Shapes(Cells(irow1, icol2 + 1).Value).TopLeftCell.Row '通过引用shape对象的名字,获得shape左上角所在的行号,并写入shape对象右边第二列
Next
End Sub
我在excel中,插入了一个按钮控件,我想用VBA代码来获取该控件所在单元...
Sub aa()Dim shp As ShapeFor Each shp In Shapes irow1 = shp.TopLeftCell.Row '获的shape对象的左上角所在单元格的行号 icol1 = shp.TopLeftCell.Column '获的shape对象的左上角所在单元格的的列号 irow2 = shp.BottomRightCell.Row '获得shape对象的右下角所在单元格的...
excel 设置一个命令按钮 用VBA实现单元格的自动跳转!
do while cells(x,1)<>""cells(x,1).select x=x+1 loop end sub
excel中怎么使用VBA插入一个按钮 使其点击按钮实现在某单元格输入的功能...
1.开发工具，插入，按钮 2.拖动绘制按钮，在弹框中选择，新建 3.在新界面中输入如下代码 4.这样，每次点击按钮，就会在选中单元格中输入内容了
在excel中如何使用VBA插入一个按钮,使其点击按钮实现在表格中单元格输入...
Sub 按钮2()Cells(Range("a65536").End(xlUp).Row + 1, 1) = 2 End Sub 插入一个按钮控件，把下面的代码贴进去，注意你的button的名字替换掉Private Sub CommandButton1_Click()中的CommandButton1 Option Explicit Public buttonClickCount As Integer Private Sub CommandButton1_Click()buttonCl...
急求:如何获得excel中命令按钮所在单元格位置
VBA中赋值直接使用=（赋值符号）Excel版本参考：2010 假设将ActiveSheet.Shapes("Button 1").TopLeftCell.Address复制给变量 ADD ADD=ActiveSheet.Shapes("Button 1").TopLeftCell.Address 注：如果被赋值的是对象，则需要SET辅助，如，Set d=createobject("scripting.dictionary")...
excel vba activex控件中的列表框控件click事件如何获取单击了哪行
控件属性里本来就有一个设置，把返回的行号关联到一个单元格里。如下图设置即可：
excel设置一个按钮,求一个编程VBA代码
sub rndd() j=0 do while j=0 for i=1 to 32 range("AH" & I).value=int(2*rnd) j=range("AH" & I).value if j=0 then exit for next i loop range("AH33")=j end sub '将以上代码复制给按钮即可 ...
excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数?
在对应工作表中粘贴以下代码（不要新建模块！！！）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If (Target.Column >= 2 Or Target.Column <= 8) And Target.Row = 1 Then '选定B1:H1时 Range("A1") = Target.Row 'A1显示选定的行数 Range("A2") = Target...
excel 插入一个按钮,按一下能让其返回到指定单元格
在主菜单点击"视图"，"工具栏"，"控件工具箱"后会跳出一个控件工具选择框。选择"命令按钮"后，鼠标会变为细的十字标。在工作表范围内按着鼠标左键，然后拉动就会出现控件按钮就放开鼠标左键。按钮键就完成了，把鼠标移到按钮键双击鼠标左键就进入VBA编辑器。再把以下代码拷贝到编辑器中。Private Sub...
在excel中如何使用VBA插入一个按钮,使其点击按钮实现在表格中单元格输入...
永远都是弄到 查询表的 E1?Sub AA()[AA1] = [AA1] + 1 MsgBox "第：" & [AA1] & "次"Sheets("查询").[E1] = Cells([D1], "a")End Sub
