Cần giúp viết Code vòng lặp copy and paste tuần tự từng File Excel (Có 10 File) (2 người xem)

[hung2412]

Chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có 10 File Excel: 1.xls, 2.xls, 3.xls, 4.xls, 5.xls, 6.xls, 7.xls, 8.xls, 9.xls, 10.xls => Gõ vào ô A1 ở File 1.xls với nội dung "Cộng hòa xã hội chủ nghĩa Việt Nam" => Copy ô A1 rồi paste vào ô A3 (ở cùng File 1.xls) => Tôi xài Code:

[A1] = "Cộng hòa xã hội chủ nghĩa Việt Nam" 
[A1].copy [A3]

=> Làm tuần tự như vậy với từng File 2.xls, 3.xls, 4.xls, 5.xls, 6.xls, 7.xls, 8.xls, 9.xls, 10.xls => Làm thủ công rất lâu => Có vòng lặp nào như:

For ... Next

để thực hiện công việc trên một cách lẹ làng không?
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm (Không thể đính kèm 10 File).

 

[dhn46]

Công việc bạn cần làm là:

1/ Mở từng workbook => dùng 1 vòng lặp (Workbook.Open......)
2/ Dán đoạn code bạn đang sử dụng vào trong vòng lặp đó để gán dữ liệu, Copy
3/ Đóng Workbook lại

Mà có nhất thiết phải tạo bảng thăm dò nội dung Topic không bạn? Hỏi là hỏi, mình nghĩ đơn giản thế ^^

 

[hung2412]

Công việc bạn cần làm là:

1/ Mở từng workbook => dùng 1 vòng lặp (Workbook.Open......)
2/ Dán đoạn code bạn đang sử dụng vào trong vòng lặp đó để gán dữ liệu, Copy
3/ Đóng Workbook lại

Dạ, tôi chưa hiểu dùng 1 vòng lặp (Workbook.Open......) cụ thể như thế nào ạ? (Tôi đầu đất nên chậm hiểu). Mong bạn nói cụ thể hơn được không ạ?
Với lại, nếu như bạn đã nói ở trên thì lại phải tự tay mở từng File cơ ạ? Có cách nào "đứng" ở 1 File cụ thể rồi dùng vòng lặp thực hiện công việc không nhỉ?

Mà có nhất thiết phải tạo bảng thăm dò nội dung Topic không bạn? Hỏi là hỏi, mình nghĩ đơn giản thế ^^

Ah, cái tạo thăm dò làm tôi thích thú, đơn giản là lập cho vui (mặc dù chả để làm gì).

 

[ndu96081631]

Dạ, tôi chưa hiểu dùng 1 vòng lặp (Workbook.Open......) cụ thể như thế nào ạ? (Tôi đầu đất nên chậm hiểu). Mong bạn nói cụ thể hơn được không ạ?
Với lại, nếu như bạn đã nói ở trên thì lại phải tự tay mở từng File cơ ạ? Có cách nào "đứng" ở 1 File cụ thể rồi dùng vòng lặp thực hiện công việc không nhỉ?

Kiểu thấy này:

Sub Test()
  Dim aFiles, fleItem
  Dim sPath As String, sConts As String
  On Error Resume Next
  Application.ScreenUpdating = False
  aFiles = Array([COLOR=#ff0000]"File 1.xls", "File 2.xls", "File 3.xls", "File 4.xls", "File 5.xls", "File 6.xls", "File 7.xls", "File 8.xls", "File 9.xls", "File 10.xls"[/COLOR])
  sPath = "[COLOR=#ff0000]Đường dẫn đến thư mục chứa 10 files trên[/COLOR]"
  sConts = "[COLOR=#ff0000]Nội dung gì đó để gán vào cell A1 và A3[/COLOR]"
  For Each fleItem In aFiles
    With Workbooks.Open(sPath & fleItem)
      .Sheets("[COLOR=#ff0000]Tên sheet cần gán[/COLOR]").Range("A1, A3").Value = sConts
      .Close True
    End With
  Next
  Application.ScreenUpdating = True
End Sub

Code này đặt ở 1 file khác 10 file trên
Lưu ý: những chỗ màu đỏ phải sửa lại cho phù hợp với máy tính của bạn

Ah, cái tạo thăm dò làm tôi thích thú, đơn giản là lập cho vui (mặc dù chả để làm gì).

Sao lại CHO VUI nhỉ?
Diễn đàn cung cấp bảng thăm dò là để DÙNG, bạn không cần thì tạo làm gì?
Mặc dù việc tạo bảng thăm dò chẳng hề vi phạm nội quy nhưng việc sử dụng sai mục đích thế này tôi vẫn cảm thấy nó.. sao sao ấy! Bạn nghĩ thế nào?

 

[hung2412]

Sao lại CHO VUI nhỉ?
Diễn đàn cung cấp bảng thăm dò là để DÙNG, bạn không cần thì tạo làm gì?
Mặc dù việc tạo bảng thăm dò chẳng hề vi phạm nội quy nhưng việc sử dụng sai mục đích thế này tôi vẫn cảm thấy nó.. sao sao ấy! Bạn nghĩ thế nào?

Dạ, em nói cho vui vậy thôi, nhưng em lập bảng thăm dò không phải là vô ích. Bởi vì, nhiều khi em lập Topic mà không có ai "thăm" cả => Lòng tự hỏi tại sao? => Em định comment nhưng sợ bị spam => May thay có cái Topic này để xem việc lập Topic có phải là vô ích hay không thôi ạ?

 

[ndu96081631]

Dạ, em nói cho vui vậy thôi, nhưng em lập bảng thăm dò không phải là vô ích. Bởi vì, nhiều khi em lập Topic mà không có ai "thăm" cả => Lòng tự hỏi tại sao? => Em định comment nhưng sợ bị spam

Bảng thăm dò thường dùng trong các trường hợp:
- Người ta khảo sát ý kiến của thành viên về một dự định, một kế hoạch nào đó mà người ta sắp triển khai
- Người ta phát hành sách và muốn khảo sát mức độ hài lòng của đọc giả
vân... vân... và... mây... mây...
Chưa thấy ai lên HỎI BÀI mà KHẢO SÁT bao giờ...
---------------------------

May thay có cái Topic này để xem việc lập Topic có phải là vô ích hay không thôi ạ?

Việc bạn lập topic là tự bạn muốn nâng cao trình độ thông qua sự trợ giúp của mọi người rồi. Vậy chắc chắn nó có ích rồi (ít nhất là đối với bạn) chứ sao lại vô ích? (trừ phi bài viết vi phạm nội quy rồi người ta cho vào thùng rác)

 

[hung2412]

Bảng thăm dò thường dùng trong các trường hợp:
- Người ta khảo sát ý kiến của thành viên về một dự định, một kế hoạch nào đó mà người ta sắp triển khai
- Người ta phát hành sách và muốn khảo sát mức độ hài lòng của đọc giả
vân... vân... và... mây... mây...
Chưa thấy ai lên HỎI BÀI mà KHẢO SÁT bao giờ...

---------------------------
Cái này thì em xin trả lời: Em muốn lập Bảng thăm dò HỎI BÀI là để xem câu hỏi đó có ngu ngốc hay không ạ? => Nên lập KHẢO SÁT ạ.

Việc bạn lập topic là tự bạn muốn nâng cao trình độ thông qua sự trợ giúp của mọi người rồi. Vậy chắc chắn nó có ích rồi (ít nhất là đối với bạn) chứ sao lại vô ích? (trừ phi bài viết vi phạm nội quy rồi người ta cho vào thùng rác)

Em rất thích lập cái Bảng thăm dò mà.