Lam the nao de thiet dih dong loat cac phan tu cua mang cung nhan mot gia tri

[ilvba]

Em co cai mang nhu the nay

dim arr(1 to 2000) as integer

Lam the nao de thiet dinh toan bo 2000 phan tu cua mang deu nhan gia tri la -1? Tat nhien em khong muon su dung For kieu nhu la:

For i = Lbound(arr) to Ubound(arr) step 1
arr(i)=-1
next i

Em xin cam on.
Em dang post bai bang dien thoai nen khong go tieng viet co dau duoc. Mong anh chi thong cam.

 

[ThangCuAnh]

Hì hì, VBA thì không có cách nào bạn à. Phải dùng vòng lặp thôi.
Đây bác @kieu manh : hàm cho VBLibrary.dll của bác đây, lợi ích, thiết thực hơn port ba cái code VBA qua Delphi.
Bác code hàm này, tạm gọi là FillArray1D đi, nhận vào array 1D và value để fill. Code sao cho chạy đúng, không die, và phải nhanh hơn code VBA dùng For nhen.
Sau đó code thêm hàm FillArray2D. Mấy hàm này tựa tựa như hàm FillChar của Delphi hay memset của C/C++, ZeroMemory của Windows đấy.