Tên sheet hiện hành

[diepmyduong]

mình mún code gán tên sheet hiện hành vào 1 chuỗi sheetname thì nên code như thế nào vậy máy chú

 

[Hai Lúa Miền Tây]

mình mún code gán tên sheet hiện hành vào 1 chuỗi sheetname thì nên code như thế nào vậy máy chú

Không biết bạn muốn lấy cái gì để gán vào tên sheet? Sheet code hay sheet name?

Sub test()
MsgBox "Ten sheet hien hanh la: " & ActiveSheet.Name & vbNewLine & _
        "Ten sheet code hien hanh la: " & ActiveSheet.CodeName
End Sub

 

[Hai Lúa Miền Tây]

Gửi luôn bạn cách gán tên sheet và sheet code luôn, tùy biến mà sử dụng.

Sub test()
'Lay ten sheet hien hanh va sheet code hien hanh
MsgBox "Ten sheet hien hanh la: " & ActiveSheet.Name & vbNewLine & _
        "Ten sheet code hien hanh la: " & ActiveSheet.CodeName


        ActiveSheet.Name = "HLMT" 'Doi ten sheet hien hanh thanh ten sheet HLMT
        ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).Name = "HLMT1" 'Doi ten sheet code hien hanh thanh HLMT1
End Sub