Find and Replace All với nhiều điều kiện !!

[khoa140383]

Mong anh chị giúp em viết code cho nút OK trong form này nha. Khó quá, mò mẫm tìm code trên diễn đàn mãi mà chẳng ra nên mới đưa file lên mong được hổ trợ.

Xin cám ơn và chúc ace một ngày tốt lành..



Mong các anh chị giúp dùm em. Bài toán này đối với amateur như em là chuyện cực kỳ khó và dường như là không thể. Mong nhận được sự giúp đỡ.

Xin cám ơn..

 

[khoa140383]

Chào cả nhà !!!

Không biết câu hỏi này của mình hơi khó hay quá dễ... mà không bác nào ra tay giúp đỡ hay cho một lời khuyên hợp lý vậy ta !!??
Hy vọng nhận được ý kiến góp ý của các bác. Đại loại là : "trong excel không thể làm được điều này" hoặc "câu này cũng dễ mà, bạn tự mò từ từ đi"... thế cũng được mà !!

Mong nhận được góp ý từ các bác..

 

[huuthang_bd]

Mong anh chị giúp em viết code cho nút OK trong form này nha. Khó quá, mò mẫm tìm code trên diễn đàn mãi mà chẳng ra nên mới đưa file lên mong được hổ trợ.

Xin cám ơn và chúc ace một ngày tốt lành..

View attachment 61625

Mong các anh chị giúp dùm em. Bài toán này đối với amateur như em là chuyện cực kỳ khó và dường như là không thể. Mong nhận được sự giúp đỡ.

Xin cám ơn..

Bạn copy code này dán vào code của Userform:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim MyRng As Range, FindRng As Range, FirstRow As Long
    Set MyRng = Range([A2], [A65536].End(xlUp))
    Set FindRng = [A65536].End(xlUp)
    Set FindRng = MyRng.Find(TextBox1.Value, FindRng, , 1, , 1, False)
    If FindRng Is Nothing Then GoTo ExitSub
        FirstRow = FindRng.Row
        Do
            If FindRng.Offset(, 1).Value = TextBox2.Value And FindRng.Offset(, 2).Value = TextBox3.Value And FindRng.Offset(, 3).Value = TextBox4.Value Then
                FindRng.Value = TextBox5.Value
                FindRng.Offset(, 1).Value = TextBox6.Value
                FindRng.Offset(, 2).Value = TextBox7.Value
                FindRng.Offset(, 3).Value = TextBox8.Value
            End If
            Set FindRng = MyRng.FindNext(FindRng)
            If FindRng Is Nothing Then GoTo ExitSub
        Loop Until FindRng.Row = FirstRow
ExitSub:
Unload Me
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[khoa140383]

Bạn copy code này dán vào code của Userform:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim MyRng As Range, FindRng As Range, FirstRow As Long
    Set MyRng = Range([A2], [A65536].End(xlUp))
    Set FindRng = [A65536].End(xlUp)
    Set FindRng = MyRng.Find(TextBox1.Value, FindRng, , 1, , 1, False)
    If FindRng Is Nothing Then GoTo ExitSub
        FirstRow = FindRng.Row
        Do
            If FindRng.Offset(, 1).Value = TextBox2.Value And FindRng.Offset(, 2).Value = TextBox3.Value And FindRng.Offset(, 3).Value = TextBox4.Value Then
                FindRng.Value = TextBox5.Value
                FindRng.Offset(, 1).Value = TextBox6.Value
                FindRng.Offset(, 2).Value = TextBox7.Value
                FindRng.Offset(, 3).Value = TextBox8.Value
            End If
            Set FindRng = MyRng.FindNext(FindRng)
            If FindRng Is Nothing Then GoTo ExitSub
        Loop Until FindRng.Row = FirstRow
ExitSub:
Unload Me
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Tuyệt cú mèo !!!... Hay quá anh huuthang_bd oi... Cám ơn anh nhiều nha.
Nick của anh là huuthang_bd ( chữ bd viết tắt của chữ Bình Dương hay Bình Định vậy anh ?? ). Nếu là Bình Dương thì hôm nào anh cho phép em mời anh một chầu nha... Ah, mà anh cho em hỏi ở Thủ Đức - TPHCM có sư phụ nào dạy VBA không vậy ? Em định tầm sư học đạo, chứ học mò kiểu này hoài không biết ngày nào mới giỏi được... hix

Một lần nữa cám ơn anh nhiều nha...

 

[huuthang_bd]

Tuyệt cú mèo !!!... Hay quá anh huuthang_bd oi... Cám ơn anh nhiều nha.
Nick của anh là huuthang_bd ( chữ bd viết tắt của chữ Bình Dương hay Bình Định vậy anh ?? ). Nếu là Bình Dương thì hôm nào anh cho phép em mời anh một chầu nha... Ah, mà anh cho em hỏi ở Thủ Đức - TPHCM có sư phụ nào dạy VBA không vậy ? Em định tầm sư học đạo, chứ học mò kiểu này hoài không biết ngày nào mới giỏi được... hix

Một lần nữa cám ơn anh nhiều nha...

Tôi quê ở Bình Định. Cám ơn bạn vì lời mời.
Tôi không biết chỗ nào dạy VBA cả. Nhưng tôi thấy nếu như bạn có đam mê thì chỉ cần một cái máy tính có nối mạng thì bạn học cả đời cũng không hết.