Sorot Teks Spesifik

VBA 18.jpg

Halo sahabat-sahabat berkreasi kali ini admin akan berbagi Bagaimana membuat kode vba untuk menyorot teks secara spesifik. Misalkan kita memiliki banyak Kumpulan data tekstual lalu kita akan mencari atau menyorot teks secara spesifik Nah kita dapat menggunakan kode vba ini.

Berikut kode yang akan kita gunakan untuk mencari atau menyorot teks secara spesifik

Sub SorotTeksSpesifik()
    Dim myStr As String
    Dim myRg As Range
    Dim myTxt As String
    Dim myCell As Range
    Dim myChar As String
    Dim I As Long
    Dim J As Long
    
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
    myTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
    myTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
Set myRg = Application.InputBox("please select the data range:", "Selection Required", myTxt, , , , , 8)
    If myRg Is Nothing Then
    Exit Sub
    If myRg.Areas.Count > 1 Then
    MsgBox "not support multiple columns"
    GoTo LInput
    End If
    If myRg.Columns.Count <> 2 Then
    MsgBox "the selected range can only contain two columns "
    GoTo LInput
    End If
    End If
    For I = 0 To myRg.Rows.Count - 1
    myStr = myRg.Range("B1").Offset(I, 0).Value
    With myRg.Range("A1").Offset(I, 0)
    .Font.ColorIndex = 1
    For J = 1 To Len(.Text)
    Mid(Text, J, Len(myStr)) = myStrThen
    .Characters(J, Len(myStr)).Font.ColorIndex = 3
    Next
    End With
    Next I
End Sub

 

Download File Contoh

zip.png  Sorot Teks Spesifik - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Pens Sky Venture - Sukolilo Surabaya

Jl. Cilincing jakarta utara

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
WA : 085 606 139 312  im3 (CS / Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi, S.Pd.
Aries Eko Wibowo, S.Pd. MM.
Fauzan, M.Kom.
Sahrudin, M.Pd.
Budi Prasetya, ST., MM.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Patrick A. Kembuan, S.Kom
Ali, M.Pd.