Tìm nhiều đoạn text cho trước trong danh sách

[TamCrazy]

Mình đang thực hiện việc bốc khối lượng dự toán :
cần phải dò tìm giá trị Mác beton kèm theo loại đá tương ứng
Bước 1 là đã xác định được mác beton
Bước 2 là đã xác định được loại đá
Chuyển sang bước tìm loại beton phù hợp thỏa 2 đk trên (trong cùng 1 dòng với mô tả chi tiết cho loại beton đo ) trong danh sách cho trước.
Mình tự mò mẩm nên đuối quá.
gởi các bạn đoạn code viết tóm bước 1,2 .
còn lại thì thua.

 

[sealand]

Có phải ý bạn là tách ra thành như thế này không?

 

[TamCrazy]

Có phải ý bạn là tách ra thành như thế này không?

Ý mình không đơn giản thế.
Vấn đề là mình viết code bằng VBA.
Có đoạn code đi kèm theo file.
Chuyện là mình muốn xác định địa chỉ address ( dòng ) chứa đồng thời 2 giá trị :
1 là mình dò tìm giá trị Mác M200 ... hay M100 trước.
Sau đó xác định thêm 1 thông tin nữa là nếu xuất hiện giá trị 1 rồi thì trong ô đó có thêm giá trị 1*2 hay 4*6 hay không. nếu có thì đúng và xác nhận vị trí ô đó.
Ví dụ : như mình tìm được giá trị M100 trong B2 nhưng khi chuyển sang tìm tiếp giá trị 1*2 thì ô này lại không có thì quá trình lại tiếp tục xác định tiếp cho đến khi có ô nào xuất hiện đồng thời hai giá trị là M100 và 1*2 thì ngưng và xác định được vị trí address của ô đó ví dụ là B27 trong trường hợp này. Mà mình thì bó phép.

 

[sealand]

Mình tham gia hàm trả về dòng thoả mãn quy cách :

Function dchi(Rg As Range, mac As String, Co As String, Idx As Integer) As Long
Dim k As Integer
Dim cll As Range
k = 0
For Each cll In Rg.Cells
If InStr(1, cll.Text, mac) > 0 And InStr(1, cll.Text, Co) > 0 Then k = k + 1
If k = Idx Then dchi = cll.Row: Exit Function
Next
dchi = 0
End Function

Cú pháp:
=dchi(Vùng,Mác,Cỡ,Dòng n)

 

[TamCrazy]

Ok rồi.
Mình sẽ sài cái này trong cái sub của mình và bổ sung thêm vài yếu tố nữa cho chính xác.
Có gì théc méc sẽ hỏi bạn sau. cám ơn nhiều.

 

[SA_DQ]

Bạn đối chiếu đứa con tinh thần của bạn với cái ni xem sao?

Ok rồi. Mình sẽ Xài cái này trong cái sub của mình và bổ sung thêm vài yếu tố nữa cho chính xác..

Sub Temp()
 Dim MacBT As String, Da As String, MyAdd As String
 Dim Rng As Range, sRng As Range
 Dim CoMac As Boolean, KhDa As Boolean
 
 MacBT = InputBox("Hay Nhap Mac Be Tong Ban Can: ", , "M200")
 Da = InputBox("Loai Da Nao? ", , "4*6")
 Set Rng = [A1].Resize([A1].CurrentRegion.Rows.Count)
4 Rng.Interior.ColorIndex = 0
 Set sRng = Rng.Offset(, 1).Find(MacBT, , xlFormulas, xlPart)
 
 If sRng Is Nothing Then
   MsgBox "Nothing", vbCritical, "GPE Xin luu Y: Khong Co Mac BT Nay!"
 Else
   MyAdd = sRng.Address:                  CoMac = Not CoMac
   Do
      If InStr(sRng.Value, Da) > 0 Then
12         sRng.Offset(, -1).Interior.ColorIndex = 34 + Day(Date) Mod 7
         If Not KhDa Then KhDa = Not KhDa
      End If
      Set sRng = Rng.Offset(, 1).FindNext(sRng)
   Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
 If CoMac And KhDa = False Then MsgBox "Khong Co Loai Da Do"
End Sub

(Nếu OK thì chép đè lên cái của bạn để kỹ niệm nha!)