Trợ giúp di chuyển Button trong sheet

GTK-PM

Thành viên thường trực
Tham gia ngày
10 Tháng mười một 2013
Bài viết
305
Được thích
12
Điểm
385
Tuổi
29
Mã:
Sub DONGVAO()
' DONGVAO Macro
    Rows("2:11").Select
    Selection.EntireRow.Hidden = True
    Columns("A:R").Select
    Selection.EntireColumn.Hidden = True
End Sub
Sub MORA()
' MORA Macro
    Rows("2:11").Select
    Selection.EntireRow.Hidden = False
    Columns("A:R").Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
End Sub
Em đang sử dụng đoạn code trên trong button ở ô S1.
Em muốn nhờ anh chị giúp đỡ hoàn thiện, khi em chạy Sub MORA() thì button di chuyển từ S1 về A1, ngược lại nếu chạy Sub DONGVAO() thì chạy từ A1 đến S1.
 

File đính kèm

Top Bottom