Cách loop Array kết hợp 2 For với 1 If

[platuan]

Hi các Pro !!!

Mình mới học cách dùng Array kết hợp 2 For với 1 If và đang thử viết như dưới thì báo lỗi. Nhờ các Pro chỉ giúp chỗ sai.

Dim arr1 As Variant, i Dim arr2 As Variant, x arr1 = Array("A1","A2","A100") arr2 = Array("B1","B2","B100") For i = LBound(arr1) To UBound(arr1) For x = LBound(arr2) To UBound(arr2) If arr1(i) = arr2(x) Then Run function 1 Exit For End If Next Next

 

[befaint]

IF Các pừ rô chào Hờ i nhé. Then

Run function 1

Return Error!

End If

 

[SA_DQ]

Bài đăng đang sai đề mục; Bạn cần nhờ SMOD hay MOD chuyển về đúng nơi 2ui định đi nha.

 

[VetMini]

Tu đờ pơ-son hu in-sít on pơ-lây-inh đơ rôn ốp ơ giắc.
Vi-Bi-Ê đơ nót nô quách đơ heo i "run function 1". Phun si-tóp.

 

[Maika8008]

Tu đờ pơ-son hu in-sít on pơ-lây-inh đơ rôn ốp ơ giắc.
Vi-Bi-Ê đơ nót nô quách đơ heo i "run function 1". Phun si-tóp.

Lão Vẹt ni sì pam ghê quá. Đọc trẹo cả lưỡi mà không biết lão viết gì

 

[VetMini]

Lão Vẹt ni sì pam ghê quá. Đọc trẹo cả lưỡi mà không biết lão viết gì

To the person who insists on playing the role of a Jack.
VBA does not know what the hell is "run function 1". Full stop.

- Jack : con Tây bồi trong bộ bài.
- does not know what the hell is : hiểu chết liền.
- full stop : chấm hết. Thường đặt cuối câu để diễn tả ý "không còn gì để nói/bàn/tám thêm về vấn đề này (tám chuyện khác thì được)".