Đặt tên wooksheet

[lacquan1]

Ai biết làm ơn chỉ giúp:
tôi thay đổi tên trong 1 ô tại 1 wooksheet thì tên wooksheet này tự động thay đổi tên trùng đúng với tên trong ô đã thay đổi
thank you

 

[OverAC]

Bạn click phải trên sheet của bạn rồi chọn View code, sau đó chép đoạn code này vào, cuối cùng thì sửa chữ A1 trong đoạn code này thành địa chỉ mà bạn muốn.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    Application.DisplayAlerts = False
    If Target.Address = "$A$1" Then
        ActiveSheet.Name = Range("A1").Value
    End If
    Application.DisplayAlerts = True
End Sub

 

[lacquan1]

cảm ơn overac nhiều lắm
em muốn hỏi thêm như vầy:tại ô A1 nhập tên là "Một" thì tên wooksheet thay đổi là "Một", sau đó cũng tại ô A1 nhập là "Hai"thì wooksheet có tên "Một" được copy sang bên cạnh wooksheet có tên là "Hai" mới tạo,....

 

[Mr Okebab]

cảm ơn overac nhiều lắm
em muốn hỏi thêm như vầy:tại ô A1 nhập tên là "Một" thì tên wooksheet thay đổi là "Một", sau đó cũng tại ô A1 nhập là "Hai"thì wooksheet có tên "Một" được copy sang bên cạnh wooksheet có tên là "Hai" mới tạo,....

Bạn thử nhé :
Giả sử Sheet Copy là Sheet ban đầu :

Sub ABC()
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Sheets("copy").Copy Before:=Sheets(2)
    ActiveSheet.Name = Range("A1").Value

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub

Thân!

 

[saigonvw]

Các Bạn làm ơn cho Tôi hỏi thêm một chút
1- Tôi đang dùng Font TCVN3 ( .VnTimer ) Làm cách nào để đặt tên Sheet có dấu tiếng Việt . ( Vì các văn bản của Công ty đều dùng Font chuẩn là .VNTimer nên tôi không thể chuyển sang dùng Font Unicode được )

2- Muốn ẩn một vài Sheet trong bảng tính thì làm thế nào ?

Cảm ơn các Bạn nhiều

 

[ndu96081631]

Các Bạn làm ơn cho Tôi hỏi thêm một chút
1- Tôi đang dùng Font TCVN3 ( .VnTimer ) Làm cách nào để đặt tên Sheet có dấu tiếng Việt . ( Vì các văn bản của Công ty đều dùng Font chuẩn là .VNTimer nên tôi không thể chuyển sang dùng Font Unicode được )

Cty bạn xem ra cũng.. lạc hậu quá nhỉ? Thời đại gia nhập WTO mà.. TCVN3 thì.. thôi rồi... (mà mấy font ấy nó xấu như.. con ma ---> chả hiểu người ta thích gì ---> Trừ phi bị ép khi lập trình VBA mà thôi)
Tôi đã thí nghiệm và thấy hình như tên sheet không cho phép dùng bảng mã TCVN3 với tiếng Việt có dấu
Bạn cố gắng khuyên các "đại ca" chuyển sang dùng Unicode đi thôi ---> Nêu rõ lợi ích của Unicode cho "đại ca" biết nhé ---> Kẻo có ngày nào đó gữi văn bản, hợp đồng cho mấy ông Tây, ổng đọc không ra chử gì rồi nén vào sọt rác thì toi...
ẹc... ec...

2- Muốn ẩn một vài Sheet trong bảng tính thì làm thế nào ?

Vào menu Format\Sheet\Hide

 

[BNTT]

Về chuyện đặt tên cho Sheet bằng font TCVN3, thì cũng có cách chứ không phải không, nhưng khá nhiêu khê.

Trước hết, bạn phải cài đặt trình quản lý font TCVN3, đó là ABC 2.0 (bạn tham khảo tại đây: http://support.vnn.vn/tiengviet/)
Nhớ là cài đặt vào, chứ không phải chỉ là chép mấy font của nó vào trong thư mục font của Windows.

Sau khi cài, nếu hên, thì ABC 2.0 sẽ tạo ra vài font hệ thống, thay thế cho font hệ thống của Windows, và hình như là nó có hỏi bạn "có muốn làm chuyện này hay không"...
Còn nếu không, thì bạn phải tự tay thay thế các font hệ thống của Windows bằng font hệ thống của ABC.

Sau khi đã làm được mấy chuyện đó, thì bạn có thể sử dụng font ABC (TCNV3) trong các tên Sheet, và trong nhiều chỗ khác nữa...
Tuy nhiên, tôi nói trước, việc làm này sẽ làm lộn tùng phèo cả máy của bạn lên. Chẳng hạn khi duyệt Web tiếng Việt (sử dụng font Unicode), bạn sẽ thấy cái thanh tiêu đề của trình duyệt toàn là tiếng Campuchia...

Thành thử, nói thì nói vậy, nhưng tôi không bao giờ khuyên ai làm như tôi vừa nói cả. Không riêng gì font TCVN3 mà còn cả Vietware, VNI, v.v... cũng xin can nốt. Chỉ nên sử dụng Unicode mà thôi. Còn nếu như không thể, do ý sếp chẳng hạn, thì tạm thời quên cái chuyện bỏ dấu tiếng Việt trong tên Sheet đi.

Mà đã nói thì nói cho cùng, ngay cả tôi, sử dụng Unicode, tôi cũng không bao giờ đặt tên Sheet có dấu tiếng Việt, không bao giờ cho nó có khoảng trắng, và càng ngắn càng tốt. Những ai từng truy xuất đến tên Sheet trong VBE, trong các hàm, chắc hiểu tại sao tôi làm vậy.

 

[ptm0412]

Có 1 cách không cần đè hệ thống ra uýnh, và không ảnh hưởng tới window title bar, là vào tools - option, chọn như sau: (dùng .vnArial, hoặc .vnAvant dễ đọc hơn so với .vnTime)

Kết quả tên sheet có thể gõ dấu:

cả thanh công thức cũng đọc được:

Ngoài ra, khi tạo sheet mới, tự động font cho toàn workbook là font đã chọn.

Nhưng nói thật, tôi biết, nhưng tôi không xài. Và tên sheet không bao giờ tôi uýnh dấu tiếng Việt.

 

[BNTT]

Có 1 cách không cần đè hệ thống ra uýnh, mà không bị ảnh hưởng window title bar, là vào tools - option, chọn như sau: (dùng .vnArial, hoặc .vnAvant dễ đọc hơn so với .vnTime)

Lão đại gia nói sao í chớ... Em hổng làm được như thế.
Làm cho thanh công thức đọc được font TCVN3 thì OK, em biết từ lâu rồi.
Nhưng mà cái tên Sheet, thua! Em mới thử cả Excel 2003 lẫn 2007, không tài nào gõ được tiếng Việt kiểu TCVN3 vào trong tên Sheet.
Khi thay đổi font mặc định của Excel, ở máy em, nó chỉ ảnh hưởng đến font trên Formular Bar, font của Row & Column Haeders, và font trong các ô bảng tính thôi. Còn font chỗ tên Sheet vẫn là font hệ thống (Unicode).

 

[ndu96081631]

Có 1 cách không cần đè hệ thống ra uýnh, và không ảnh hưởng tới window title bar, là vào tools - option, chọn như sau: (dùng .vnArial, hoặc .vnAvant dễ đọc hơn so với .vnTime)
.

S­ư phụ thử đổi bảng mã trong Unikey sang TCVN3 xem thế nào? ---> Em nghĩ là không thể gõ được
Còn khi sư phụ gõ được rất có thể là vì sư phụ vẫn đang chọn bảng mã Unicode trong trình gõ tiếng Việt đấy chứ

 

[ptm0412]

Sorry nha, khi thử để chụp hình, lúc gõ tên sheet chưa chuyển bảng mã.

Zậy bỏ qua bài trên nha.