KENDALA
CORE
Perbarui Catatan
Sesuaikan rincian informasi data kendala atau perbaiki instruksi pemecahan masalah.
Jenis Kategori
Server
Database
Aplikasi
Jaringan
Hardware
Recording
cloud
Security
Tugas-pagi
Nama / Judul Kendala
Uraian Masalah / Kode Error
script ubah data di excel
Langkah Pemecahan Masalah (Problem Solving)
<div><div><span style="font-size: 15.2px;">Sub FilterByAllowedNames()</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> Dim ws As Worksheet</span></div><div><span style="font-size: 15.2px;"> Dim lastRow As Long</span></div><div><span style="font-size: 15.2px;"> Dim i As Long</span></div><div><span style="font-size: 15.2px;"> Dim allowedList As Object</span></div><div><span style="font-size: 15.2px;"> Dim nama As String</span></div><div><span style="font-size: 15.2px;"> </span></div><div><span style="font-size: 15.2px;"> ' === Daftar nama yang ingin dipertahankan ===</span></div><div><span style="font-size: 15.2px;"> ' (Tambahkan / edit di sini sesuai kebutuhan)</span></div><div><span style="font-size: 15.2px;"> Dim allowedArray As Variant</span></div><div><span style="font-size: 15.2px;"> </span></div><div><span style="font-size: 15.2px;"> allowedArray = Array( _</span></div><div><span style="font-size: 15.2px;"> "CCCM-AWDA-NEW-KRANGGAN", "CCCM-wa-non_official-succesfee", "CCCM-fif-c0", "CCCM-FIF-WA", "CCCM-FIF-filtering-WA", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-Data-warehouse", "CCCM-Fif-teleaudit", "CCCM-ovrs-kranggan", "CCCM-MTF_autodial", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-Roleplay", "CCCM-ovrs-project", "CCCM-Ovrs-Semarang", "Fifauto-kr", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-Bop-warehouse", "CCCM-Fif-PV", "CCCM-Webcam-pkp", "CCCM-Pingcall_Success-Fee", _</span></div><div><span style="font-size: 15.2px;"> "HO-Teleinterview", "CCCM-Autodial-C1", "CCCM-Maybank", "CCCM-Myrep_API", "CCCM-MyRep_DB", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-Myrep_pabx", "CCCM-MyRep_APPS", "CCCM-multicampaign", "CCCM-jogja2", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-autodial-semarang2", "CCCM-autodial-semarang", "CCCM-autodial-jogja1", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-Symmetric_DS", "CCCM-Openvpn1", "CCCM-openvpn-router", "CCCM-Fif-Dashboard", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-Autodial-smg3", "CCCM-MUF", "CCCM-wa-official-muf", "CCCM-bcaf-auto", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-FIF-WA-OFFICIAL", "CCCM-mtf-balnol", "CCCM-apps_mtf-cs-onebox", "CCCM-Mtf-cs-inbound", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-BTPN-fileserver", "CCCM-BTPN-app-mobile", "CCCM-wa-non_official-fif-tele", "CCCM-BTPN-app-web", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-BTPN-reporting", "HO-BS-NSP", "CCCM-Danastra", "CCCM-reminder-app1", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-fif-reminder-db_pbx", "CCCM-fif-telesales-autodial", "CCCM-adira", "CCCM-btpn-icoll", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-wa-astrapay", "CCCM-wa-bfi", "CCCM-Amartha", "CCCM-fif-teleremedial-waofficial", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-MulticlientV3", "CCCM-btpn-scheduller", "CCCM-bcaf-va", "CCCM-reminder-app2", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-Openvpn1", "CCCM-Openvpn-YGK", "CCCM-Openvpn-SMG2", "CCCM-Reminder-Autodial", "CCCM-LKS", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-PPTP-cloud-mikrotik", "CCCM-Tiketing", "CCCM-wa-call-fif-c2c-app3-smg", "CCCM-wa-call-fif-c2c-app2-smg", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-wa-call-fif-c2c-app1-smg", "CCCM-wa-call-fif-c2c-jgj2", "CCCM-wa-call-fif-c2c-jgj1", "CCCM-wa-call-fif-c2c-kr", _</span></div><div><span style="font-size: 15.2px;"> "CCCM-wa-fif-pv", "CCCM-Tiketing", "CCCM-fifdc-bali-app", "CCCM-fifdc-bali-asterisk" _</span></div><div><span style="font-size: 15.2px;"> )</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> ' Buat dictionary untuk pengecekan cepat</span></div><div><span style="font-size: 15.2px;"> Set allowedList = CreateObject("Scripting.Dictionary")</span></div><div><span style="font-size: 15.2px;"> For i = LBound(allowedArray) To UBound(allowedArray)</span></div><div><span style="font-size: 15.2px;"> allowedList(Trim(LCase(allowedArray(i)))) = True</span></div><div><span style="font-size: 15.2px;"> Next i</span></div><div><span style="font-size: 15.2px;"> </span></div><div><span style="font-size: 15.2px;"> Set ws = ActiveSheet</span></div><div><span style="font-size: 15.2px;"> </span></div><div><span style="font-size: 15.2px;"> Const colS As Long = 19 ' Kolom S</span></div><div><span style="font-size: 15.2px;"> </span></div><div><span style="font-size: 15.2px;"> lastRow = ws.Cells(ws.Rows.Count, colS).End(xlUp).Row</span></div><div><span style="font-size: 15.2px;"> </span></div><div><span style="font-size: 15.2px;"> ' Loop dari bawah agar aman saat menghapus baris</span></div><div><span style="font-size: 15.2px;"> For i = lastRow To 2 Step -1</span></div><div><span style="font-size: 15.2px;"> </span></div><div><span style="font-size: 15.2px;"> nama = Trim(LCase(ws.Cells(i, colS).Value))</span></div><div><span style="font-size: 15.2px;"> </span></div><div><span style="font-size: 15.2px;"> ' Jika nama tidak ada di daftar ? hapus baris</span></div><div><span style="font-size: 15.2px;"> If Not allowedList.exists(nama) Then</span></div><div><span style="font-size: 15.2px;"> ws.Rows(i).Delete</span></div><div><span style="font-size: 15.2px;"> End If</span></div><div><span style="font-size: 15.2px;"> </span></div><div><span style="font-size: 15.2px;"> Next i</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> MsgBox "Selesai! Hanya data yang ada dalam daftar yang tersisa.", vbInformation</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;">End Sub</span></div></div>
Batal
Update Catatan