Hỏi về công thức mảng

thuyyeu99 · 8/1/19

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 · 22/1/19

Đúng là viết hàm mãng thuần trong Delphi khó thật, em viết Fill được công thức mãng trong vùng được rồi, bây giờ lại nãy sinh 1 vấn đề. Em get record vào mãng Array (em khai báo là OleVariant) trong delphi đọc đựợc nhưng Result :=Array trong Excel nó lại không hiểu

Nguyễn Duy Tuân · 22/1/19

thuyyeu99 đã viết:
Đúng là viết hàm mãng thuần trong Delphi khó thật, em viết Fill được công thức mãng trong vùng được rồi, bây giờ lại nãy sinh 1 vấn đề. Em get record vào mãng Array (em khai báo là OleVariant) trong delphi đọc đựợc nhưng Result :=Array trong Excel nó lại không hiểu

Mảng trong Excel là chuẩn của API: PSafeArray. Mảng trong Delphi có hai loại Array thuần của Delphi thì chỉ dùng trong Delphi, còn Array để giao tiếp với các ứng dụng khác thì phải là PSafeArray. Em tạo bảng hàm VarArrayCreate() là tạo PSafeArray. Với Excel thì thì nó là mảng 2D. Làm theo hướng này là ok nhé.

thuyyeu99 · 22/1/19

Nguyễn Duy Tuân đã viết:
Mảng trong Excel là chuẩn của API: PSafeArray. Mảng trong Delphi có hai loại Array thuần của Delphi thì chỉ dùng trong Delphi, còn Array để giao tiếp với các ứng dụng khác thì phải là PSafeArray. Em tạo bảng hàm VarArrayCreate() là tạo PSafeArray. Với Excel thì thì nó là mảng 2D. Làm theo hướng này là ok nhé.

anh có thể cho em cai vi dụ nho nhỏ về làm sao để dưa recoset vào VarArrayCreate() là tạo PSafeArray , từ PSafeArray có thể Return (Olevariant) duoc không anh

Kiều Mạnh · 22/1/19

Thử đưa nó hết vào mãng xong duyệt xem sao lấy số dòng và cột ??!!

Nguyễn Duy Tuân · 22/1/19

thuyyeu99 đã viết:
anh có thể cho em cai vi dụ nho nhỏ về làm sao để dưa recoset vào VarArrayCreate() là tạo PSafeArray , từ PSafeArray có thể Return (Olevariant) duoc không anh

Em dùng biến Kiểu Variant thay cho OleVariant (về cơ bản 2 kiểu này gần tương đương).

var
arr: Variant;
begin
arr := VarArrayCreate([1, sodong, 1, so cot], varVariant);

dùng vòng lặp duyệt từng record trong recodeset và nhặt vào mảng Arr[I,J]

end;

Cách tạo mảng này có trong box học Delphi đó.

thuyyeu99 · 22/1/19

Nguyễn Duy Tuân đã viết:
Em dùng biến Kiểu Variant thay cho OleVariant (về cơ bản 2 kiểu này gần tương đương).

var
arr: Variant;
begin
arr := VarArrayCreate([1, sodong, 1, so cot], varVariant);

dùng vòng lặp duyệt từng record trong recodeset và nhặt vào mảng Arr[I,J]

end;

Cách tạo mảng này có trong box học Delphi đó.

Mã:

     Result := VarArrayCreate([1, oRs.RecordCount+1, 1, oRs.Fields.Count+1], varVariant);
      oRS.MoveFirst;
      row := 1;
        while not oRS.Eof do
        begin
          for col:=1 to oRS.Fields.Count do
          Result[row,col] := oRS.Fields[col-1].Value;
    inc(row);
    oRS.MoveNext;
   end;

Nó vẫn báo #Value anh

Nguyễn Duy Tuân · 22/1/19

Bằng mọi giá bạn phải tạo đc mảng như mình nói trên thành công. Hãy test thử bằng cách viết hàm API trong DLL của Delphi theo bài hướng dẫn của anh đã. Nếu mảng đó em gán được ra sheet trong VBA là mảng đó Ok. Tron code trên em tạo số phần tử mảng bị thừa 1 cả số dòng và số cột.

thuyyeu99 · 22/1/19

Nguyễn Duy Tuân đã viết:
Bằng mọi giá bạn phải tạo đc mảng như mình nói trên thành công. Hãy test thử bằng cách viết hàm API trong DLL của Delphi theo bài hướng dẫn của anh đã. Nếu mảng đó em gán được ra sheet trong VBA là mảng đó Ok. Tron code trên em tạo số phần tử mảng bị thừa 1 cả số dòng và số cột.

Trong vba thì dễ rồi anh, làm cái ra liền mà cũng mã đó đưa vô Delphi nó lại vậy, em test trong Delphi thì ok mà cứ dùng bên Excel là bị vậy khng6 hiểu nổi
Em viet trong VBA cũng y chang như vậy

Nguyễn Duy Tuân · 22/1/19

Ý mình là bạn viết hàm tạo mảng, kiểu trả về là Variant (hàm được tạo bởi VarArrayCreate() ). Rồi khai báo API trong VBA , paste nó vào ô. Không cần dụng gì hàm mảng đâu. Nếu chạy được rồi bạn mới áp dụng hàm đó vào hàm mảng của bạn.

function GetArray(): Variant; stdcall;
begin
Result := VarArrayCreate(...);
//làm các lệnh lấy dữ liệu cho mảng
end;
excports
GetArray

Bây giờ khai báo API hàm đó trong VBA xem chạy được không?
Trong ví dụ tạo mảng của bạn, nếu mảng chứa cả dòng tiêu đề cột thì số phần tử dòng trong mảng là RecordCount + 1 là đúng.

thuyyeu99 · 22/1/19

Nguyễn Duy Tuân đã viết:
Ý mình là bạn viết hàm tạo mảng, kiểu trả về là Variant (hàm được tạo bởi VarArrayCreate() ). Rồi khai báo API trong VBA , paste nó vào ô. Không cần dụng gì hàm mảng đâu. Nếu chạy được rồi bạn mới áp dụng hàm đó vào hàm mảng của bạn.

function GetArray(): Variant; stdcall;
begin
Result := VarArrayCreate(...);
//làm các lệnh lấy dữ liệu cho mảng
end;
excports
GetArray

Bây giờ khai báo API hàm đó trong VBA xem chạy được không?
Trong ví dụ tạo mảng của bạn, nếu mảng chứa cả dòng tiêu đề cột thì số phần tử dòng trong mảng là RecordCount + 1 là đúng.

Ah để em test thử

thuyyeu99 · 22/1/19

Nguyễn Duy Tuân đã viết:
Ý mình là bạn viết hàm tạo mảng, kiểu trả về là Variant (hàm được tạo bởi VarArrayCreate() ). Rồi khai báo API trong VBA , paste nó vào ô. Không cần dụng gì hàm mảng đâu. Nếu chạy được rồi bạn mới áp dụng hàm đó vào hàm mảng của bạn.

function GetArray(): Variant; stdcall;
begin
Result := VarArrayCreate(...);
//làm các lệnh lấy dữ liệu cho mảng
end;
excports
GetArray

Bây giờ khai báo API hàm đó trong VBA xem chạy được không?
Trong ví dụ tạo mảng của bạn, nếu mảng chứa cả dòng tiêu đề cột thì số phần tử dòng trong mảng là RecordCount + 1 là đúng.

Dạ Chạy ok anh

Nguyễn Duy Tuân · 22/1/19

thuyyeu99 đã viết:
View attachment 211441

Dạ Chạy ok anh

Vậy là đạt yêu cầu mảng rồi đó.

thuyyeu99 · 22/1/19

Nguyễn Duy Tuân đã viết:
Vậy là đạt yêu cầu mảng rồi đó.

Cái dụ này mò mệt mỏi ah anh, tức là em làm đúng......

thuyyeu99 · 22/1/19

thuyyeu99 · 22/1/19

Nguyễn Duy Tuân
hihi có thể em mò ra rồi để mai em thử, không để ý máy cái hướng dẫn của anh

thuyyeu99 · 23/1/19

Nguyễn Duy Tuân đã viết:
Vậy là đạt yêu cầu mảng rồi đó.

Trời ơi, em mò ra lỗi rồi, một cái lỗi đơn giản do tại em bẫy lỗi sai mà nó giải phóng Array hết anh Tuân ơi. :''"

Nguyễn Duy Tuân · 23/1/19

thuyyeu99 đã viết:
Trời ơi, em mò ra lỗi rồi, một cái lỗi đơn giản do tại em bẫy lỗi sai mà nó giải phóng Array hết anh Tuân ơi.

Lỗi mảng được giải phóng khỏi bộ nhớ là tốt đấy chứ

thuyyeu99 · 23/1/19

Nguyễn Duy Tuân đã viết:
Lỗi mảng được giải phóng khỏi bộ nhớ là tốt đấy chứ

Giờ tới lúc quan trọng tính toán đễ Fill đây hihihi, Mỗi lần mò ra được cái gì vui ghê hihiihi

thuyyeu99 · 25/1/19

Supper UDF Array

Kiều Mạnh · 25/1/19

thuyyeu99 đã viết:
Supper UDF Array

Chúc Mừng ... vậy là thành công _)(#;

Hỏi về công thức mảng

Trùm Nhiều Chuyện

Trùm Nhiều Chuyện

Nghị Hách

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Nghị Hách

Trùm Nhiều Chuyện

Nghị Hách

Trùm Nhiều Chuyện

Nghị Hách

Trùm Nhiều Chuyện

Trùm Nhiều Chuyện

Nghị Hách

Trùm Nhiều Chuyện

Trùm Nhiều Chuyện

Trùm Nhiều Chuyện

Trùm Nhiều Chuyện

Nghị Hách

Trùm Nhiều Chuyện

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Facebook

Group