ongtrungducmx25
Thành viên gạo cội
- Tham gia
- 5/2/07
- Bài viết
- 2,077
- Được thích
- 1,987
- Nghề nghiệp
- GV
Bác ongtrungducmx25 đã hiểu lầm về việc lấy giá trị của 1 ô với 1 ô ở Sheet khác rồi!mình dùng hàm này để copy từ sheet1 sang sheet2 thì mình muốn lấy dữ liệu từ A110, thì công thức =sheet1!A1 kéo thả =sheet1!D10
cho em hỏi là khi em có 9 hoặc 10 trang có tên khác nhau,nay em muốn đổi tên 9 hoặc 10 trang đó bằng VBA thì viết code như thế nào! nhỉ
Cách đổi tên sheet
Xin cho hỏi có cách nào đổI tên các sheet là: mình có 10 trang mang tên, tam1,tam2,……tam10, mình muốn tạo một nút lệnh để đổI tên các sheet trên thành bang01,bang02,……………bang10
hoặc mình có 5 sheet: sheet1,…,sheet5 thì đổi tên thành mau01,……,mau05
Public Sub DoiTenSheet()
Dim i As Byte
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Name = "bang" & Format(i, "00")
Next i
End Sub
Public Sub DoiTenSheetTam()
Dim i As Byte
For i = 1 To ActiveWorkbook.Sheets.Count
If Left(Sheets(i).Name, 3) = "tam" Then _
Sheets(i).Name = "bang" & Right(Sheets(i).Name, Len(Sheets(i).Name) - 3)
Next i
End Sub