Hiện tên Sheet trong 1 cell

[dongducnhiem]

Tôi muốn thể hiện tên sheet trong một cell như sau:
VD: tôi đang sheet hiện hành tên T01, tôi muốn cell A1 thể hiện tên sheet này là T01, và khi thay đổi tên sheet thì cell A1 thay đổi theo. Cảm ơn các bạn.

 

[hoamattroicoi]

Tôi muốn thể hiện tên sheet trong một cell như sau:
VD: tôi đang sheet hiện hành tên T01, tôi muốn cell A1 thể hiện tên sheet này là T01, và khi thay đổi tên sheet thì cell A1 thay đổi theo. Cảm ơn các bạn.

Chắc phải dùng VBA bác ạ,bác thử code này nhé :

Sub changeSheetName()

    Range("A1").Value = ActiveSheet.Name

End Sub

 

[vodoi2x]

Sử dụng phương án công thức sau xem sao

=MID(CELL("filename"), FIND("]",CELL("filename"))+1,256)

Lưu ý file đã Save với một tên nào đó nhé (chứ không phải file mới book1, book2,...)

 

[ndu96081631]

Sử dụng phương án công thức sau xem sao

=MID(CELL("filename"), FIND("]",CELL("filename"))+1,256)

Lưu ý file đã Save với một tên nào đó nhé (chứ không phải file mới book1, book2,...)

Điều kiện cần thiết để hàm này chạy chính xác là:
- File đã được lưu trên ổ đĩa
- Hàm CELL bắt buộc phải có tham số thứ 2
-----------------------
Với công thức của bạn, nếu gõ tại sheet1, xong ta sang sheet2, gõ gì đó vào 1 cell rồi quay lại sheet1, ta sẽ thấy kết quả sai
Sửa lại cho chính xác phải là vầy:

=MID(CELL("filename",A1), FIND("]",CELL("filename",A1))+1,256)

Kết luận: Hãy cẩn thận với hàm CELL

 

[vodoi2x]

Điều kiện cần thiết để hàm này chạy chính xác là:
- File đã được lưu trên ổ đĩa
- Hàm CELL bắt buộc phải có tham số thứ 2
-----------------------
Với công thức của bạn, nếu gõ tại sheet1, xong ta sang sheet2, gõ gì đó vào 1 cell rồi quay lại sheet1, ta sẽ thấy kết quả sai
Sửa lại cho chính xác phải là vầy:

=MID(CELL("filename",A1), FIND("]",CELL("filename",A1))+1,256)

Kết luận: Hãy cẩn thận với hàm CELL

NGười hỏi, nếu dùng chỉ ở 1 sheet, thì vẫn đúng pac ah , không phải dài dòng thế

Dù sao pac cẩn thận vẫn hơn đúng là kinh nghiệm nhiều năm,
thanks

 

[hoamattroicoi]

Sử dụng phương án công thức sau xem sao

=MID(CELL("filename"), FIND("]",CELL("filename"))+1,256)

Lưu ý file đã Save với một tên nào đó nhé (chứ không phải file mới book1, book2,...)

Em save với tên là book2 vẫn chạy mà bác, hiiiiiii, nghĩa là mình chỉ cần lưu file lại với 1 tên xác định đúng không ạ? (Cần phải có thao tác SAVE? )

Công thức của bác hay quá, sao number_chars của hàm MID lại là 256 ạ? Em lấy 255 có được không ạ? Hình như cái đó chỉ cần lớn hơn số ký tự của tên sheet đúng không ạ?

 

[ndu96081631]

Công thức của bác hay quá, sao number_chars của hàm MID lại là 256 ạ? Em lấy 255 có được không ạ? Hình như cái đó chỉ cần lớn hơn số ký tự của tên sheet đúng không ạ?

Chính xác chỉ cần 31 là đủ ---> Vì chẳng ai có thể đặt tên sheet > 31 ký tự
-------------------

NGười hỏi, nếu dùng chỉ ở 1 sheet, thì vẫn đúng pac ah , không phải dài dòng thế
thanks

Đâu có được ---> Bạn đứng ở sheet2, dùng công thức liên kết đến cell A1 của sheet1 nó ra cái gì?

 

[vodoi2x]

Đâu có được ---> Bạn đứng ở sheet2, dùng công thức liên kết đến cell A1 của sheet1 nó ra cái gì?

Thế này thì khác pác ah,
người hỏi đang muốn lấy sheet hiện tại

Đôi khi cầu toàn quá, thành ra tự làm khó mình.

 

[vanle33]

Chắc phải dùng VBA bác ạ,bác thử code này nhé :

Sub changeSheetName()

    Range("A1").Value = ActiveSheet.Name

End Sub

Đây là đổi tên Sheet thì đổi tên ở ô A1
Bạn có cách nào để ra kết quả ngược lại không? Nghĩa là đổi tên ở ô A1 nhấn Enter thì thay đổi tên Sheet
Mà không phải nhấn vào chữ Change

 

[ndu96081631]

Đây là đổi tên Sheet thì đổi tên ở ô A1
Bạn có cách nào để ra kết quả ngược lại không? Nghĩa là đổi tên ở ô A1 nhấn Enter thì thay đổi tên Sheet
Mà không phải nhấn vào chữ Change

Trời ơi, dạng bài này làm cả mấy chục lần rồi (nhớ không lầm là bạn đã từng hỏi và cũng đã được trả lời rồi)
Tìm đi chứ