Xin hỏi cách đổi tên sheet "tự động"?

Liên hệ QC

nqdn2010

Optimal Сasual Dating - Actual Girls
Tham gia
22/2/12
Bài viết
267
Được thích
15
Giới tính
Nam
Nghề nghiệp
Health
Xin các vị chỉ cho tôi cách đổi tên sheet "tự động". Chẳng hạn tôi đánh vào ô B2 của Sheet1 nội dung:"THIẾT KẾ" thì tên Sheet1 cũng đổi thành "THIẾT KẾ"?
Tôi xin cám ơn!
 
thử code này xem

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [b2].Address Then ActiveSheet.Name = [b2]
End Sub
 
Xin các vị chỉ cho tôi cách đổi tên sheet "tự động". Chẳng hạn tôi đánh vào ô B2 của Sheet1 nội dung:"THIẾT KẾ" thì tên Sheet1 cũng đổi thành "THIẾT KẾ"?
Tôi xin cám ơn!

Thêm một cách sử dụng công thức!
Lưu ý: Tải File về lưu vào máy thì cthức mới hiểu!?
 

File đính kèm

  • DoiTen.xls
    14 KB · Đọc: 655
Rất cám ơn anh quanghai1969! Tôi đã làm được rồi. Xin cho tôi hỏi thêm, Nếu muốn tất cả các Sheet đều thay đổi tên theo ô chỉ định ở mỗi sheet thì mình làm sao anh!
Cám ơn anh nhiều!
 
Lần chỉnh sửa cuối:
Rất cám ơn anh! Tôi đã làm được rồi. Xin cho tôi hỏi thêm, Nếu muốn tất cả các Sheet đều thay đổi tên theo ô chỉ định ở mỗi sheet thì mình làm sao anh!
Cám ơn anh nhiều!
Thông thường thì mình dùng vòng lặp để làm việc này
 
Rất cám ơn anh quanghai1969! Tôi đã làm được rồi. Xin cho tôi hỏi thêm, Nếu muốn tất cả các Sheet đều thay đổi tên theo ô chỉ định ở mỗi sheet thì mình làm sao anh!
Cám ơn anh nhiều!
Mình không hiểu bạn tải bài nào về mà "làm được" ?
Bạn tải file bài #4 ah?
 
To nqdn2010: Bạn xem file đúng như ý bạn nói không
 

File đính kèm

  • Thay doi ten sheet.xls
    22.5 KB · Đọc: 528
To nqdn2010: Bạn xem file đúng như ý bạn nói không
Đây là file mình cần đó!. Thanks
Cho mình hỏi thêm Làm sao để dùng Code sang 1 Sheet khác đã có sẵn tên? Có đc ko?
Và Bạn sửa Code để mình có thể di chuyển ô đặt tên Sheet sang 1 ô khác bất kỳ không cố định tại ô A1?
 
To nqdn2010: Bạn xem file đúng như ý bạn nói không
Code chỉ vầy là được rồi Viethoai à:
Mã:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  On Error Resume Next
  If Target.Address = [COLOR=#ff0000][B]"$A$1"[/B][/COLOR] Then Sh.Name = Target.Value
End Sub
Đối số Sh trong sự kiện Workbook_SheetChange chính là ActiveSheet đấy
------------------
Đây là file mình cần đó!. Thanks
Cho mình hỏi thêm Làm sao để dùng Code sang 1 Sheet khác đã có sẵn tên? Có đc ko?
Và Bạn sửa Code để mình có thể di chuyển ô đặt tên Sheet sang 1 ô khác bất kỳ không cố định tại ô A1?
Có để ý chổ màu đỏ trong code trên không? Muốn thay thành ô nào thì sửa chố đó đi
 
Cho mình hỏi thêm Làm sao để dùng Code sang 1 Sheet khác đã có sẵn tên? Có đc ko?
 
Xin mọi người cho mình hỏi! Làm cách nào khi giấu 1 sheet khi nhấn nút lệnh thi sheet đó hiện ra, nhưng khi đóng sheet đó lại thị tự động sheet đó bị giấu như trước.
 
Xin mọi người cho mình hỏi! Làm cách nào khi giấu 1 sheet khi nhấn nút lệnh thi sheet đó hiện ra, nhưng khi đóng sheet đó lại thị tự động sheet đó bị giấu như trước.
Dùng thuộc tính Visible của sheet để cho hiện hoặc ẩn.Ví dụ, khi chuyển sang sheet khác thì sheet sẽ bị ẩn đi, dùng code sau:

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetHidden
End Sub
 
Xin mọi người cho mình hỏi! Làm cách nào khi giấu 1 sheet khi nhấn nút lệnh thi sheet đó hiện ra, nhưng khi đóng sheet đó lại thị tự động sheet đó bị giấu như trước.
Điều này thì đơn giản, nhưng không có file thì làm biếng suy nghĩ lắm
Dùng sự kiên Worksheet_Deactivate để ẩn sheet khi thoát ra khỏi sheet đó
Muốn hiện lại sheet nào đó thì viết code: "tên_sheet".visible=true
 
Các bác xem giúp cho em thêm điều kiện ở bài#14 với?
Thanks
 
Web KT
Back
Top Bottom