dmtdmtbb
Biệt danh: xDelx
- Tham gia
- 24/5/07
- Bài viết
- 306
- Được thích
- 438
Ctrl + Shift + A : duy chuyể qua sheet bên trái
Ctrl + Shift + Z : duy chuyể qua sheet bên phải
Ctrl + Shift + Z : duy chuyể qua sheet bên phải
Mã:
[COLOR=black]Option Explicit[/COLOR]
[B][COLOR=seagreen]'Make by dmtdmtbb[/COLOR][/B]
Dim Shc, i
[COLOR=seagreen]'''''''''''''''''''''''''''''''''''''''''''''''''''''''''[/COLOR]
Sub Move_Right_Sheet()
On Error Resume Next
Shc = ActiveWorkbook.Worksheets.Count
If ActiveSheet.Name = Worksheets(Shc).Name Then
[COLOR=seagreen]'MsgBox "Can't move right", 48, "Msg":[/COLOR]
Exit Sub
End If
For i = 1 To Shc
If ActiveSheet.Name = Worksheets(i).Name Then
Worksheets(i + 1).Select
Exit For
End If
Next i
End Sub
[COLOR=seagreen]''''''''''''''''''''''''''''''''''''''''''''''[/COLOR]
Sub Move_Left_Sheet()
On Error Resume Next
Shc = ActiveWorkbook.Worksheets.Count
If ActiveSheet.Name = Worksheets(1).Name Then
[COLOR=seagreen] 'MsgBox "Can't move left", 48, "Msg"[/COLOR]
Exit Sub
End If
For i = 1 To Shc
If ActiveSheet.Name = Worksheets(i).Name Then
Worksheets(i - 1).Select
Exit For
End If
Next i
End Sub