Hàm xác định tên sheet

[ndu96081631]

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.

Thì sửa lại tí thôi:

Function ShName(Optional Ten As String) As String
  Dim sh As Worksheet
  Application.Volatile
  If Ten = "" Then ShName = Application.ThisCell.Parent.Name
  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

 

[hunggtg]

Ví dụ: mình có nội dung trong cell A1 là: ABCD
Mình muốn copy sheet này vào 1 file mới, thì sheet mới này phải có tên là ABCD chứ không phải là Sheet1 như thông thường. Và khi muốn save file mới tạo ra này (file chỉ có 1 sheet là ABCD đó) thì không được save bằng tên khác mà chỉ được save tên file là ABCD.

Có cách nào làm được việc này không ạ

 

[nghiaphuc]

Ví dụ: mình có nội dung trong cell A1 là: ABCD
Mình muốn copy sheet này vào 1 file mới, thì sheet mới này phải có tên là ABCD chứ không phải là Sheet1 như thông thường. Và khi muốn save file mới tạo ra này (file chỉ có 1 sheet là ABCD đó) thì không được save bằng tên khác mà chỉ được save tên file là ABCD.

Có cách nào làm được việc này không ạ

Nếu bạn muốn copy sheet và lưu một cách tự động thì bạn có thể dùng Sub này:

Sub CopyAndSave()
    ActiveSheet.Copy
    With ActiveWorkbook
        .ActiveSheet.Name = .ActiveSheet.[A1]
        .SaveAs .ActiveSheet.[A1]
    End With
End Sub

Lưu ý là code này chưa loại trường hợp giá trị ở ô A1 không thể dùng để gán cho tên sheet hoặc không thể dùng để đặt tên (ví dụ A1 có chứa các ký tự "\", "/",...)
Còn thực sự, yêu cầu đỏ đỏ của bạn nhắm chừng không khả thi, ngay cả khi bạn dùng code không cho phép sử dụng Save as đi chăng nữa thì chỉ cần đặt Security ở mức High hay Very high thì code "đi tong". Thậm chí nếu bạn làm được việc chặn Save as thì người ta vẫn còn cách là đổi tên tập tin mà.