Tìm số thứ tự của sheet trong workbook có nhiều sheets

[olegtran]

Tôi có workbook với nhiều sheets tên khác nhau. sheetA1, sheetA2, ... sheetAn.
Tôi muốn viết code chuyển từ sheet này sang sheet trước (hay sau)

Sub chuyen_sheet()
Dim i as interger
i = Vị trí của sheet hiện tại
Worksheets(i + 1).Select
End Sub

Làm cách nào để đánh số tìm i? Cảm ơn các bạn nhiều.

 

[Let'GâuGâu]

Tôi có workbook với nhiều sheets tên khác nhau. sheetA1, sheetA2, ... sheetAn.
Tôi muốn viết code chuyển từ sheet này sang sheet trước (hay sau)

Sub chuyen_sheet()
Dim i as interger
i = Vị trí của sheet hiện tại
Worksheets(i + 1).Select
End Sub

Làm cách nào để đánh số tìm i? Cảm ơn các bạn nhiều.

bạn thử kiểm tra xem

Sub tt()
Dim ws As Worksheet
For Each ws In Worksheets
MsgBox ws.Name
MsgBox ws.Index
Next
End Sub

 

[olegtran]

bạn thử kiểm tra xem

Sub tt()
Dim ws As Worksheet
For Each ws In Worksheets
MsgBox ws.Name
MsgBox ws.Index
Next
End Sub

Cảm ơn LetGauGau, Bạn đã đoán gần đúng ý tôi, nhưng cái tôi muốn hơi khác một tý. Tôi đã nói rõ hơn trong file đính kèm.

 

[anmepu]

[QUOTETôi có workbook với nhiều sheets tên khác nhau. sheetA1, sheetA2, ... sheetAn.
Tôi muốn viết code chuyển từ sheet này sang sheet trước (hay sau)][/QUOTE]


tôi Làm tuy dở nhưng cứ đưa lên bạn xem coi có được không

 

[anmepu]

Tôi có workbook với nhiều sheets tên khác nhau. sheetA1, sheetA2, ... sheetAn.
Tôi muốn viết code chuyển từ sheet này sang sheet trước (hay sau)

tôi Làm tuy dở nhưng cứ đưa lên bạn xem coi có được không

 

[OverAC]

2 câu này có ý bạn không:

ActiveSheet.Next.Activate

ActiveSheet.Previous.Activate

 

[0905744404]

2 câu này có ý bạn không:

ActiveSheet.Next.Activate

ActiveSheet.Previous.Activate

Quá tuyệt vời
Cám ơn bác nhiều!!!

 

[olegtran]

2 câu này có ý bạn không:

ActiveSheet.Next.Activate

ActiveSheet.Previous.Activate

Cảm ơn bạn rất nhiều, mình đã dựa vào để làm được, chỉ thêm cái bẫy ở sheet đầu, cuối là OK.

 

[olegtran]

tôi Làm tuy dở nhưng cứ đưa lên bạn xem coi có được không

Cảm ơn bạn, Bạn đã làm đúng ý mình rồi nhưng cách của bạn trong trường hợp này hơi bất tiện, nhưng cách làm lại giúp mình hiểu thêm kiến thức mới rất hay để làm cái khác.