Hàm xác định tên sheet
- Thread starter USB1394
- Ngày gửi
- Tham gia
- 18/3/08
- Bài viết
- 8,309
- Được thích
- 15,867
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Trong EXCEL , có Sheet1,Sheet2, . . . , sao đó mình đổi tên Sheet1 thành BCTC . Cho mình hỏi có hàm nào trả về tên sheet ko?
=TenHam(sheet1) cho kQ là : BCTC
Xin cám ơn
Bạn thử dùng hàm sau:
=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))
- Tham gia
- 18/3/08
- Bài viết
- 8,309
- Được thích
- 15,867
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Hàm trên vẫn ra kết quả anh à, thế nhưng khi mình sang sheet khác lấy tên sheet của sheet hiện thời thì khi trở về sheet cũ thì thấy nó hiện tên sheet của sheet mình lấy tên trước đó.
Thôi thì dùng VBA lấy cho nó lẹ khỏi đau đầu
To: @USB1394
Bạn chép đoạn sau vào Module nhé.
Mã:
Function TenSheet()
TenSheet = ActiveSheet.Name
End FunctionXong trên bấc kì cell nào và trên sheet nào bạn gõ
=TenSheet()
Là xong
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Đó là vì bạn dùng hàm CELL chưa đúng, hay nói đúng hơn là thiếu 1 tham số
Cứ thế này thì chắc ăn được: CELL("filename",INDIRECT("A1"))
sealand
Thành viên gạo cội
- Tham gia
- 16/5/08
- Bài viết
- 4,883
- Được thích
- 7,688
- Giới tính
- Nam
- Nghề nghiệp
- Kế Toán
Các bạn đọc không ky câu hỏi rồi. Khởi điểm Excel có sheet1, sheet2...Khi sử dụng đổi thành tên mới, giờ phải tìm sheet1 là sheet với tên mới nào
Với điều kiện không có thay đổi CodeName thì có thể dùng hàm sau, nếu không thì hết cách
PHP:
Function ShName(Ten As String) As String
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
If sh.CodeName = Ten Then ShName = sh.Name
Next
If ShName = "" Then ShName = Ten & " :-Khong ton tai"
End Function
Lần chỉnh sửa cuối:
USB1394
Thành viên hoạt động
- Tham gia
- 20/12/08
- Bài viết
- 173
- Được thích
- 12
- Nghề nghiệp
- Lính triều đình
VĐ bạn sealand phân tích rất chính xác : Khởi điểm Excel có sheet1, sheet2...Khi sử dụng đổi thành tên mới, giờ phải tìm sheet1 là sheet với tên mới nào
Bài gởi của bạn rất hay !!!
bạn sealand ơi , bạn có thể làm cho hàm ShName tự động cập nhật lại khi mình thay đổi tên sheet ko ?Xin cám ơn các bạn đã quan tâm và giúp đỡ
Lần chỉnh sửa cuối:
Mình áp dụng theo cách này của bạn, nhưng gặp phải một vấn đề là khi đổi tên sheet đó, thì hàm đó không tự động tính lại mà lại phải đưa con trỏ vào ô đó rồi nhấn F2 xong nhấn Enter nó mới cập nhật tên mới
anhtuan1066
Thành viên gạo cội
- Tham gia
- 10/3/07
- Bài viết
- 5,802
- Được thích
- 6,912
Hàm này thiếu nhiều!
1> Phải thêm Application.Volatile vào đầu code để nó tự cập nhật
PHP:
Function TenSheet()
Application.Volatile
TenSheet = ActiveSheet.Name
End Function- Giả sử tôi gõ hàm tại cell A1 của sheet 1
- Xong, tôi copy cell A1 này và paste vào cell A1 của sheet 2
- Ta thấy kết quả tại sheet2 ra chính xác
- Thế nhưng khi quay lại shéet1 thì thấy kết quả... tầm bậy
Theo tôi phải thế này mới ổn
PHP:
Function TenSheet()
Application.Volatile
TenSheet = Application.ThisCell.Parent.Name
End Function- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Cũng chẳng khó hiễu gì lắm:
- Application.Votalite là để hàm tự cập nhật khi có thay đổi
- Application.ThisCell chính là cell mà ta đang gõ công thức
- Parent là.. cha mẹ, tức là 1 cái gì đó trên cấp với cái trước nó ---> Parent của CELL cũng có nghĩa là Sheet chứa cell ấy
- Application.ThisCell.Parent là sheet chứa cell mà ta đang gõ công thức
Vậy
- Application.ThisCell.Parent.Name chính là tên sheet mà ta cần tìm
Thế thôi
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Trước tiên xin hỏi: SHEET KIA là sheet nào? Phải có gì đó để làm chuẩn chứ
Ví dụ thế này thì được:
- Lấy tên sheet đứng bên phải của sheet hiện hành
- Lấy tên sheet đúng bên trái của sheet hiện hành
- Lấy tên sheet đầu tiên
- Lấy tên sheet cuối cùng
vân vân...
Còn bạn nói SHEET KIA có nghĩa là 1 sheet bất kỳ ---> Vậy là sheet nào đây? Nếu đã biết trước sheet ấy là sheet nào rồi thì cần quái gì phải công thức hay code?
Xin lỗi, vì mình đã hỏi không cụ thể.
Yêu cầu của mình là từ sheet hiện tại đọc 1 tên sheet cách đó 2 hoặc 3 sheet. Trong quá trình sử dụng người dùng có thể đổi tên sheet đó mà công thức vẫn nhận biết được.
Ý mình muốn làm sao mà tạo được công thức dạng TenSheet(sheet3) với tham số sheet3 là sheet cần đọc tên và có thể đổi tên trong tương lai.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Xem lại bài #5 của anh sealand!
Tuy nhiên không chắc chính xác hoàn toàn vì SheetCodeName không phải lúc nào cũng trùng với tên sheet (có đôi khi SheetCodeName là "Sheet1" nhưng tên sheet ngoài bảng tính lại là "Sheet2")
Cách của sealand thì nó không cập nhật được khi đổi tên sheet. Thôi mình dùng theo cách của bạn vậy, chỉ tiếc là nó chỉ đọc được tên sheet hiện hành.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Đã nói muốn tự cập nhật thì phải cho Application.Volatile vào đầu code cơ mà
Sửa code anh sealand thành vầy:
PHP:
Function ShName(Ten As String) As String
Dim sh As Worksheet
Application.Volatile
For Each sh In ThisWorkbook.Sheets
If sh.CodeName = Ten Then ShName = sh.Name
Next
If ShName = "" Then ShName = Ten & " :-Khong ton tai"
End Function- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Muốn nó không phân biệt HOA thường thì thêm UCase vào:
PHP:
Function ShName(Ten As String) As String
Dim sh As Worksheet
Application.Volatile
For Each sh In ThisWorkbook.Sheets
If UCase(sh.CodeName) = UCase(Ten) Then ShName = sh.Name
Next
If ShName = "" Then ShName = Ten & " :-Khong ton tai"
End Function
vuminh1601
Thành viên thường trực
- Tham gia
- 7/9/07
- Bài viết
- 336
- Được thích
- 354
- Nghề nghiệp
- Kế toán
Nâng cao hơn một chút như thế này được không bạn anhtuan1066
nếu =tensheet() trả về giá trị tên sheet hiện hành
Nếu =tensheet(sheet1) trả về giá trị tên sheet1
Như cái nếu thứ hai thì code phải thêm j nữa bạn.
Bài viết mới nhất
- Question
- Question
- Đã giải quyết
- Question
- Đã giải quyết
- Question
