Sửa lỗi out of range trong VBA

[thinhnx22]

Trong file đính kèm, các cột 30-33 mình đang bị lỗi out or range, Nhờ các bạn tư vấn cách sửa. Chân thành cảm ơn.

 

[Phuocam]

đang bị lỗi out or range, Nhờ các bạn tư vấn cách sửa.

Trên khai:

dArr(1 To 100000, 1 To 34)

Dưới :

Sheet3.Range("A4").Resize(K, 38) = dArr

 

[thinhnx22]

Trên khai:

dArr(1 To 100000, 1 To 34)

Dưới :

Sheet3.Range("A4").Resize(K, 38) = dArr

Ở trong code khi bỏ dấu nháy ở cột 30-33 (darrK,30) đó anh, vẫn bị lỗi anh ạ, anh kiểm tra giúp em. Cảm ơn anh.

 

[snow25]

Ở trong code khi bỏ dấu nháy ở cột 30-33 (darrK,30) đó anh, vẫn bị lỗi anh ạ, anh kiểm tra giúp em. Cảm ơn anh.

Ý anh
phuocam
là bảo bạn khai báo thiếu đó.Ví dụ bạn sửa cái 34 thành 38 là được.

 

[thinhnx22]

Ý anh
phuocam
là bảo bạn khai báo thiếu đó.Ví dụ bạn sửa cái 34 thành 38 là được.

Mình sửa rồi nhưng vẫn báo lỗi ở darr(k,30) khi bỏ dấu nháy đó bạn

 

[HieuCD]

Trong file đính kèm, các cột 30-33 mình đang bị lỗi out or range, Nhờ các bạn tư vấn cách sửa. Chân thành cảm ơn.

For J = 0 To UBound(Tmp2) * 2
j vượt quá số phần tử của các mảng tmp
Không biết yêu cầu nên không chỉnh được

 

[AutoReply]

Thay

For J = 0 To UBound(Tmp2) * 2

thành

For J = 0 To WorksheetFunction.Max(UBound(Tmp1), UBound(Tmp2), UBound(tmp3), UBound(tmp4))

Thay

dArr(K, 30) = Tmp1(J)
                dArr(K, 31) = Tmp2(J)
                dArr(K, 32) = tmp3(J)
                dArr(K, 33) = tmp4(J)

thành

If J <= UBound(Tmp1) Then dArr(K, 30) = Tmp1(J)
                If J <= UBound(Tmp2) Then dArr(K, 31) = Tmp2(J)
                If J <= UBound(tmp3) Then dArr(K, 32) = tmp3(J)
                If J <= UBound(tmp4) Then dArr(K, 33) = tmp4(J)

để chạy hết lỗi, các vấn đề khác mình hông biết.

 

[thinhnx22]

For J = 0 To UBound(Tmp2) * 2
j vượt quá số phần tử của các mảng tmp
Không biết yêu cầu nên không chỉnh được

Cảm ơn anh nhé.

 

[VetMini]

Má ơi. Ai đặt tên biến rùng rợn thật.
Tmp1, 2, 3, 4 =>
Dim dat(1 to 4)

 

[thinhnx22]

Thay

For J = 0 To UBound(Tmp2) * 2

thành

For J = 0 To WorksheetFunction.Max(UBound(Tmp1), UBound(Tmp2), UBound(tmp3), UBound(tmp4))

Thay

dArr(K, 30) = Tmp1(J)
                dArr(K, 31) = Tmp2(J)
                dArr(K, 32) = tmp3(J)
                dArr(K, 33) = tmp4(J)

thành

If J <= UBound(Tmp1) Then dArr(K, 30) = Tmp1(J)
                If J <= UBound(Tmp2) Then dArr(K, 31) = Tmp2(J)
                If J <= UBound(tmp3) Then dArr(K, 32) = tmp3(J)
                If J <= UBound(tmp4) Then dArr(K, 33) = tmp4(J)

để chạy hết lỗi, các vấn đề khác mình hông biết.

Cảm ơn bạn rất nhiều, đặc biệt đoạn darr(k,30).... Mình đoán nó nằm ở khúc đấy nhưng không biết viết trên VBA nó ra sao,

 

[AutoReply]

Má ơi. Ai đặt tên biến rùng rợn thật.
Tmp1, 2, 3, 4 =>
Dim dat(1 to 4)

Sức khỏe như thế là không tốt, mới xem người khác đặt tên biến đã thấy rùng rợn vậy sao bạn Vetmini đi xem phim ma được đây ?

 

[VetMini]

Sức khỏe như thế là không tốt, mới xem người khác đặt tên biến đã thấy rùng rợn vậy sao bạn Vetmini đi xem phim ma được đây ?

Cỡ phim ma cô ma cạo, oánh nhau vỡ đầu tôi còn không sợ. Mắc mớ gì không xem được phim ma quỷ.

Có sợ là sợ xem hội chợ bị chôm mất dép thôi. Chả là có cái bác nọ cứ doạ tôi lót dép ngồi ở đâu là chôm