ẩn hình khi in và rút gọn code

[minhhangg]

Xin mời xem file dùm em. Em cảm ơn trước ah.

 

[ptm0412]

1. Không in Autoshape:
Vào Format Autoshape, tab Property, bỏ chọn Print object

2. Rút gọn code:

Nếu chỉ có 2 sheet chuyển qua chuyển lại:

Sub Macro1()
If ActiveSheet.Name = "Sheet1" Then
    Sheets("Sheet2").Select
Else
    Sheets("Sheet1").Select
End If
End Sub

 

[minhhangg]

1. Không in Autoshape:
Vào Format Autoshape, tab Property, bỏ chọn Print object

2. Rút gọn code:

Nếu chỉ có 2 sheet chuyển qua chuyển lại:

Sub Macro1()
If ActiveSheet.Name = "Sheet1" Then
    Sheets("Sheet2").Select
Else
    Sheets("Sheet1").Select
End If
End Sub

Ví dụ: có nhiều sheet thì sao hé anh em đã thử như sau mà sao chưa được.

Sub Macro1()
If ActiveSheet.Name = "Sheet1" Then
Sheets("Sheet2").Select
Else
Sheets("Sheet1").Select
Else
Sheets("sheet3").Select
End If
End Sub

 

[ndu96081631]

Ví dụ: có nhiều sheet thì sao hé anh em đã thử như sau mà sao chưa được.

Cách đơn giản nhất:
- Bạn gõ tên sheet cần link vào hình vuông kia
- Xong, Assign Macro đến sub này:

Sub GotoSh()
  Sheets(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text).Select
End Sub

Tham khảo thêm bài này
http://www.giaiphapexcel.com/forum/showthread.php?37055-Tạo-nút-nhấn-để-link-đến-các-sheet