Nhờ các bạn giúp đỡ - lấy vị trí dòng cột (range) của commandbutton (1 người xem)

[Kiet072]

Chào các bạn,

tôi có 1 file excel, trên đó có các commandbutton, tôi muốn lấy vị trí của commandbutton này nó thuộc dòng mấy, cột mấy

nhờ các bạn giúp đỡ

cám ơn

 

[ndu96081631]

Chào các bạn,

tôi có 1 file excel, trên đó có các commandbutton, tôi muốn lấy vị trí của commandbutton này nó thuộc dòng mấy, cột mấy

nhờ các bạn giúp đỡ

cám ơn

Chỉ có thể dùng VBA mà thôi.. code này nhé:

Function ShapeRangeAddress(ByVal shtName As String, ByVal shpName As String) As String
  Dim shp As Shape
  On Error Resume Next
  Application.Volatile
  With Sheets(shtName)
    Set shp = .Shapes(shpName)
    ShapeRangeAddress = Range(shp.TopLeftCell, shp.BottomRightCell).Address(0, 0)
  End With
End Function

Cách dùng:
- Đầu tiên chèn code trên vào 1 module
- Xong, ra ngoài bảng tính, gõ vào cell nào đó công thức =ShapeRangeAddress("Sheet1","CommandButton1")
- Công thức trên có nghĩa là lấy địa cell của CommandButton1 nằm trên sheet1
- Công thức tương tự cho các CommandButton khác
-----------------
Hy vọng bạn biết cách dùng

 

[tintam7251]

Lấy chỉ số dòng và cột của commandbutton như sau:
+ Lấy điểm trên, bên trái:
dong = CommandButton1.TopLeftCell.Row
cot = CommandButton1.TopLeftCell.Column
+Lấy điểm dưới, bên phải:
dong = CommandButton1.BottomRightCell.Row
cot = CommandButton1.BottomRightCell.Column