Xin chỉ giúp thêm code vào đoạn code đính kèm (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

hoangmai2605

Thành viên chính thức
Tham gia
27/2/09
Bài viết
92
Được thích
11
With Worksheets(1).Range("a1:du500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

- Bảng của Tôi 1 cell để thực hiện việc tìm kiếm bao gồm 4 ô liền kề nhau.
VD: giá trị 2 nó nằm trong a1 và nếu có tiếp thì trong e1, i1,... a2,e2,i2,....
- Đoạn code trên nó thực hiện find next từ ô b1, c1, .... a2,b2,c2,...
- Mong các bạn chỉ giúp thêm code để Tôi có thể find next không phải ở vị trí cell.offset(,1) mà là cell.offset(,4)
- Rất mong các bạn trả lời để Tôi học hỏi thêm và áp dụng vào công việc của mình.
 
With Worksheets(1).Range("a1:du500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

- Bảng của Tôi 1 cell để thực hiện việc tìm kiếm bao gồm 4 ô liền kề nhau.
VD: giá trị 2 nó nằm trong a1 và nếu có tiếp thì trong e1, i1,... a2,e2,i2,....
- Đoạn code trên nó thực hiện find next từ ô b1, c1, .... a2,b2,c2,...
- Mong các bạn chỉ giúp thêm code để Tôi có thể find next không phải ở vị trí cell.offset(,1) mà là cell.offset(,4)
- Rất mong các bạn trả lời để Tôi học hỏi thêm và áp dụng vào công việc của mình.
Bạn thử thay câu:
PHP:
Set c = .FindNext(c)
bởi câu này xem sao:
PHP:
Set c = .Find(2, c.offset(,4),xlValues)
 
Upvote 0
Mình thấy không nhất thiết dùng Find mà dùng mảng tốc độ nhanh chán. Bạn thử code sau:

Mã:
Sub tim()
Dim Cot, Dg, TB, Tam
Tam = Range("A1:DU500")
Range("A1:DU500").Interior.ColorIndex = xlNone
For Cot = 1 To 123
For Dg = 1 To 500
If Tam(Dg, Cot) <> "" Then
If Tam(Dg, Cot) = Tam(Dg, Cot + 1) Then
If Tam(Dg, Cot) = Tam(Dg, Cot + 2) Then
If Tam(Dg, Cot) = Tam(Dg, Cot + 3) Then
Cells(Dg, Cot).Resize(, 4).Interior.ColorIndex = 8
TB = TB & Cells(Dg, Cot).Resize(, 4).Address & _
"   :   " & Tam(Dg, Cot) & Chr(10)
End If: End If: End If: End If
Next Dg
Next Cot
MsgBox TB
End Sub
 

File đính kèm

Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom