hoctapphotoshop
Thành viên mới
- Tham gia
- 4/4/18
- Bài viết
- 29
- Được thích
- 3
- Giới tính
- Nam
Sub test1()
Dim i As Long
Dim Ws As Worksheet
For i = 1 To 4
Set Ws = Sheets(ThisWorkbook.VBProject.VBComponents("Sh" & i).Properties("Name").Value)
Next i
End Sub
Sub test2()
Dim i As Long
Dim Ws As Worksheet
For i = 1 To 4
Set Ws = Sheets(ThisWorkbook.VBProject.VBComponents("Sh" & i).Properties("Name").Value)
Sh1.Copy
Next i
End Sub
- Khi em dùng lệnh gán Sheet theo CodeName như Sub test1() thì vẫn chạy bình thường
- Nhưng thêm lệnh copy một Sheet sang book mới thì bị lỗi như Sub tets2()
- Anh chị chỉnh sửa cho em lỗi này với, có cách nào duyệt Sheet theo CodeName không ạ? giải thích lệnh lỗi cho em hiểu với.
Em cám ơn!
Dim i As Long
Dim Ws As Worksheet
For i = 1 To 4
Set Ws = Sheets(ThisWorkbook.VBProject.VBComponents("Sh" & i).Properties("Name").Value)
Next i
End Sub
Sub test2()
Dim i As Long
Dim Ws As Worksheet
For i = 1 To 4
Set Ws = Sheets(ThisWorkbook.VBProject.VBComponents("Sh" & i).Properties("Name").Value)
Sh1.Copy
Next i
End Sub
- Khi em dùng lệnh gán Sheet theo CodeName như Sub test1() thì vẫn chạy bình thường
- Nhưng thêm lệnh copy một Sheet sang book mới thì bị lỗi như Sub tets2()
- Anh chị chỉnh sửa cho em lỗi này với, có cách nào duyệt Sheet theo CodeName không ạ? giải thích lệnh lỗi cho em hiểu với.
Em cám ơn!