Hỏi về công thức mảng (1 người xem)

[thuyyeu99]

Các anh chị nào biết công thức mảng bằng VBA cho em hỏi xíu nhé.

Em đang mò mẫm về cách viết công thức mảng, nhưng còn lăn tăng 1 chỗ là khi viết công thức mảng có nên gán hết công thức vào trong 1 vùng không hay là chỉ Gán giá trị vào vùng đó (khi nào cần up1date thì chỉ việc Enter vào ô chứa công thức thì dữ liệu sẽ cập nhật lại).

Cám ơn các anh chị quan tâm!

Supper UDF SQL version 2

Hàm Supper UDF SQL version 2.1 hihihi (Hàm Group Concat trong T_SQL)

 

[thuyyeu99]

COI DÙM Mạnh
View attachment 211651

anh sai cái đoạn code thứ 1 hay thứ 2 vậy

 

[Kiều Mạnh]

anh sai cái đoạn code thứ 1 hay thứ 2 vậy

cả 2 code

 

[thuyyeu99]

cả 2 code

ủa sao em không bị lỗi #Value
em chép vô chạy mượt mà

 

[Kiều Mạnh]

View attachment 211653
ủa sao em không bị lỗi #Value
em chép vô chạy mượt mà

THUA ... KO BIẾT SAO LUÔN

 

[thuyyeu99]

THUA ... KO BIẾT SAO LUÔN

roi phát hiện ra rồi đợi em làm chút việc đã rồi em xửa cho

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

THUA ... KO BIẾT SAO LUÔN

Check mail di anh

 

[Kiều Mạnh]

roi phát hiện ra rồi đợi em làm chút việc đã rồi em xửa cho

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

Check mail di anh

thấy có từ này ko biết chi luôn

xlA1

 

[thuyyeu99]

thấy có từ này ko biết chi luôn

xlA1

Chang qua máy cái tham số $ ấy mà
Mà chạy chưa

 

[Kiều Mạnh]

Chang qua máy cái tham số $ ấy mà
Mà chạy chưa

build nó báo lỗi cái dòng

Result

Viết ẩu quá viết lại chính xác cho cái đi
Lỗi nè

 

[thuyyeu99]

build nó báo lỗi cái dòng

Result

Viết ẩu quá viết lại chính xác cho cái đi
Lỗi nè
View attachment 211654

Anh coi anh chép vô sao do no khong co xuống dòng đâu nhé, tự chép vào mail nó tự xuống dòng ý

 

[Kiều Mạnh]

Anh coi anh chép vô sao do no khong co xuống dòng đâu nhé, tự chép vào mail nó tự xuống dòng ýView attachment 211657

thử tới lui nó vẫn báo #Value!
Gửi lại chi Mạnh vào file txt xem sao

 

[Kiều Mạnh]

Nó có vầy thui mà nhiều chuyện từ sáng tới giờ

Result:=EmptyParam;

Muốn gõ kiểu chi cũng ok đó

 

[Kiều Mạnh]

Anh coi anh chép vô sao do no khong co xuống dòng đâu nhé, tự chép vào mail nó tự xuống dòng ýView attachment 211657

Cho Mạnh hỏi chút
1/ Khi mạnh xài hàm như sau thì chạy tốt

[a1]=SupperSQL("D:\DelphiExamples\VBLibrary\Win32\Debug\Data.xlsb", "Select * from [Data_Nhap$A1:I100]","A6")

2/ Khi mạnh sử dụng hàm như hình sau thì báo lỗi ... cách xử lý nó hay thêm cái Gì ???

 

[tam888]

Cho Mạnh hỏi chút
1/ Khi mạnh xài hàm như sau thì chạy tốt

[a1]=SupperSQL("D:\DelphiExamples\VBLibrary\Win32\Debug\Data.xlsb", "Select * from [Data_Nhap$A1:I100]","A6")

2/ Khi mạnh sử dụng hàm như hình sau thì báo lỗi ... cách xử lý nó hay thêm cái Gì ???
View attachment 211669

Với 2/ thử tại A6 gõ chữ (text) "A6" vào ... chắc được.
Nếu được thì sẽ tự biết có cách đúng không?

 

[Kiều Mạnh]

Với 2/ thử tại A6 gõ chữ (text) "A6" vào ... chắc được.
Nếu được thì sẽ tự biết có cách đúng không?

Cảm ơn bạn chính xác là nó

 

[Kiều Mạnh]

Mò code diết mờ cả mắt
1/ nhờ các bạn test dùm code hàm mảng cho Mạnh với xem Office x32 hay office x64 trên các máy khác nó có chạy không
2/ Không sử dụng được cho Office 2003 To 2007
3/ Bước đầu mạnh mới viết cho nó chạy ok cái đã ... còn cái Co và Giản kia khó quá chưa mò ra .... rồi có ngày sẻ mò ra thôi ...
4/ Code trên Delphi phải nói là chạy tốc độ thật
5/ Sử dụng code

Sub Main_SupperSQL()
    Dim ExcelPath As Variant
    Dim SQL As Variant
    Range("A2:I1000").ClearContents
    SQL = "Select * from [Data_Nhap$A1:I]"
    ExcelPath = ThisWorkbook.Path & "\Data.xlsb"
    Rem Call SupperSQL("D:\SupperSQL\SupperSQL_Officex32\Data.xlsb", "Select * from [Data_Nhap$A1:I100]", "A9")
    Call SupperSQL(ExcelPath, "Select * from [Data_Nhap$A1:I100]", "A9")
End Sub

6/ Sử dụng hàm

cách 1
[A1]= SupperSQL("D:\SupperSQL\SupperSQL_Officex32\Data.xlsb", "Select * from [Data_Nhap$A1:I100]", "A9")
cách 2
[a1]=SupperSQL(K1,K2,"A9")

7/ Tham số A9 là nơi gán kết quả
Xin cảm ơn

 

[Kiều Mạnh]

To @thuyyeu99
Chỉ dùm Mạnh làm sao code nó nhớ được cái vùng vũng liệu gán lên sheet sau mỗi lần chạy code

1/ VD lần 1: Mạnh lấy 10 dòng
2/ VD lần 2: Mạnh lấy 100 dòng
3/ VD lần 3: Mạnh lấy 15 dòng .... xong thoát file không lưu

xong lần 3 trên mở lại file Excel đó .... vậy chỉ mạnh cách lấy số dòng hiện có trên Sheet Tính Từ Cells nó gán kết quả
.......
Nếu giúp Mạnh OK mấy cái trên kể coi như mọi cái xong hết Ròi đó he ..... đang kẹt nhất khúc này !!!!!????

Mong trợ giúp Mạnh he

 

[thuyyeu99]

To @thuyyeu99
Chỉ dùm Mạnh làm sao code nó nhớ được cái vùng vũng liệu gán lên sheet sau mỗi lần chạy code

1/ VD lần 1: Mạnh lấy 10 dòng
2/ VD lần 2: Mạnh lấy 100 dòng
3/ VD lần 3: Mạnh lấy 15 dòng .... xong thoát file không lưu

xong lần 3 trên mở lại file Excel đó .... vậy chỉ mạnh cách lấy số dòng hiện có trên Sheet Tính Từ Cells nó gán kết quả
.......
Nếu giúp Mạnh OK mấy cái trên kể coi như mọi cái xong hết Ròi đó he ..... đang kẹt nhất khúc này !!!!!????

Mong trợ giúp Mạnh he

Hihi anh hỏi đúng chỗ khó đấy.
Gợi ý cho anh nhé
Trong Excel Anh muốn ghi nhớ 1 vùng Address thì anh sẽ dùng dùng những cách nào, chắc chắn là không ghi vào Cell rồi, anh sắp ra rồi đấy .
Ví dụ: có thể add vào Dic, String, Clection, RangeName .v....v.....v.. Quan trọng anh cất ở học tủ nào giờ anh kéo học tủ đó ra mà lấy thôi.
Em up cái vi deo Vesion 2 cho anh coi hihih

 

[Kiều Mạnh]

Hihi anh hỏi đúng chỗ khó đấy.
Gợi ý cho anh nhé
Trong Excel Anh muốn ghi nhớ 1 vùng Address thì anh sẽ dùng dùng những cách nào, chắc chắn là không ghi vào Cell rồi, anh sắp ra rồi đấy .
Ví dụ: có thể add vào Dic, String, Clection, RangeName .v....v.....v.. Quan trọng anh cất ở học tủ nào giờ anh kéo học tủ đó ra mà lấy thôi.
Em up cái vi deo Vesion 2 cho anh coi hihih

Chỉ kiểu Anh cần cái cần ra sông xong thả câu xuống .... kiểu gì cũng có con cá về nhậu he

Mạnh có thể lấy cái Name của chính nó .... nhưng ko thích kiểu này .... vì nó lại phát sinh cái khác

 

[thuyyeu99]

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

Chỉ kiểu Anh cần cái cần ra sông xong thả câu xuống .... kiểu gì cũng có con cá về nhậu he

Mạnh có thể lấy cái Name của chính nó .... nhưng ko thích kiểu này .... vì nó lại phát sinh cái khác

trời ơi anh không biết tạo cái mới hả

 

[Kiều Mạnh]

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

trời ơi anh không biết tạo cái mới hả

Gửi Sư Phụ Bức Tranh ko lời ... ??!!!

Tuy nhiên Mạnh ko thích cách này lắm .... Mò tiếp tìm kiếm một giải Pháp mới

 

[thuyyeu99]

Gửi Sư Phụ Bức Tranh ko lời ... ??!!!

Tuy nhiên Mạnh ko thích cách này lắm .... Mò tiếp tìm kiếm một giải Pháp mới


View attachment 211753

Hihihi xin lỗi, sư phụ muốn đệ tử nghiên cứu, chứ sư phụ đã nói là linh động xử lý, doc 2 bài viết, chịu để ý chút là ra ngay. Chứ cầm tay chỉ việc là không có đâu hihihihi

Su phụ cũng phải nghiên cứu nó mới ra
Khi de tu ngón cứu ra nó mới có ý nghĩa hehehr
Chưa kể sẽ có 1 số diễn dàn khác câu like

 

[Kiều Mạnh]

Hihihi xin lỗi, sư phụ muốn đệ tử nghiên cứu, chứ sư phụ đã nói là linh động xử lý, doc 2 bài viết, chịu để ý chút là ra ngay. Chứ cầm tay chỉ việc là không có đâu hihihihi

Su phụ cũng phải nghiên cứu nó mới ra
Khi de tu ngón cứu ra nó mới có ý nghĩa hehehr

đang bị rắc rối nè ... quả là mò ra cái này nó lại phát sinh cái khác .... chỉ dùm mạnh với
1/ khi thay đổi tham số dòng liên tục cho nó chạy co và giản xem sao ... cuối cùng nó báo lỗi kết nối ko thể mở file ... xong đơ excel thoát luôn
2/ Chỉ mạnh cách khác phục lỗi đó ??!!!

 

[thuyyeu99]

đang bị rắc rối nè ... quả là mò ra cái này nó lại phát sinh cái khác .... chỉ dùm mạnh với
1/ khi thay đổi tham số dòng liên tục cho nó chạy co và giản xem sao ... cuối cùng nó báo lỗi kết nối ko thể mở file ... xong đơ excel thoát luôn
2/ Chỉ mạnh cách khác phục lỗi đó ??!!!

Anh thử nghiên cứu xem, em còn nghiêm ra huong chi là anh. Những gì anh vướng em cũng vướng và em đã vượt qua anh cố gắng lên sắp xong rồi đó hihi

 

[Kiều Mạnh]

Anh thử nghiên cứu xem, em còn nghiêm ra huong chi là anh. Những gì anh vướng em cũng vướng và em đã vượt qua anh cố gắng lên sắp xong rồi đó hihi

OK ... mò tiếp he

 

[Kiều Mạnh]

Anh thử nghiên cứu xem, em còn nghiêm ra huong chi là anh. Những gì anh vướng em cũng vướng và em đã vượt qua anh cố gắng lên sắp xong rồi đó hihi

Mạnh biết cái lỗi đó rồi .... nó liên quan link tinh hết ấy .... hướng làm và kết quả ok hết rồi vấn đề còn lại là xử lý lỗi + tinh chỉnh code + tùy biến thêm Hàm

 

[thuyyeu99]

Mạnh biết cái lỗi đó rồi .... nó liên quan link tinh hết ấy .... hướng làm và kết quả ok hết rồi vấn đề còn lại là xử lý lỗi + tinh chỉnh code + tùy biến thêm Hàm

Anh là "Trùm Mò"

 

[Kiều Mạnh]

Anh là "Trùm Mò"

đang tìm giải pháp mới nè coi xem cái nào ok nhất thì chọn ... kiểu chi cũng quậy rồi thì quậy cho nó tanh bành các kiểu luôn he
https://www.giaiphapexcel.com/diendan/threads/cách-chèn-và-delete-dòng-cột-theo-vùng-dữ-liệu-động-lấy-lên-sheet.140533/

 

[thuyyeu99]

Hàm A_SQL Vesion 2.1 hihihi (Hàm Group Concat) T_SQL

 

[Nguyễn Duy Tuân]

Cày giỏi ghê . E thử trường hợp sau xem ok chưa?
SELECT LEFT(co1,2) AS [Cột số 1], LEFT(co3,2) AS [Cột số 3], GROUP_CONCAT(cot2)... ORDER BY LEFT(co1,2) ASC, LEFT(co3,2) DESC

 

[thuyyeu99]

Cày giỏi ghê . E thử trường hợp sau xem ok chưa?
SELECT LEFT(co1,2) AS [Cột số 1], LEFT(co3,2) AS [Cột số 3], GROUP_CONCAT(cot2)... ORDER BY LEFT(co1,2) ASC, LEFT(co3,2) DESC

Phương án 1 lỗi anh.
Phương án 2 chạy tốt nhưng chưa hoàn thiện em đang chỉnh chút xíu lại code (mai mốt có thể thêm hàm vào luôn). hihihih

 

[Kiều Mạnh]

Phương án 1 lỗi anh.
Phương án 2 chạy tốt nhưng chưa hoàn thiện em đang chỉnh chút xíu lại code (mai mốt có thể thêm hàm vào luôn). hihihih

Viết có khó lắm không nhỉ ... mạnh ko thích cái này lắm nhưng thấy lạ lại hay tò mò thử xem sao???!!!
mà lại ko biết bắt đầu từ đâu ???

Xin chúc mừng đã làm được cái mình muốn he

 

[thuyyeu99]

Viết có khó lắm không nhỉ ... mạnh ko thích cái này lắm nhưng thấy lạ lại hay tò mò thử xem sao???!!!
mà lại ko biết bắt đầu từ đâu ???

Xin chúc mừng đã làm được cái mình muốn he

Cũng đơn giản ah anh.

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

Cày giỏi ghê . E thử trường hợp sau xem ok chưa?
SELECT LEFT(co1,2) AS [Cột số 1], LEFT(co3,2) AS [Cột số 3], GROUP_CONCAT(cot2)... ORDER BY LEFT(co1,2) ASC, LEFT(co3,2) DESC

Cám ơn anh nhé, Em dùng Phương án 1 Fix hết lỗi rồi hihihihihihih. để mai rảnh em Poss lên
anh còn trường hợp nào khó nữa không anh Tuân

 

[vova2209]

Delphi giờ nên cài anh Tuân nhỉ. Như autocad thì em dùng 2008 là đủ dùng vào nhẹ

 

[thuyyeu99]

Sài ngôn ngữ nào cũng được quan trọng mình đam mê

 

[Huuhoan91]

Các a chị cho em hỏi vs. Cả excel và world của em. Cái font style đều mất cái regular. nên giờ viết chữ trong world thì nó tự in đậm. còn trong excel thì nó tự in nghiêng.

 

[Nguyễn Duy Tuân]

Delphi giờ nên cài anh Tuân nhỉ. Như autocad thì em dùng 2008 là đủ dùng vào nhẹ

Ok em.

 

[vova2209]

Ok em.

em hỏi nhầm! nên cài phiên bản nào
Cho em xin bản cài đặt và giáo trình hướng dẫn cơ bản, em xin cảm ơn!