Komentari
611 Kali Dilihat

VBA replace bersyarat

  1. tahun lalu
    W

    waluyo

    15 Nov 2022 Kubu Raya Kalbar + 236 Poin

    mohon bantuan master bagaimana vba untuk replace bersyarat
    jika cell a1: f1 bernilai x, maka jika cell a2: f20 nilai 1 diganti hurif "b"
    artinya kalau a1 = x maka nilai 1 dari a2:a20 akan di ganti "b"
    begitu juga b1 jka dak bernilai x maka isi cell b2:b20 tetap tidak diganti

  2. Caton

    15 Nov 2022 Terverifikasi Indonesia + 20.101 Poin

    @waluyo ...

    Tidak begitu jelas pertanyaannya. Mungkin scriptnya bisa disusun seperti berikut :

    Sub Test()
    Dim xlCell As Range
    Dim sTmp As String
    
    For Each xlCell In Sheet1.Range("A1:F1")
        Debug.Print xlCell.Value
        sTmp = Choose(xlCell.Value, "A", "B", "C", "D", "E", "F")
        
        With Sheet1.Range("A2:F20")
            .Replace What:=xlCell.Value, Replacement:=sTmp, LookAt:=xlPart, SearchOrder:=xlByRows, _
                MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        End With
    Next
End Sub

    Hasil prosesnya seperti berikut :

    image_2022-11-15_170055623.png

    Silahkan dikembangkan. Semoga sesuai.

    Demikian.

  3. W

    waluyo

    16 Nov 2022 Kubu Raya Kalbar + 236 Poin

    terima kasih @ Caton atas bantuannya

 

atau Mendaftar untuk ikut berdiskusi!