Làm sao để chọn Sheet CodeName trong vòng lặp for.

[salam]

Các bác cho em hỏi làm sao để chọn sheet CodeName trong vòng lặp
VD:
For i = 1 to 10
làm sao gán biến i cho sheet1 -> Sheet10 = Sheets(i).name là CodeName
không phải tên trong bảng tính.
Cám ơn các bác.

 

[TranThanhPhong]

Ý bạn hỏi có phải giống bài này không? Nếu không giống thì bạn mô tả lại kỹ chút yêu cầu của mình nhà!

http://www.giaiphapexcel.com/forum/showthread.php?t=5048

TP.

 

[Duong_VBA]

Thử cái này là biết cách đấy!
Function Danh_STT()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim i As Long
Set VBProj = ActiveWorkbook.VBProject
For i = 1 To VBProj.VBComponents.Count
Debug.Print VBProj.VBComponents(i).Name
Debug.Print VBProj.VBComponents(i).Type
Next
End Function

 

[anhtuan1066]

Các bác cho em hỏi làm sao để chọn sheet CodeName trong vòng lặp
VD:
For i = 1 to 10
làm sao gán biến i cho sheet1 -> Sheet10 = Sheets(i).name là CodeName
không phải tên trong bảng tính.
Cám ơn các bác.

Cái này đã giãi quyết rồi mà bạn... Topic đỗi tên sheet ấy...
Bạn đặt tên Shc = Sheets(i).CodeName và Sc = Sheets.Count rồi chạy vòng lập FOR For i = 1 to Sc
Vậy:
khi i = 1 ---> Sheets(i).CodeName = Sheet1
khi i = 2 ---> Sheets(i).CodeName = Sheet2
...............
khi i = Sc ---> Sheets(i).CodeName = Sheet cuối cùng
Thứ tự theo CodeName đấy chứ
ANH TUẤN