Bổ sung Code thay thế tiêu đề

[Hong.Van]

Em nhờ thầy cô & anh chị viết thêm code bổ sung tịêu đề
Em có mô tả trong file đính kèm
Em cảm ơn!

 

[viehoai]

Em nhờ thầy cô & anh chị viết thêm code bổ sung tịêu đề
Em có mô tả trong file đính kèm
Em cảm ơn!

Bạn xen có phải như vầy không
Code Sheet1 trong file bạn:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
  ActiveWindow.Caption = "TRUONG TIEU HOC LE HOAN" & " - " & Target.Value
End If
End Sub

 

[thanhphuong]

Private Sub Workbook_Open()
     Application.Caption = "PHONG GIAO DUC & DAO TAO - TRUONG TIEU HOC LE HOAN"
     ActiveWindow.Caption = Sheet1.Range("A2")
End Sub

 

[thanhphuong]

Bạn xen có phải như vầy không
Code Sheet1 trong file bạn:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
  ActiveWindow.Caption = "TRUONG TIEU HOC LE HOAN" & " - " & Target.Value
End If
End Sub

Phải thay luôn cả chữ Microsoft Excel nữa nê sửa lại là

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
     Application.Caption = "PHONG GIAO DUC & DAO TAO"
     ActiveWindow.Caption = "TRUONG TIEU HOC LE HOAN" & " - " & Target.Value
End If
End Sub

 

[Hong.Van]

Bạn xen có phải như vầy không
Code Sheet1 trong file bạn:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
  ActiveWindow.Caption = "TRUONG TIEU HOC LE HOAN" & " - " & Target.Value
End If
End Sub

Code của anh thì fải Paste vào sheet & tác động vào cell A2 thì mới có kết quả. Ý của em khi mở File là có tiêu đề luôn
Em cảm ơn!

 

[thanchetvnt]

Bạn xem có đúng ý bạn không nhé. Bạn chỉ cần đổi tên File "Lop1A" thành "Lop2A" thì tiêu đề của bạn sẽ thay đổi theo ý ban muốn chứ không cần thay đổi ô A2 trong sheet1.

 

[viehoai]

Phải thay luôn cả chữ Microsoft Excel nữa nê sửa lại là

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
     Application.Caption = "PHONG GIAO DUC & DAO TAO"
     ActiveWindow.Caption = "TRUONG TIEU HOC LE HOAN" & " - " & Target.Value
End If
End Sub

Ý tác giả không phải như thế, tác giả muốn thay đổi A2 thánh ThanhPhương thì tiêu đề có chữ đó, còn nói như bạn thì thêm câu thêm Application.Caption = " PHONG GIAO DUC & DAO TAO " là được, cái này tác giả đã biết

 

[viehoai]

Code của anh thì fải Paste vào sheet & tác động vào cell A2 thì mới có kết quả. Ý của em khi mở File là có tiêu đề luôn
Em cảm ơn!

Vậy thì code bạn đã có rồi chỉ việc nối thêm "-" & Sheet1.Range("A2").Value là được

 

[ndu96081631]

Ý tác giả không phải như thế, tác giả muốn thay đổi A2 thánh ThanhPhương thì tiêu đề có chữ đó, còn nói như bạn thì thêm câu thêm Application.Caption = " PHONG GIAO DUC & DAO TAO " là được, cái này tác giả đã biết

Câu 1 bạn hỏi:

1/ Hiện cell A2 là : Lop1A, Em muốn ghép tiêu đề với Cell A2 thành " PHONG GIAO DUC & DAO TAO - TRƯỜNG TIEU HOC LE HOAN - Lop1A"

Câu này chẳng cần đến code, chỉ Custom Format cũng ra
Code cho Custom Format là "PHONG GIAO DUC & DAO TAO - TRƯỜNG TIEU HOC LE HOAN - "@
----------------------------------------------------------------------
Câu 2 bạn hỏi:

2/ File của em có tên : Lop1A, Em muốn ghép tiêu đề với tên File thành " PHONG GIAO DUC & DAO TAO - TRƯỜNG TIEU HOC LE HOAN - Lop1A"

Nghĩa là sao đây? Đổi tên file à?

 

[Hong.Van]

Câu 2 bạn hỏi:

Nghĩa là sao đây? Đổi tên file à?

Ý em không fải đổi tên File, mà tên file của em là Lop1A.xls, bây giờ em muốn dùng 1 fần tên File Lop1A , bỏ đuôi .xls để ra như kết quả bên dưới (Do em quản lý nhiều File lớp học)
" PHONG GIAO DUC & DAO TAO - TRƯỜNG TIEU HOC LE HOAN - Lop1A"
Em cảm ơn!

 

[Quang_Hải]

Ý em không fải đổi tên File, mà tên file của em là Lop1A.xls, bây giờ em muốn dùng 1 fần tên File Lop1A , bỏ đuôi .xls để ra như kết quả bên dưới (Do em quản lý nhiều File lớp học)
" PHONG GIAO DUC & DAO TAO - TRƯỜNG TIEU HOC LE HOAN - Lop1A"
Em cảm ơn!

Sao mình theo dõi hết các bài mà vẫn không hiểu vậy ta??? Có lẽ Vân mô tả chưa hết ý hay sao ấy. Có phải Vân muốn tách phần này rồi đưa vào chỗ ô A2 phải không?

 

[Hong.Van]

Sao mình theo dõi hết các bài mà vẫn không hiểu vậy ta??? Có lẽ Vân mô tả chưa hết ý hay sao ấy. Có phải Vân muốn tách phần này rồi đưa vào chỗ ô A2 phải không?

Không đưa vào cell A2 nữa đâu anh, mà đưa nó ghép chung thành tiêu đề luôn!
Em cảm ơn!

 

[Quang_Hải]

Không đưa vào cell A2 nữa đâu anh, mà đưa nó ghép chung thành tiêu đề luôn!
Em cảm ơn!

Vân nghiên cứu ráp đoạn code này vào nha. Mình ráp vào thì được nhưng muốn để cho Vân nghiên cứu, có thể Activeworkbook lại thay bằng Thisworkbook

Filename = ActiveWorkbook.Name
Filename = Mid(Filename, 1 + InStr(Filename, "_"), _
InStrRev(Filename, ".") - 1 - InStr(Filename, "_"))
MsgBox Filename

 

[thanchetvnt]

Bạn xem có được không nhé

 

[Hong.Van]

Bạn xem có được không nhé

File của bạn đã giúp mình thêm 1 cách tham khảo, cảm ơn!

 

[ndu96081631]

Ý em không fải đổi tên File, mà tên file của em là Lop1A.xls, bây giờ em muốn dùng 1 fần tên File Lop1A , bỏ đuôi .xls để ra như kết quả bên dưới (Do em quản lý nhiều File lớp học)
" PHONG GIAO DUC & DAO TAO - TRƯỜNG TIEU HOC LE HOAN - Lop1A"
Em cảm ơn!

Hỏi lại lần nữa:
- Cell A2 sẽ luôn là tên của file đúng không (chỉ ghép thêm phần đầu vào nữa)
- Nếu đúng vậy thì sao bạn lại nói:

Mỗi khi cell A2 thay đổi thì tiêu đề trên thay đổi theo

Vì thực chất cell A2 đâu cần thay đổi gì... Nó chỉ thay đổi khi tên file thay đổi thôi
---------------------
Tôi suy đoán và làm thế này:
- Đặt 1 name có tên là Title, có Refers To là: ="PHÒNG GIÁO DỤC & ĐÀO TẠO - TRƯỜNG TIỂU HỌC LÊ HOÀN - "
- Code trong Module:

Sub Auto_Open()
  Dim wkbName As String
  wkbName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
  ActiveWindow.Caption = ""
  With Sheet1.Range("A2")
    .Value = wkbName
    .NumberFormat = """" & Evaluate("Title") & """@"
    Application.Caption = .Text
  End With
End Sub