Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Sub test_namesheet() Sub test_namesheet() Dim i As Integer For i = 1 To

TrinhXuanTuyen

Sub test_namesheet()
Dim i As Integer
For i = 1 To Sheets(Sheets.Count)
ThisWorkbook.Sheets(i).Activate
ActiveSheet.Name = "sheet" & i
Next i
End Sub

mình làm code thây đổi tên sheet mà sao k được ạ

TrinhXuanTuyen

Son Nhat Doan help với

SonDoan

Sub test()
For i = 1 To Worksheets.Count
Sheets(i).Name = "sheet" & i
Next i
End Sub

SonDoan

Lỗi nặng ở For i = 1 to Sheets ..... I là Integer, còn Sheets là Application.Workbook.Worksheet mà

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- KẾ TOÁN HÀNH CHÍNH SỰ NGHIỆP học ở đâu tại Hồ Chí Minh? Đào tạo chứng chỉ KẾ TOÁN VIÊN Trường Bồi dưỡng Cán bộ Tài chính-BTC ĐÀO TẠO KẾ TOÁN TRƯỞNG HÀNH CHÍNH SỰ NGHIỆP BỘ TÀI CHÍNH TPHCM Chuyên mục tặng phần mềm kế toán excel cho dân kế toán miễn phí mới nhất năm Mình có cái máy bị lỗi dấu chấm "." ở bên phím Numlock, khi chỉnh hệ thống Hỏi về cách chọn giá trị nhưng chỉ hiển thị thông tin nằm trong bảng đã chọn Tạo Hộp Thoại Search Thông tin Trông Ô Lấy nội dung của dòng bên trên ô selected Xem thêm