Chạy song song các Sub trong VBA

LeCang99 · 30/8/19

Xin chào toàn thể các Anh/Chị trong diễn đàn.
Xin các Anh/Chị giúp đỡ em về việc chạy song song các Sub trong VBA để tiết kiệm thời gian
Trường hợp như sau ạ:

Sub Run_all ()
Sub1
Sub2
End Sub

Hiện tại khi chạy Run_all() thì Sub1 chạy rồi sau đó Sub2 mới chạy
Câu hỏi cần giúp đỡ:
Có cách nào chạy song song 2 sub mà không đợi Sub trước chạy xong không ạ?
Mong Anh/Chị giúp đỡ.
Cảm ơn các Anh/Chị rất nhiều!

ThangCuAnh · 31/8/19

Ông chỉ được cái nói dài, nói dai, nói viết hưu viết vượn. Tiêu chuẩn người ta quy định nội dung tập tin ở định dạng Unicode, phải có BOM, ông đã không làm đúng mà còn to mồm cãi chày cãi chối, ngụy biện, chữi người này người kia, đòi đuổi việc nhảm nhí. Ông lớn tuổi mà không thấy xấu hổ à, còn chơi cái trò tiểu nhân đi canh đi rình người ta từng chút để bắt lỗi bắt phải trở lại từng câu chữ. Ông không thấy ông tiểu nhân lắm à. Cái tôi ông cao quá à, hay ông trước giờ nghĩ mình là chúa của GPE, giờ ai động tới ông là ông nhảy dựng lên chửi bới ???
Ông tự xem lại mình đi, trình độ ông chỉ khè ở GPE này người ta sợ thôi. Người biết họ cười vào mũi ông đấy.

Bài đã được tự động gộp: 31/8/19

Còn về định dạng, format của file, ông biết được cái gì mà to mồm ? Tôi làm bên lãnh vực forensics, file format nào mà tôi chưa đụng qua, nhìn nội dung file tôi còn đọc được header file, loại file là gì, như thế nào, thì ông đừng có đánh tráo khái niệm dll hay không qua đây cho người không biết sợ. Tôi hỏi ông PE file format là gì ông biết không mà to mồm, MZ là gì, PE là gì... tại sao có những chữ này, ông biết không ?

Bài đã được tự động gộp: 31/8/19

Chỉ ba cái trò VBA với API vớ vẫn, con nít mà đòi đi khè, hù dọa thiên hạ, bắt thiên hạ phải phục nghe lời mình, ông đúng là không biết trời cao đất rộng, con nít đó.
Lớn tuổi rồi,đằm tính,tránh thị phi khẩu nghiệp lạiđi.

batman1 · 31/8/19

Chủ thớt tạo một tập tin mà lõi chắc chắn không là unicode chuẩn. Vị bác học phán: do thiếu BOM. Vậy batman1 lặp y nguyên code của chủ thớt nhưng thêm BOM để chứng minh. Kết cục văn bản vẫn không là unicode chuẩn. Trong khi đó batman1 tạo tập tin nhưng không có BOM, khi mở bằng notepad Word, FilerSystemObject thì ra unicode chuẩn.

Đã nói đi nói lại mà không hiểu à. Lõi mà không là unicode chuẩn thì có thêm 1000 BOM cũng vô ích, không thể là unicode chuẩn được. Còn nếu lõi là unicode chuẩn thì không có BOM nó vẫn chuẩn. Sai sót là chuyện bình thường, nhưng nếu sai mà còn cùn nữa thì bó chân bó tay.

Ở đời có đứa chủ động diễu cợt người khác nhưng không đưa ra được lý do gì thuyết phục nên toàn nói không có trích lục. Không biết thế nào là unicode, về băm + Dictionary thì ngồi im nghe người khác nói. Đã dốt lại còn tự ái.

Trình độ ai thế nào chưa bàn. Nhưng ai từng khoe khoang đấy? Diễn thì cứ diễn thôi nhưng đừng trách khán giả là ít hưởng ứng, là không có một rừng tay vỗ, "tôi chán quá tôi sắp rời khỏi đây". Tự biên tự diễn đi. Ai là kẻ khoe khoang cứ đọc sẽ biết.

ThangCuAnh làm ở lĩnh vực nào ta không quan tâm, ThangCuAnh ạ. Nhưng ThangCuAnh không phải ăn hết trí khôn thiên hạ. Và khi ThangCuAnh sai, nói nhảm nhí thì ta vạch mặt ThangCuAnh. Thế thôi. ThangCuAnh có thể nói này kia nhưng ThangCuAnh chưa bắt bẻ được ta chỗ nào. Còn ta đã chỉ cho ThangCuAnh mấy cái sai của ThangCuAnh rồi. Cứ đọc mấy bài đó thì biết, cần quái gì phải biết ThangCuAnh là ai. ThangCuAnh nói biết cái này, cái kia. Nhưng đến lúc lâm trận ta đã chỉ cho ThangCuAnh những chỗ ThangCuAnh nói bậy. Đừng mang cái Format PE ra dọa người khác. Nhất là khi hầu hết các format có thể tìm đọc trên google. Mà ta nhắc lại: ta không kiếm cơm bằng lập trình . ThangCuAnhy tự khoe là lập trình kiếm cơm, 24/24 nghiên cứu ngày đêm, hàng chục năm mà còn không biết những cái sơ đẳng. ThangCuAnh mới nên hổ thẹn.

Lỗi Encoding Unicode khi xuất dữ liệu từ Excel sang Notepad

Chào cả nhà, mình đang muốn xuất dữ liệu từ Excel sang Notepad với mỗi cột của hàng 1 là tên file và mỗi cột của hàng 2 là nội dung. Mình có tìm được đoạn mã dưới đây nhưng khi xuất ra thì bị lỗi font chữ. Qua tìm hiểu thì mình nghĩ là do Notepad mặc định encoding là ASCII nên mới bị vậy. Xin...

www.giaiphapexcel.com

Nhờ giúp rút gọn 1 chuỗi số.

À mà CRC16 sẽ cho ra kq có thể lớn nhất là 5 số đó bạn, max 32767 hay 65535. Và kg thể tính ngược lại số ban đầu, tức chỉ mã hóa 1 chiều đó bạn. Dùng được kg ? Hàm này cùng 1 chuỗi thì cho ra cùng 1 kq phải k bạn?nếu cùng kq thì dùng được. Bạn hướng dẫn mình dùng hàm này với.

www.giaiphapexcel.com

Không biết cái gì đó không thuộc công việc của mình không phải hổ thẹn. Thậm chí không biết cái gì đó về chuyên môn của mình cũng không có gì phải hổ thẹn, vì bác học cũng có khi nhầm lẫn. Nhưng khi ta nhầm cái gì mà có người nhắc thì ta chấp nhận. Còn đã không biết mà có người chỉ ra lại còn cãi cùn như ThangCuAnh thì mới đáng nói. Ta khác ThangCuAnh ở đó ThangCuAnh ạ. Không phải hổ thẹn vì mình có gì đó không biết. Hổ thẹn khi biết sai mà vẫn cãi cùn. Hết thuốc chữa.
Giỏi thì thi thố với các đồng nghiệp của mình. Đem mình đi so sánh với cô kế toán, với ông chơi lập trình thay game chỉ để tiêu khiển, với ông giám đốc kinh doanh thể cào thì quá hạ thấp mình rồi. Về mà thi với đồng nghiệp đi.

Ai bắt ai phải theo mình thì đọc về Value và Value2 sẽ rõ. Ai ép người khác phải làm theo mình cũng sẽ rõ. Nói không có bằng chứng thì ai cũng nói được. Ta có bằng chứng là ThangCuAnh không biết những cái sơ đẳng. ThangCuAnh chỉ học gạo, học lệch, cần cù mà thôi.

ThangCuAnh không thấy là hàng tuần qua ta tránh ThangCuAnh vì không muốn dây dưa với ThangCuAnh? Nhưng ThangCuAnh cho là mình có quyền diễu cợt và bóp méo lời ta? Và khi ta phản ứng thì "thị phi khẩu nghiệp lạiđi."? Mọi việc bắt đầu từ sự cay cú của ThangCuAnh mà. Khiêu khích người ta nhưng lại muốn người ta im lặng? Có vấn đề gì không đấy.

ThangCuAnh · 1/9/19

Nói tới nói lui ông vẫn chối cái thiếu BOM của ông. Cho dù ruột file là Unicode, mà thiếu BOM (0xFF 0xFE) ở đầu, nhiều chương trình text editor vẫn mỡ sai, không được, vì ông không làm theo tiêu chuẩn standard của người ta đã quy định. Điển hình trong Windows thôi, WordPad mở sai đấy. Ông to mồm nói WordPad không thông minh. Nó không thông minh hay ông làm sai. Nó chưa chửi ông là may đó, ở đó còn cãi chày cãi chối, ngụy biện.
Bao thằng viết Text Editor khác nó cũng sẽ chữi ông đấy.Đã sai mà còn chày cối.
Ông nên nhớ điều này, 100% chương trình hiện nay, khi user yêu cầu lưu file với Unicode format, nó phải và luôn luôn ghi BOM ở đầu. Ông đừng chửi tụi nó ngu nhé. Cả cái TextStream mà ông đang dùng nó cũng ghi BOM đấy, ông không mở = Hex Editor ra xem à. Cái topic chú ý về TextStream đấy, hay ông thấy rồi giả lơ ???
Còn cái vụ rút gọn số, ngay từ đầu chủ thớt đã nói là rút gọn thành 4 số, tôi đã ép qua hex để biểu diển cho 65535 trường hợp. Cái sơ đẵng này ai mà không biết. Và tôi đã nói rõ là với nhu cầu của chủ thớt hy vọng sẽ không trùng. Chứ nếu ngay từ đầu chủ thớt bên đó nói 6 chữ số thì đố ông ngồi đó mà ráng mày mò tìm cho ra cái trùng để cố bôi bác tôi. Thế cuối cùng cái Base36 đó thì sao, 6 số đó, trùng không. Sao im ru vậy. Tui dùng Crc32 cũng được thì sao ? Chỉ giỏi canh rình mò cái sai của người khác để ngụy biện, cãi chày cãi chối, bào chữa.
Đúng là thù dai, thù vặt, con nít quá ông ơi, ông bất mãn à.

anhtuanle123 · 1/9/19

@@
em xin có chút ý kiến về vấn đề của bác chủ thớt !
tức là macro của anh í có 1 yêu cầu gửi đến 1 trang web nào đó , nhận yêu cầu về và ghi kết quả vào Excel ,
thời gian mất là 7 giây , vâng , chỉ 7 giây thôi , cứ cho excel tính toán hết 1 giây đi , thì còn 6 giây !
nhưng mình thắc mắc là 6 giây này là hàm xử lý web nó dừng lại ngay chỗ đó để xử lý , hay mình đợi 6 giây rồi nhấn nút tiếp theo nhỉ ?
tức là nhấn vào nút thứ nhất để nó thiết lập môi trường web , và gửi yêu cầu đến web , xong mình đợi 6 giây cho nó xử lý (1)
hay là hàm xử lý web nó mất 6 giây để xử lý , trong lúc đó mình không làm gì được (2)

nhiều khả năng là (1) vì thế bạn mới nghĩ ra cái vụ 2 hàm lồng nhau ^^
tức là trong lúc chờ cho yêu cầu thứ nhất nó thiết lập môi trường , thì tranh thủ gọi yêu cầu thứ 2 ,3,4,5
xong đủ 6 giây thì lên web lấy kết quả thứ nhất ghi vào record thứ nhất !
nếu vậy thì tạo hàm lồng nhau cũng được !
tất cả chỉ cần cho nó vào 1 vòng lặp lớn , lặp đi lặp lại ,
khai báo 8000 đối tượng kết nối web , mỗi lần lặp lại thì cập nhật thời gian của từng đối tượng web đủ 6 giây thì lấy kết quả !
nhưng vì ta dựa trên công cụ web có sẵn thì cách này giống như mở 8000 trình duyệt 1 lúc vậy !

còn cách nữa áp dụng cho cả (1) và (2) , đó là tạo ra 100 file Excel chạy 1 lúc , gọi 100 file Excel chạy song song , mỗi file gánh 80 code
vậy thì cũng là có đa tiểu trình vậy , kaka

còn cách nữa là sắm 100 cái máy ,
cách này thì đảm bảo thời gian giảm xuống 100 lần , nhưng coi chừng server web bị DDOS liệt mất ^^
các bạn thảo luận thêm nha !

VetMini · 1/9/19

Nguyễn Duy Tuân đã viết:
.... Em chưa thấy khách hàng nào hay những người em biết là dân chuyên làm Excel lại nói tốc độ không quan trọng cả. ...

Xin phép nói về lời tuyên bố "chưa thấy" của bạn.
Khi bạn nói như vậy thì phải chăng ý bạn muốn trình bày rằng "trong lúc đặt hàng, khách hàng có yêu cầu sản phẩm phải chạy nhanh; và yêu cầu này được xếp ngang hoặc cao hơn các yêu cầu khác như độ tin cậy, khả năng bảo trì, chi phí huấn luyện, bảo trì, ..."
Nếu đúng thế thì cái giới chuyên giao dịch mua sản phẩm của bạn có thể:
1. cho rằng có thể đòi hỏi được tốc độ thì tội gì không đòi hỏi, HOẶC
2. chả biết cách đo các tính chất khác của phần mềm cho nên phải đòi tốc độ thôi. Bởi vì tốc độ là cái đo dễ nhất.

"Thấy" hay không là do môi trường thôi. Ở mục "Lập Trình" này bà con chỉ chú ý vào cái mớ xảo thuật của người lập trình cho nên đâu có màng gì đến chuyện tiếng Anh có chuẩn hay không. Gõ một cái tiêu đề mà cắt đi được 3 hay 4 ký tự thì cũng nhanh được khoảng 0,5 giây.

batman1 · 1/9/19

Cho dù ruột file là Unicode, mà thiếu BOM (0xFF 0xFE) ở đầu, nhiều chương trình text editor vẫn mỡ sai, không được, vì ông không làm theo tiêu chuẩn standard của người ta đã quy định.

Nhưng thằng notepad, thằng Word, thằng FileSystemObject mở được. Thế mà ThangCuAnh dùng Word mà không biết mở thì là gì? Là không biết mở chứ còn gì. Tự vỗ ngực là lập trình kiếm cơm mà không biết mở tập tin trong Word lại còn cùn. Ta không nói tới những chương trình không biết mở tập tin không có BOM. Ta nói tới chương trình biết mở là Word. Nhưng ThangCuAnh dùng Word mà không biết mở. Nói cụ thể về Word thôi. Dữ liệu không do mình tạo ra thì nhiều khi không hẳn hoàn hảo. Làm thằng lập trình kiếm cơm mà không biết xử lý những trường hợp đặc biệt thì tự xấu hổ mà chui xuống đất thôi. Nếu notepad mở được, Word mở được, FileSystemObject mở được mà Wordpad không mở được thì rõ ràng trong vấn đề cụ thể này Wordpad kém 3 anh kia rồi. Còn cùn gì nữa. Ra cuộc thi có bài không đúng "tủ" nhưng anh A, B, C làm được còn anh D học tủ, gặp bài khác tủ thì bó tay thì là gì? Là kém anh A B, C chứ còn gì nữa.
Làm thằng lập trình kiếm cơm mà khi gặp tập tin không có BOM thì đầu hàng vì không biết mở, không biết xử lý thì đừng cùn. Vì trong cuộc sống không phải cái gì cũng theo khuôn, theo mẫu. Người có năng lực là người biết xử lý những trườngn hợp đa dạng của cuộc sống. Vì cuộc sống có muôn vàn tình huống không như trong sách. Chính vì thế có những thằng học lý thuyết có thể giỏi nhưng ra cuộc sống, vào thực tế thì rất kém. Ôm mớ lý thuyết thì khi gặp thực tế không hoàn hảo như lý thuyết thì bó tay như ThangCuAnh.

Bao thằng viết Text Editor khác nó cũng sẽ chữi ông đấy

Không thằng nào có quyền chửi ta. Mà cứ cho là nó chửi đi nhưng việc chúng phải xử lý tập tin không hoàn hảo thì dù chúng chửi nhưng chúng vẫn cắn răng xử lý tập tin không hoàn hảo đó, điển hình là thằng Word. Vì chúng biết xử lý, và vì chúng phải làm vì bát cơm. Còn ta nói về vấn đề rất cụ thể. ThangCuAnh cũng sẽ chửi nhưng ThangCuAnh không cắn răng xử lý. Vì đơn giản ThangCuAnh không biết xử lý.
Tóm lại ta không bàn tới chuyện tập tin không có BOM là hoàn hảo hay không. Cũng không bàn chuyện liệu có thằng nào chửi hay không. Nhưng sự thật là thằng notepad, thằng Word, thằng FileSystemObject mở được. Có thể chúng chửi nhưng chúng mở được. Còn ThangCuAnh chửi nhưng ThangCuAnh không biết mở. Làm thằng lập trình kiếm cơm mà thế thì kiến thức mảng này quá yếu. Đọc câu mà ThangCuAnh cho là thiếu BOM thì tập tin không là unicode thì đủ biết kiến thức của kẻ vỗ ngực tự xưng lập trình kiếm cơm nó có những lỗ hổng to như thế nào.
Cãi chầy cối làm gì. Ta không bàn chuyện

"00% chương trình hiện nay, khi user yêu cầu lưu file với Unicode format, nó phải và luôn luôn ghi BOM ở đầu".

Ta nói về trường hợp phần mềm do ThangCuAnh viết có việc: sau khi user chọn tập tin thì nó đọc vào và xử lý. Khi user chọn 1 tập tin lấy từ "cuộc sống" và không có BOM thì chương trình của ThangCuAnh bó tay. Đừng nói về những chương trình khác. Ta nói về tình huống cụ thể mà chương trình của ThangCuAnh không làm được vì ThangCuAnh không biết mở.

"TextStream mà ông đang dùng nó cũng ghi BOM đấy, "

Thì hoan hô nó. Và hoan hô nó vì dù nó làm chuẩn nhưng khi gặp tập tin không hoàn hảo nó vẫn xử lý được. Còn ThangCuAnh gặp tập tin không hoàn hảo thì bó tay. Đã dốt lại còn cùn. Ta nói về người cụ thể là ThangCuAnh. Ta nói về việc cụ thể là mở tập tin không có BOM. Ta, batman1, dùng notepad, Word, FileSystemObject và mở được nhưng ThangCuAnh dùng chúng thì không biết mở. Ta nói về việc cụ thể này nên đừng viết lạc đề nữa nhé.
Sự việc không biết rõ "băm" + Dictionary mà nói bừa thì cứ đọc chủ đề sẽ biết. Lời khuyên: nếu cái gì không biết rõ thì đừng nói. Nếu không biết rõ mà cứ nói thì nếu nói sai nên chấp nhận. Cái gì không biết mà vẫn phát biểu rồi khi có người chỉ cho cái sai thì cùn là không nên.
Ai chầy cối, ai cùn tthì đọc là biết chứ có phải nói bừa được đâu.

Lỗi Encoding Unicode khi xuất dữ liệu từ Excel sang Notepad

Chào cả nhà, mình đang muốn xuất dữ liệu từ Excel sang Notepad với mỗi cột của hàng 1 là tên file và mỗi cột của hàng 2 là nội dung. Mình có tìm được đoạn mã dưới đây nhưng khi xuất ra thì bị lỗi font chữ. Qua tìm hiểu thì mình nghĩ là do Notepad mặc định encoding là ASCII nên mới bị vậy. Xin...

www.giaiphapexcel.com

Nhờ giúp rút gọn 1 chuỗi số.

À mà CRC16 sẽ cho ra kq có thể lớn nhất là 5 số đó bạn, max 32767 hay 65535. Và kg thể tính ngược lại số ban đầu, tức chỉ mã hóa 1 chiều đó bạn. Dùng được kg ? Hàm này cùng 1 chuỗi thì cho ra cùng 1 kq phải k bạn?nếu cùng kq thì dùng được. Bạn hướng dẫn mình dùng hàm này với.

www.giaiphapexcel.com

Ai cũng có những sai sót. Đó là chuyện thường tình. Con người mà. Nhưng khi sai mà có người chỉ ra lại chơi bài cùn, cay cú thì chỉ có ThangCuAnh.

Đúng là thù dai, thù vặt, con nít quá ông ơi, ông bất mãn à.

Đúng là vừa ăn cướp vừa la làng.

Hãy đọc lại nếu quên thì biết nguyên nhân từ đâu. Nói diễu, bóp méo lời nói của người khác, khiêu khích mà cho là người ta không có quyền phản ứng? Trơ tráo đến thế là cùng.

Chạy song song các Sub trong VBA

LeCang99

Thành viên mới

ThangCuAnh

Mới rờ Ét xeo

batman1

Thành viên gạo cội

Lỗi Encoding Unicode khi xuất dữ liệu từ Excel sang Notepad

Nhờ giúp rút gọn 1 chuỗi số.

ThangCuAnh

Mới rờ Ét xeo

anhtuanle123

Thành viên thường trực

VetMini

Ăn cùng góc phố

batman1

Thành viên gạo cội

Lỗi Encoding Unicode khi xuất dữ liệu từ Excel sang Notepad

Nhờ giúp rút gọn 1 chuỗi số.

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian