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.

 

[Romantic92]

Tôi có 1 bảng tính mỗi ngày là 1 sheet ngày sau nối với ngày trước có cách nào khi mình copy sheet cuối sang làm ngày mới mà công thức tự nhảy sang sheet liền kề sau nó không ạ?

 

[Hoàng Tuấn 868]

Tôi có 1 bảng tính mỗi ngày là 1 sheet ngày sau nối với ngày trước có cách nào khi mình copy sheet cuối sang làm ngày mới mà công thức tự nhảy sang sheet liền kề sau nó không ạ?

Câu trả lời là có, nhưng không liên quan đến nội dung của chủ đề này cho nên hãy lập chủ đề mới để hỏi.

 

[VetMini]

Câu trả lời là có, nhưng không liên quan đến nội dung của chủ đề này cho nên hãy lập chủ đề mới để hỏi.

Làm quái gì có. Nó đã là "Sheet cuối" rồi thì "Sheet liền kề sau nó" là cái gì?

 

[Romantic92]

Làm quái gì có. Nó đã là "Sheet cuối" rồi thì "Sheet liền kề sau nó" là cái gì?

Lộn liền kề trước nó

 

[Hoàng Tuấn 868]

Lộn liền kề trước nó

Câu phản hồi chỏng gọng thế này thì ai muốn giúp nữa chứ.

 

[Romantic92]

Câu phản hồi chỏng gọng thế này thì ai muốn giúp nữa chứ.

@@ bác nghiêm túc quá

Bài đã được tự động gộp: 3/11/24

Câu phản hồi chỏng gọng thế này thì ai muốn giúp nữa chứ.

Thông cảm cho kẻ ít học đi bác!!

 

[VetMini]

Câu phản hồi chỏng gọng thế này thì ai muốn giúp nữa chứ.

Hổng phải chỏng gọng. Người ta chọc tôi thôi. (thử nói lái hai từ đầu)

 

[UltraExcel]

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.

hình như thứ tự các sheets theo thứ tự trong danh sách Sheets. bạn theo thứ tự Sheets(i) xem .