hỏi : cách copy nguyên định dạng + comment

[chai35]

hỏi : cách copy nguyên định dạng + comment từ 1 sheet ra 1 lúc nhiều sheet giống nhau . Ai biết xin chỉ mình với .

 

[DOSNET]

hỏi : cách copy nguyên định dạng + comment từ 1 sheet ra 1 lúc nhiều sheet giống nhau . Ai biết xin chỉ mình với .

Bạn dùng chức năng Move or copy sheet nhé. Chọn phải chuột vào tên sheet cần copy, sau đó chọn Move or copy, đánh dấu vào mục create a copy. Như vậy bạn sẽ có một sheet mới giống hoàn toàn sheet cũ. Thân !

 

[chai35]

cái đó chỉ làm được ra 1 sheet còn mình hỏi ra 1 lúc nhiều sheet

 

[ndu96081631]

cái đó chỉ làm được ra 1 sheet còn mình hỏi ra 1 lúc nhiều sheet

Muốn nhiều sheet thì làm nhiều lần:
- Lần thứ nhất ta được 2 sheet giống nhau
- Chọn 1 lần 2 sheet rồi Move or copy ---> Ta được 4 sheet giống nhau
- Lại chọn 1 lần 4 sheet và... cứ thế tiếp tục ---> Sự tăng trưởng này theo lủy thừa cơ số 2 ---> Chẳng mấy chốc bạn đã có cả mấy trăm sheet ấy chứ
Thử quá trình này trong 10 lần xem nó tạo được bao nhiêu sheet?

 

[khieukienag]

Phải chịu khó làm như bạn DOSNET.
Chịu khó khác là: giữ phím Ctrl+click chuột trái vào sheet muốn copy và kéo sang phài.

 

[chai35]

vậy là phải làm thủ công rồi ! Dù sao cũng cám ơn các bạn nhé

 

[ndu96081631]

vậy là phải làm thủ công rồi ! Dù sao cũng cám ơn các bạn nhé

Vấn đề không phải là làm tự động không được mà liệu có cần thiết phải tự động không?
Cở 100 sheet trở xuống, làm cái rẹt là ra
Nếu bạn muốn tự động thì tham khảo code này:

Sub SheetCopy()
  Dim i As Long
  For i = 1 To 20
   Sheet1.Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = "ndu" & Format(i, "000")
  Next
End Sub

 

[VuongTrungDuong]

Vấn đề không phải là làm tự động không được mà liệu có cần thiết phải tự động không?
Cở 100 sheet trở xuống, làm cái rẹt là ra
Nếu bạn muốn tự động thì tham khảo code này:

Sub SheetCopy()
  Dim i As Long
  For i = 1 To 20
   Sheet1.Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = "ndu" & Format(i, "000")
  Next
End Sub

Lão đại ndu sẵn làm luôn một Inputbox cho người dùng nhập số sheet cần copy ra, sau đó insert một lượt cho nó Pro nhỉ! Theo thiển ý của tại hạ làm cách này vừa chủ động, vừa chứng minh là excel có thể làm được nhiều việc tự động hơn ta nghĩ!

 

[ndu96081631]

Lão đại ndu sẵn làm luôn một Inputbox cho người dùng nhập số sheet cần copy ra, sau đó insert một lượt cho nó Pro nhỉ! Theo thiển ý của tại hạ làm cách này vừa chủ động, vừa chứng minh là excel có thể làm được nhiều việc tự động hơn ta nghĩ!

Vâng thưa tiền bối... Cách thì vô vàn... ở trên chỉ là gợi ý nhỏ... còn lại thì.. ai muốn làm thế nào tùy thích mà...
Ẹc... Ẹc... Nói thật, nếu là tôi thì tôi làm bằng tay cho nó "khỏe cơ bắp" ---> Mấy trò này hỏng xứng để viết code, trừ phi là còn làm thêm gì khác nữa... chứ để Copy ra những sheet tương tự nhau thì phải xét lại:
- Copy 1 vài sheet ta có thể làm bằng tay
- Copy ra hàng trăm sheet giống nhau thì lại phải đặt câu hỏi: Tại sao phải cần làm thế? Liệu ta có nên xem lại phương thức nhập liệu không?

 

[chai35]

hi hi hi ! mấy ông anh cho hỏi cái nha . Dùng excel lâu rồi mà hong biết code là gì hết . Mấy ông anh cho hỏi code là chèn vào cái nào vậy ?

 

[Po_Pikachu]

Code là những mã lệnh quy ước được dùng trong VBA. Code được viết trong VBA của Excel.
Để mở cửa sổ VBA thì bạn có 2 cách:
C1: Vào Tools -> Macro -> Visual Basic Editor
C2: Là nhấn Alt + F11.
Khi vào rồi bạn sẽ thấy cửa sổ bên trên trái - Trên là vùng chứa các Module và Code dành riêng cho Sheet và ThisWorkbook.
Bên trái - Dưới dùng để chứa các thuộc tính cho từng vùng.
Bạn nhấn phải chuột lên tên Sheet chọn Insert ->
+Module: Chứa các Code nằm trong Macro (Có thể mở bằng cách nhấn Alt + F8 bên bảng tính Excel)
+UserForm: Dùng để tạo cửa sổ trao đổi cho người dùng.
+Clase Module: Dùng để tạo các lớp Class cho chương trình.
Bạn chọn Module.
Rồi sẽ có 1 trang mới hiện ra.
Bạn copy đoạn code bên dưới vào trang trắng hiện ra xem.

Sub chay()
MsgBox ("Chao mung ban den voi VBA!")
End Sub

Rồi bạn nhìn lên trên tìm nút Run Sub/UserForm (Hình giống như nút Play nhưng có màu xanh ấy).
Chọn Chay rồi nhấn nút Run là có thể chạy code vừa mới nhập rồi.
Hoặc quay ra bảng tính Excel nhấn Alt + F8 -> Chọn Chay -> Run cũng được.
Thân.