Lấy Dữ liệu từ nhiều file về file chứa Marco, Mong các Anh giúp em

[alias1313]

arr có tới 15 dòng, mỗi lần dán kết quả trong for là 15 dòng, trong khi đó for chỉ step 2 nên đè lên kết quả trước

em thử bỏ bớt 1 mảng và thủ offset mảng còn lai:

For n= 0 to 28 step 2
Range("I8").Offset(n, 0)Resize(30, 12) = Arr
Next n
Nhưng offset vẫn không có tác dụng nó vẫn chỉ Add vào 15 dòng đầu tiên, còn 15 dòng sau bị lỗi #N/A

 

[VetMini]

.Anh nhận xét thế..có vội vàng quá không ..?...Mà...hìnnh như có vẻ....chúng ta đang ..lạc đề....^_^...

Không vội vàng đâu. Tôi chuyên môn nghề kiểm soát xem giải thuật có đáp ứng được vấn đề, và code có thực hiện được giải thuật.

Chỉ có bạn mới vội vàng. Cho nên đến giờ này vẫn chưa giải quyết được vấn đề. Nếu từ đầu bạn suy nghĩ cho chín chắn và hỏi cho cặn kẽ thì đã đỡ cho ngừoi viết code nhiều lắm.

 

[AutoReply]

Tôi chỉ chấm code đúng hay sai, có dễ chỉnh sửa hay không thôi.
Chuyện hay hoặc dở đối với tôi nó nằm trong thuật toán.

Trước mắt là bạn chỉnh sửa không được, thuật toán thì bạn cũng chẳng rõ. Thế thì bạn dựa vào gì để khen hay?

khen hay vì mình không biết làm, không hiểu người ta đã làm như thế nào.
Khi anh xem 1 tiết mục ảo thuật, tại sao anh khen hay ? đơn giản vì anh không biết nhà ảo thuật đã dùng cách gì.
Khi anh xem 1 tiết mục ca nhạc, tại sao anh khen hay ? đơn giản vì anh không có khả năng hát được như họ.

 

[VetMini]

Ví von như vậy không đúng
Ảo thuật dựa trên kỹ thuật "nhìn như vậy mà sự thật khong như vậy". Lập trình là kỹ thuật "rõ ràng đâu ra đấy"
Vì vậy ảo thuật nhìn càng khong hiểu càng hay. Lập trình nguọc lại.

Ca nhạc thì lại càng khác, nó phần lớn thuộc về nghệ thuật chứ không phải kỹ thuật. Nếu tôi muốn phê bình về kỹ thuật trình diễn thì tôi cũng biết qua cách trình diễn của nghệ nhân.

Thực ra chủ thớt cố tình gài tôi ở đoạn "nhưng mà có công nhận đoạn code rất hay không". Trả lời có thì cũng chết mà khong thì mất lòng ngừơi viết code.
Có tài ăn nói nhưng dùng sai chỗ. Tài ăn nói này dùng vào việc diễn tả vấn đề có phải hay hơn không?
Kỹ thuật lập trình hơn phân nửa nằm trong khả năng hiểu và diễn đạt vấn đề. Nếu bạn có thể diễn vấn đề ra thành từng đoạn rành rọt thì sau đó chỉ việc dịch nó ra thành code là xong.

 

[VetMini]

pót nhầm- xin lỗi
(bấm nhằm nút reply thay vì edit)

 

[alias1313]

Ví von như vậy không đúng
Ảo thuật dựa trên kỹ thuật "nhìn như vậy mà sự thật khong như vậy". Lập trình là kỹ thuật "rõ ràng đâu ra đấy"
Vì vậy ảo thuật nhìn càng khong hiểu càng hay. Lập trình nguọc lại.

Ca nhạc thì lại càng khác, nó phần lớn thuộc về nghệ thuật chứ không phải kỹ thuật. Nếu tôi muốn phê bình về kỹ thuật trình diễn thì tôi cũng biết qua cách trình diễn của nghệ nhân.

Thực ra chủ thớt cố tình gài tôi ở đoạn "nhưng mà có công nhận đoạn code rất hay không". Trả lời có thì cũng chết mà khong thì mất lòng ngừơi viết code.
Có tài ăn nói nhưng dùng sai chỗ. Tài ăn nói này dùng vào việc diễn tả vấn đề có phải hay hơn không?
Kỹ thuật lập trình hơn phân nửa nằm trong khả năng hiểu và diễn đạt vấn đề. Nếu bạn có thể diễn vấn đề ra thành từng đoạn rành rọt thì sau đó chỉ việc dịch nó ra thành code là xong.

Anh thích ví dụ kỹ thuật đúng không?
Tôi nhó lần đầu tiên tôi vào diễn đàn để hỏi: làm sao để tính thời gian thực trong ô excel...
và Thầy @ndu96081631 chỉ tôi chỉ cần đánh vào ô excel + format cell: = now() ..và bạn có thể thấy thời gian.
Và tôi thấy điều đó thật kỳ diệu và độc đáo....và tôi tin nhiều người lần đầu tiếp xúc với lập trình cũng như vậy...

hay như:lần đầu được xem tivi, được thấy và ngồi trên máy bay, lần đầu được sử dụng internet, lần đầu được thấy smart phone......còn bây giờ khi chúng ta đã biết, đã thấy nhiều, đã sử dụng nhiều....thì...

Có thể anh giỏi VBA ( ..là so với tôi thôi...^_^..)...thì anh thấy ..."ồ..có vậy nó cũng khen..thằng này ....
Chúng ta có thể giỏi hơn người khác 1 lĩnh vực nào đó..( chỉ là tức thời thôi anh à...)....không có nghĩa là chúng ta...giỏi hơn họ tất cả các kiến thức khác trong cuộc sống...

Nhưng dù sao..cũng xin cám ơn góp ý của anh là : tôi trình bày chưa tốt, kiến thức VBA còn yếu.....hoàn toàn nhận khuyết điểm....^_^...

P/s: Nhưng nói thật là tôi vẫn thấy Anh thiếu chút ..lịch sự....
Anh @HieuCD đang chỉ bảo tôi rất nhiệt tình và nhiều cái hay....lại bị anh vào làm loãng chủ đề chính....^_^....

 

[HieuCD]

em thử bỏ bớt 1 mảng và thủ offset mảng còn lai:

For n= 0 to 28 step 2
Range("I8").Offset(n, 0)Resize(30, 12) = Arr
Next n
Nhưng offset vẫn không có tác dụng nó vẫn chỉ Add vào 15 dòng đầu tiên, còn 15 dòng sau bị lỗi #N/A

Filename = Array("", "So1", "So2", "So3", "So4", "So5", "So6", "So7", "So8", "So9", "So10", "So11", "So12", "So13", "So14", "So15")
ReDim Arr(1 To UBound(Filename), 1 To 12)

lệnh trên khai báo số dòng của Arr là UBound(Filename), cụ thể là 15 dòng 12 cột, khi gán giá trị của Arr vào 1 vùng , nếu kích thước vùng lớn hơn kích thức Arr thì vùng dư ra sẽ bị lỗi #NA

Range("I8").Offset(n, 0)Resize(30, 12) = Arr

gán Arr vào vùng 30 dòng, 12 cột nên chỉ có kết quả 15 dòng đầu, những dòng sau sẽ bị lỗi
Bạn gởi file lên để mình xem cấu trúc như thế nào và sẽ viết mẩu cho bạn tham khảo

 

[VetMini]

Anh thích ví dụ kỹ thuật đúng không?
<...>

Có thể anh giỏi VBA ( ..là so với tôi thôi...^_^..)...thì anh thấy ..."ồ..có vậy nó cũng khen..thằng này ....
Chúng ta có thể giỏi hơn người khác 1 lĩnh vực nào đó..( chỉ là tức thời thôi anh à...)....không có nghĩa là chúng ta...giỏi hơn họ tất cả các kiến thức khác trong cuộc sống...
<...>

P/s: Nhưng nói thật là tôi vẫn thấy Anh thiếu chút ..lịch sự....
Anh @HieuCD đang chỉ bảo tôi rất nhiệt tình và nhiều cái hay....lại bị anh vào làm loãng chủ đề chính....^_^....

(1) Tôi nói chuyện kỹ thuật rất chính xác

(2) Khen có lắm cách khen. Tiếng khen dùng không đúng cách thì trở thành nịnh bợ.
Việc ai giỏi hơn ai, và về lĩnh vực nào bạn khong cần phải nhắc lại, nhiều ngừoi đã nói vói tôi rồi. Và tôi đã trả lời rằng ở diễn đàn này có mấy người giỏi hơn tôi. Nhưng trong số đó không có bạn. Ngoài VBA, tôi còn giỏi hơn bạn ở tiếng Việt. Và đừng nói tới tiếng Anh. Kinh nghiệm cho tôi biết những người giỏi tiếng Anh hơn tôi đều rất thích dùng tiếng Việt, đồng thời rất ngại khi phải dùng tiếng Anh (đối với họ, dùng tiếng Anh có nghĩa là thú nhận mình không biết tiếng Việt phải diễn tả cái đó là gì)

(3) Tôi luôn luôn vỗ ngực ngạo mạn, và khong hề để ý đến chuyện lịch sự.
Về việc loãng chủ đề. Nếu bạn chịu khó hỏi cho đàng hoàng thì từ khoảng bài #11 tôi đã chỉ cho một số thủ thuật để thu gọn code rồi.

 

[alias1313]

(1) Tôi nói chuyện kỹ thuật rất chính xác

(2) Khen có lắm cách khen. Tiếng khen dùng không đúng cách thì trở thành nịnh bợ.
Việc ai giỏi hơn ai, và về lĩnh vực nào bạn khong cần phải nhắc lại, nhiều ngừoi đã nói vói tôi rồi. Và tôi đã trả lời rằng ở diễn đàn này có mấy người giỏi hơn tôi. Nhưng trong số đó không có bạn. Ngoài VBA, tôi còn giỏi hơn bạn ở tiếng Việt. Và đừng nói tới tiếng Anh. Kinh nghiệm cho tôi biết những người giỏi tiếng Anh hơn tôi đều rất thích dùng tiếng Việt, đồng thời rất ngại khi phải dùng tiếng Anh (đối với họ, dùng tiếng Anh có nghĩa là thú nhận mình không biết tiếng Việt phải diễn tả cái đó là gì)

(3) Tôi luôn luôn vỗ ngực ngạo mạn, và khong hề để ý đến chuyện lịch sự.
Về việc loãng chủ đề. Nếu bạn chịu khó hỏi cho đàng hoàng thì từ khoảng bài #11 tôi đã chỉ cho một số thủ thuật để thu gọn code rồi.

1. Anh giỏi tiếng việt ..mà anh có vấn đề về đọc hiểu ...?....anh định nghĩa giùm tôi " nịnh bợ" là gì.....rồi hãy sử dụng nó...^_^....( tôi nghĩ anh chưa hiểu nghĩa của nó đâu...)...
2. ...Rồi ...rồi...anh cái gì cũng giỏi....cứ cho là thế.....Nhưng đến phép lịch sự cũng không có thì....chẳng ích gì....
3. Tôi không hiểu ở đây có gì để cho anh...." vỗ ngực...." ....tự sướng..?...hay đang...ảo tưởng sức mạnh...? .....tỏ ra nguy hiểm....?....nội dung và ý nghĩa mà anh muốn truyền đạt là gì...?..anh có thể cho tôi biết ý nghĩa.....?
4."..đàng hoàng..." ....anh giỏi tiếng việt mà lại thường xuyên có vấn đề về đọc hiểu...anh xem lại xem ...tôi có 1 từ nào không đàng hoàng.....
5. Tất cả những lời khen mà tôi sử dụng trong diễn đàn: đều xuất phát từ sự nể trọng, sự biết ơn và cảm kích bằng cái tâm không hề có sự xảo trá trong đó.

Để đánh giá một con người, một hành động, một lời nói của họ đâu đơn giản như anh nghĩ, tôi phải mất 35 năm mới may mắn hiểu được tấm lòng của cha mẹ mặc dù họ luôn chăm sóc, lo lắng cho tôi mọi lúc,
đôi khi chúng ta mất cả nửa đời người cũng chưa hiểu được một nhân cách.
Trong cuộc sống này chúng ta biết nhìn xuống thì cũng nên biết cách ngước mặt lên......để biết bầu trời này rộng lớn và đẹp biết nhường nào....^_^...