Code tự động tạo sheet mới khi bấm vào 1 cell trong 1 sheet có sẵn (1 người xem)

[titanic]

trong 1 ô có nội dung như sau TẠO "KHÁCH HÀNG MỚI" khi nhấp chuột vào nó tự động tạo sheep mới và cho mình sửa tên sheep được không ?

 

[dhn46]

Được quá đi chứ. Bạn chú ý câu hỏi cần có chủ ngữ nha. Trong diễn đàn có rất nhiều các bô lão đáng tuổi cha chú mình. Cần lịch sự khi đưa câu hỏi. Thân

 

[titanic]

bạn nói vậy thì mình ghi nhận, nhưng mình muốn vào thẳng vấn đề chứ không thích vòng vo bạn thông cảm

 

[dhn46]

CODE của bạn đây. Bạn bấm vào ô A1 nha

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Application.Intersect(Target, [A1])
If Not Target Is Nothing Then
Application.ThisWorkbook.Worksheets.Add.Name = "DHN46"
End If
End Sub

 

[titanic]

CÁM ƠN dhn46 đã cho code nhưng có thể hướng dẫn thêm 1 chút về php được không mình chư dùng lần nào ? copy nội dung rồi dán vào đâu ?

 

[viehoai]

CÁM ƠN dhn46 đã cho code nhưng có thể hướng dẫn thêm 1 chút về php được không mình chư dùng lần nào ? copy nội dung rồi dán vào đâu ?

Dán giúp bạn đây (Mở file và kích vào "KHÁCH HÀN MỚI")

 

[titanic]

ban VIEHOAI oi, mình mới tải file về nhưng mở lên trống trơn à. bạn xem lại dùm mình cảm ơn

 

[viehoai]

ban VIEHOAI oi, mình mới tải file về nhưng mở lên trống trơn à. bạn xem lại dùm mình cảm ơn

Chỉ duy nhất Sheet1 có chữ "KHÁCH HÀNG MỚI" . Kích vào đó xem sao?

 

[titanic]

Duy chuyển chuột vào vẫn để dấu cộng màu trắng bạn à

 

[viehoai]

Duy chuyển chuột vào vẫn để dấu cộng màu trắng bạn à

Khi bạn kích xong nó tạo ra sheet mới là "DHN46"

 

[titanic]

không có bạn ơi cái chữ KHÁCH HÀNG MỚI chứ không phải nut bấm

 

[Ba Tê]

không có bạn ơi cái chữ KHÁCH HÀNG MỚI chứ không phải nut bấm

Trời ạ! Nói tới nói lui nãy giờ mà bạn có click chuột vào ô A1 có chữ KHÁCH HÀNG MỚI chưa?
click lần 1 sẽ tạo 1 sheet mới, click lần 2... bị lỗi vì ... trùng tên!!!!

 

[titanic]

xin lỗi anh BA TÊ đừng nóng em đã làm rồi nhưng không thấy gì anh có thể giúp em xem lại và gửi cho em thêm 1 lần nữa được không cảm ơn anh nhiều

 

[dhn46]

Bạn thử file này xem ntn...
muốn chạy được macro thì vào menu: Tool >macro>security> chọn mức Low ==> ok....Vậy mới chạy được. Thân!!!
Ah mà bạn nhớ diễn đàn có nút Thanks nha. hihi

 

[Ba Tê]

xin lỗi anh BA TÊ đừng nóng em đã làm rồi nhưng không thấy gì anh có thể giúp em xem lại và gửi cho em thêm 1 lần nữa được không cảm ơn anh nhiều

Làm từng bước nhé:
1. Mở EXCEL, tập tin mới (Book1), vào tools - Macro - Security ... - Click chọn mức Medium - OK.
Thoát khỏi EXCEL.
2. Vào lại EXCEL, mở tập tin bạn tải xuống ở bài trên.
Khi có câu hỏi của EXCEL, bạn chọn ENABLE MACROS, Các Code trong File mới hoạt động được.

 

[titanic]

cám ơn anh ba tê rất nhiều e làm được rồi nhưng sao làm được vậy anh có thể chuyền bí kiếp cho e được không

 

[anhlong]

Sao mọi người không làm luôn cho Click 1 cái ra sheet 1 (hoặc chỉ có số 1 càng tốt) ,phát nữa ra sheet 2 .... sẽ tiện hơn nhìu? Với lại cho cái sheet mới tạo hiện ra bên phải được không anh chị.

 

[quanghaith2]

Có cách nào tự động bấm vào 1 ô là excel tự tạo sheet mới, nhưng không dùng VBA ko các bác nhỉ?

 

[binh512]

Bạn Dhn46 ơi, có cách nào mà nó tự chạy ra số tự nhiên tăng dần không, số này sẽ là tên từng sheet luôn .