Sửa giúp code dồn số liệu (2 người xem)

[hiénlinh197]

Nhờ các bạn sửa giúp code theo file đính kèm,
Cảm ơn các bạn!

 

[hiénlinh197]

Xóa dòng 2:

Sheet1.Rows(2).ClearContents
'Hoặc:'
'Sheet1.Range("A2").Resize(1, Columns.Count).ClearContents

Rất cảm ơn bạn
befaint

 

[ndu96081631]

bác bận tâm thêm cho em dòng xoa dữ cũ liệu vào với nhé, Cảm ơn bác!

Ở trên đã trả lời rồi nhưng tôi cũng xin gợi ý bạn về cách học để mai này không cần hỏi những câu tương tự như trên nhé!
Đó là nếu bạn không biết code xóa dữ liệu nó như thế nào bạn có thể:
- Bật chức năng record macro lên
- Chọn dòng 2 và xóa
- Tắt record macro
- Bấm Alt + F11 vào xem code
Vậy là bạn có code rồi đó. Những cái đơn giản khác (những cái có thể làm bằng tay) cũng hãy thao tác tương tự để có code

 

[hiénlinh197]

Ở trên đã trả lời rồi nhưng tôi cũng xin gợi ý bạn về cách học để mai này không cần hỏi những câu tương tự như trên nhé!
Đó là nếu bạn không biết code xóa dữ liệu nó như thế nào bạn có thể:
- Bật chức năng record macro lên
- Chọn dòng 2 và xóa
- Tắt record macro
- Bấm Alt + F11 vào xem code
Vậy là bạn có code rồi đó. Những cái đơn giản khác (những cái có thể làm bằng tay) cũng hãy thao tác tương tự để có code

vâng! Rất cảm ơn anh ndu96081631, nhưng mà sửa macro khó quá anh à. Anh có thể sửa giúp em là kết quả trả về từng dòng như file em đính kèm được không?
Cảm ơn anh!

 

[befaint]

kết quả trả về từng dòng như file em đính kèm

Sao đến bài này lại đổi yêu cầu rồi vậy? Bài trước ra kết quả giống y như file yêu cầu rồi mà!!!

Sao chủ đề nào mình cũng lòng vòng vậy?

 

[hiénlinh197]

Sao đến bài này lại đổi yêu cầu rồi vậy? Bài trước ra kết quả giống y như file yêu cầu rồi mà!!!

Sao chủ đề nào mình cũng lòng vòng vậy?

Cảm ơn bạn
befaint

đã giúp đỡ, nhưng thật tình mình thích kiểu phong cách viết của bác ndu96081631 ở bài #17, mình chỉ cần cho thêm mảng vào là oke rồi, không cần thêm cái gì nữa "Bởi vìh min chưa hiểu biết và vận dụng code, nên cái gì ngắn gọn là mình sướng rồi"
Bạn có thể giúp mình giống như vậy được không?

 

[batman1]

Cảm ơn bạn
befaint

đã giúp đỡ, nhưng thật tình mình thích kiểu phong cách viết của bác ndu96081631 ở bài #17, mình chỉ cần cho thêm mảng vào là oke rồi, không cần thêm cái gì nữa "Bởi vìh min chưa hiểu biết và vận dụng code, nên cái gì ngắn gọn là mình sướng rồi"
Bạn có thể giúp mình giống như vậy được không?

Bạn không hiểu một điều đơn giản là khi yêu cầu thay đổi thì rất có thể phải viết code mới. Trong trường hợp này thậm chí nếu muốn dùng đoạn code nào đấy trong bài #17 thì cũng phải viết một code dài để "cố gượng ép" dùng (gọi) code đó. Lúc này thì thà đập đi làm mới còn ngắn và nhanh hơn.

 

[hiénlinh197]

Bạn không hiểu một điều đơn giản là khi yêu cầu thay đổi thì rất có thể phải viết code mới. Trong trường hợp này thậm chí nếu muốn dùng đoạn code nào đấy trong bài #17 thì cũng phải viết một code dài để "cố gượng ép" dùng (gọi) code đó. Lúc này thì thà đập đi làm mới còn ngắn và nhanh hơn.

Cảm ơn bạn! Nhưng code đó nếu như thêm mảng vào thì có phải thêm các vòng lặp vào nữa không?

 

[batman1]

Cảm ơn bạn! Nhưng code đó nếu như thêm mảng vào thì có phải thêm các vòng lặp vào nữa không?

Nếu tôi hiểu ý của bạn thì khi bạn gọi với tham số là 1 mảng thôi thì kết quả sẽ là một mảng liên tục. Đập xuống sheet thì tùy theo cách đập mà sẽ là 1 dòng kết quả hoặc 1 cột kết quả chứ không phải là nhiều dòng kết quả như bạn ghi trong tập tin.
Bạn vẫn cố tình không hiểu

thậm chí nếu muốn dùng đoạn code nào đấy trong bài #17 thì cũng phải viết một code dài để "cố gượng ép" dùng (gọi) code đó. Lúc này thì thà đập đi làm mới còn ngắn và nhanh hơn.

Mà bạn thì muốn code ngắn mà.

 

[befaint]

Tạm...
Nói chung là thua!

 

[hiénlinh197]

Nếu tôi hiểu ý của bạn thì khi bạn gọi với tham số là 1 mảng thôi thì kết quả sẽ là một mảng liên tục. Đập xuống sheet thì tùy theo cách đập mà sẽ là 1 dòng kết quả hoặc 1 cột kết quả chứ không phải là nhiều dòng kết quả như bạn ghi trong tập tin.
Bạn vẫn cố tình không hiểu

Mà bạn thì muốn code ngắn mà.

Bạn batman1 ơi, như file mình đính kèm ở bài #23 đó. Thật sự mình không hiểu nên đôi khi diễn đạt không đúng, bạn thông cảm. Cái này anh @HieuCD cũng viết rồi, nhưng lại phải thêm những vòng lặp để chọn mảng tiếp theo. Mình thấy cũng bất tiện. NHờ bạn sửa giúp mình làm sao như của bác @ndu96081631 là chỉ cần thêm mảng vào là OK.
Cảm ơn bạn rất nhiều!

 

[batman1]

Bạn batman1 NHờ bạn sửa giúp mình làm sao như của bác @ndu96081631 là chỉ cần thêm mảng vào là OK.

Tại sai lại là tôi?
Mà tôi đã nói nhưng bạn cố tình không hiểu.

Lúc này thì thà đập đi làm mới còn ngắn và nhanh hơn.

Chính befaint đang cố "đập đi làm mới". Không còn cách khác đâu.

bótay.com

 

[hiénlinh197]

Tạm...
Nói chung là thua!

rất tuyệt vơi, tuy nhìn code hơi dài một tý, nhưng chạy rất chuẩn "Không biết tốc độ như nào". Cảm ơn bạn
befaint đã giúp đỡ.

 

[hiénlinh197]

Tạm...
Nói chung là thua!

Xin lỗi bạn
befaint
Code này của bạn là tùy biến thêm, bớt mảng rất thuận tiện. Nhưng bạn làm là dồn tất cả các số có mặt trong dòng. Nhưng ý của mình là dồn số liệu nếu như có số liệu trùng nhau thì chỉ lấy 1 số liệu là đại diện. Bạn bớt chút thời gian sửa lại giúp mình với nhé!
Cảm ơn bạn!

 

[VetMini]

Mới lượm được đôi dép cùn, lót ngồi xem.
(lỡ bị CA đuổi chạy mất dép cũng không thiệt thòi nhiều)

 

[hiénlinh197]

Mới lượm được đôi dép cùn, lót ngồi xem.
(lỡ bị CA đuổi chạy mất dép cũng không thiệt thòi nhiều)

Bác
VetMini
biết gì về VBA, code, hay sub() mà cũng nhảy xen vô đây, may ra bác chỉ biết mấy cái công thức toán lớp 3. Thế mà làm còn sai.

 

[thuyyeu99]

Đại cao thủ

 

[batman1]

Nhưng bạn làm là dồn tất cả các số có mặt trong dòng.

Mỗi khi có vụ mới thì phải mô tả kỹ để người khác biết mình muốn gì. Rõ ràng là yêu cầu bây giờ khác yêu cầu ban đầu, nên là vấn đề mới, vậy phải mô tả lại từ đầu.

Tập tin phải có dữ liệu "biết nói". Nếu dữ liệu giả lập là 2, 3, 4, 5 và kết quả mong đợi cũng là 2, 3, 4 và 5 thì người khác có thể hiểu là lấy hết các số có trong dòng. Nếu dữ liệu giả lập là 2, 3, 4, 3, 5, 4, 2 mà kết quả mong đợi là 2, 3, 4 và 5 thì người khác sẽ hiểu là chỉ lấy các giá trị khác nhau từng đôi một. Dữ liệu thứ hai là dữ liệu "biết nói"

Hỏi cũng phải biết hỏi, phải suy nghĩ, để khỏi mất thời gian của người khác.

Mới lượm được đôi dép cùn, lót ngồi xem

Bác cho tôi xin lại được không? Hôm qua tôi xem kịch hay mà bỏ quên.

 

[VetMini]

...
Bác cho tôi xin lại được không? Hôm qua tôi xem kịch hay mà bỏ quên.

Xin lỗi, tôi mới nhỏm dậy đi một chút mà thằng/con nào lại cuỗm mất rồi.
Giờ đi hóng chuyện lại phải tiếp tục trở về cái thế chồm hổm thôi.

 

[AutoReply]

Xin lỗi, tôi mới nhỏm dậy đi một chút mà thằng/con nào lại cuỗm mất rồi.
Giờ đi hóng chuyện lại phải tiếp tục trở về cái thế chồm hổm thôi.

Không sao, đến đây ngồi chung nửa cục gạch với mình nè. Mình rất có cảm tình với mấy người chưa rành toán lớp 3 như bạn.
Biết đâu được xem anh bị phèn xây thêm ngôi nhà mới

 

[batman1]

Xin lỗi, tôi mới nhỏm dậy đi một chút mà thằng/con nào lại cuỗm mất rồi.
Giờ đi hóng chuyện lại phải tiếp tục trở về cái thế chồm hổm thôi.

Bác nhìn xem gần đó có cô nào có vẻ ngoan ngoan không. Cứ chồm hổm bên cạnh một lúc là thể nào cũng có đối thoại (không phải đối thoại trên sân khấu nhé):
- Cháu có ghế tựa, cháu mời bác ngồi ạ,
- Thôi cô ngồi đi, tôi ngồi thì cô ngồi đâu?
- Cháu ngồi đất cũng được ạ.
- Ngồi đất? Thôi, tôi không dám để cô ngồi đất đâu.
- Bác cứ ngồi đi, cháu chịu được mà.
- Tôi cám ơn, nhưng ghế của cô mà.
-Thôi, nếu bác câu nệ thế thì bác ngồi đi, cháu có thể ngồi trên đùi bác được không? Thế là tốt cho cả hai.
- Nhưng đùi tôi xương cứng lắm ...
- Không sao cả. Cháu quen ngồi vào cái gì đó cứng cứng rồi ...