AlanEvol
Thành viên mới
- Tham gia
- 19/8/21
- Bài viết
- 23
- Được thích
- 3
Em muốn mỗi lần mình ScrollRow hay ScrollColumn thì shape cố định trên vị trí của màn hình (so với mình nhìn) hay shape move theo mình khi mình scroll ạ.
Em có tham khảo được code này nhưng em chạy nó không hoạt động. Mong mọi người chỉ giáo
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myShape As Shape
Set myShape = Me.Shapes("X")
With Me.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)
myShape.Top = .Top
myShape.Left = .Left
End With
End Sub
Bài đã được tự động gộp:
Em có tham khảo được code này nhưng em chạy nó không hoạt động. Mong mọi người chỉ giáo
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myShape As Shape
Set myShape = Me.Shapes("X")
With Me.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)
myShape.Top = .Top
myShape.Left = .Left
End With
End Sub
Lần chỉnh sửa cuối: