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><span style="font-size: 15.2px;">Sub FINAL_Storage_Report()</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 dict As Object</span></div><div><span style="font-size: 15.2px;"> Dim host As String</span></div><div><span style="font-size: 15.2px;"> Dim keepMounts As Variant</span></div><div><span style="font-size: 15.2px;"> Dim rng As Range</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> Set ws = ThisWorkbook.Sheets("Storage Report")</span></div><div><span style="font-size: 15.2px;"> Set dict = CreateObject("Scripting.Dictionary")</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> ' ================= DAFTAR SERVER =================</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF_C0", True</span></div><div><span style="font-size: 15.2px;">dict.Add "DATA-ENTRY", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Training_CC", True</span></div><div><span style="font-size: 15.2px;">dict.Add "ASSET-LOB-CC", True</span></div><div><span style="font-size: 15.2px;">dict.Add "TELEINTERVIEWER", True</span></div><div><span style="font-size: 15.2px;">dict.Add "SME-CentOs", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF-MMU", True</span></div><div><span style="font-size: 15.2px;">dict.Add "fif-telesales-autodial", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Sehati DC", True</span></div><div><span style="font-size: 15.2px;">dict.Add "RESERVE PROXY LB", True</span></div><div><span style="font-size: 15.2px;">dict.Add "APP_MTF_CS", True</span></div><div><span style="font-size: 15.2px;">dict.Add "mtf-cs-onebox-ubuntu", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIFWA_OFFICIAL", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Grafana", True</span></div><div><span style="font-size: 15.2px;">dict.Add "WA-MUF", True</span></div><div><span style="font-size: 15.2px;">dict.Add "fif-reminder-app", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF_DC", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Remedial", True</span></div><div><span style="font-size: 15.2px;">dict.Add "STORAGE 70.23", True</span></div><div><span style="font-size: 15.2px;">dict.Add "NAS 30.4", True</span></div><div><span style="font-size: 15.2px;">dict.Add "LKS", True</span></div><div><span style="font-size: 15.2px;">dict.Add "cloudopenvpn", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Ping Autodial", True</span></div><div><span style="font-size: 15.2px;">dict.Add "BCAF-DC-AUTO", True</span></div><div><span style="font-size: 15.2px;">dict.Add "fif-reminder-db_pbx", True</span></div><div><span style="font-size: 15.2px;">dict.Add "multiclient-v3", True</span></div><div><span style="font-size: 15.2px;">dict.Add "JULO_CTC", True</span></div><div><span style="font-size: 15.2px;">dict.Add "MTF_OVRS", True</span></div><div><span style="font-size: 15.2px;">dict.Add "apps_dataentry", True</span></div><div><span style="font-size: 15.2px;">dict.Add "BFI-WA", True</span></div><div><span style="font-size: 15.2px;">dict.Add "AUTODIAL_C1_CLOUD", True</span></div><div><span style="font-size: 15.2px;">dict.Add "MTF-AUTODIAL", True</span></div><div><span style="font-size: 15.2px;">dict.Add "MUF-CLOUD", True</span></div><div><span style="font-size: 15.2px;">dict.Add "QA Telecollection", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Itop", True</span></div><div><span style="font-size: 15.2px;">dict.Add "NEW-CC-DRIVE", True</span></div><div><span style="font-size: 15.2px;">dict.Add "MTF_CS_INBOUND_CLOUD", True</span></div><div><span style="font-size: 15.2px;">dict.Add "OVRS-MTFPROJECT-CLOUD", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF_Telesales", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Bcaf DC", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Dashboard OTC 70.120", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF TELE-AUDIT", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Server FTPS NAsional", True</span></div><div><span style="font-size: 15.2px;">dict.Add "btpn-web", True</span></div><div><span style="font-size: 15.2px;">dict.Add "AWDA-DC-CLOUD", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Reporting Dev Cloud", True</span></div><div><span style="font-size: 15.2px;">dict.Add "STORAGE 172.16.70.15", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF_DC_DB_dan_ASTERISK", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Backup-KR1", True</span></div><div><span style="font-size: 15.2px;">dict.Add "btpn-fileserver", True</span></div><div><span style="font-size: 15.2px;">dict.Add "autodial-smg-new", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF filtering WA", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF-AUTOKRANGGAN", True</span></div><div><span style="font-size: 15.2px;">dict.Add "btpn-reporting", True</span></div><div><span style="font-size: 15.2px;">dict.Add "MTF-BALNOL", True</span></div><div><span style="font-size: 15.2px;">dict.Add "cloudsymmetricsds", True</span></div><div><span style="font-size: 15.2px;">dict.Add "OVRS-KRANGGAN-CLOUD", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF-WA", True</span></div><div><span style="font-size: 15.2px;">dict.Add "DevOnebox", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF_PROJECT_BALNOL", True</span></div><div><span style="font-size: 15.2px;">dict.Add "BS-NSP", True</span></div><div><span style="font-size: 15.2px;">dict.Add "cloudopenvpn2", True</span></div><div><span style="font-size: 15.2px;">dict.Add "PINCALL SUCCESS-FEE", True</span></div><div><span style="font-size: 15.2px;">dict.Add "MTF_SKIPTRACE", True</span></div><div><span style="font-size: 15.2px;">dict.Add "DATA-WAREHOUSE", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Zabbix server", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Bcaf-va", True</span></div><div><span style="font-size: 15.2px;">dict.Add "MTF-WA", True</span></div><div><span style="font-size: 15.2px;">dict.Add "btpn-mobile", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Danastra", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Webcam Monitoring by PKP", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF_PV_CLOUD", True</span></div><div><span style="font-size: 15.2px;">dict.Add "BOP-WAREHOUSE", True</span></div><div><span style="font-size: 15.2px;">dict.Add "wa-non_official-fif-tele", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Multicam Premis", True</span></div><div><span style="font-size: 15.2px;">dict.Add "mtf", True</span></div><div><span style="font-size: 15.2px;">dict.Add "FIF_SKIPTRACE", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Multicampaign", True</span></div><div><span style="font-size: 15.2px;">dict.Add "ADIRA", True</span></div><div><span style="font-size: 15.2px;">dict.Add "icoll", True</span></div><div><span style="font-size: 15.2px;">dict.Add "NASREC-SIM", True</span></div><div><span style="font-size: 15.2px;">dict.Add "wa-astrapay", True</span></div><div><span style="font-size: 15.2px;">dict.Add "btpn-scheduller", True</span></div><div><span style="font-size: 15.2px;">dict.Add "teleremedial-wa-official", True</span></div><div><span style="font-size: 15.2px;">dict.Add "Service Warehouse", True</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;"> keepMounts = Array("/", "/BACKUP", "/BACKUP3", "/etc/hostname")</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row</span></div><div><span style="font-size: 15.2px;"> Set rng = ws.Range("A1:G" & lastRow)</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> Application.ScreenUpdating = False</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> ' Reset</span></div><div><span style="font-size: 15.2px;"> If ws.AutoFilterMode Then ws.AutoFilterMode = False</span></div><div><span style="font-size: 15.2px;"> ws.Rows.Hidden = False</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> ' ===== FILTER SERVER (AUTOFILTER ONLY) =====</span></div><div><span style="font-size: 15.2px;">rng.AutoFilter Field:=1, Criteria1:=dict.Keys, Operator:=xlFilterValues</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;">' ===== FILTER MOUNT =====</span></div><div><span style="font-size: 15.2px;">rng.AutoFilter Field:=2, Criteria1:=keepMounts, Operator:=xlFilterValues</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> ' ===== FIX DATA (ANTI PERSEN RIBUAN) =====</span></div><div><span style="font-size: 15.2px;"> For i = 2 To lastRow</span></div><div><span style="font-size: 15.2px;"> If Not ws.Rows(i).Hidden Then</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> ' Disk 0 ? 1</span></div><div><span style="font-size: 15.2px;"> If ws.Cells(i, "C").Value = 0 Then ws.Cells(i, "C").Value = 1</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> ' ===== FIX USAGE% AMAN =====</span></div><div><span style="font-size: 15.2px;"> If IsNumeric(ws.Cells(i, "D").Value) Then</span></div><div><span style="font-size: 15.2px;"> If ws.Cells(i, "D").Value > 1 Then</span></div><div><span style="font-size: 15.2px;"> ws.Cells(i, "D").Value = ws.Cells(i, "D").Value / 100</span></div><div><span style="font-size: 15.2px;"> End If</span></div><div><span style="font-size: 15.2px;"> End If</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> End If</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;"> ' Format Usage%</span></div><div><span style="font-size: 15.2px;"> ws.Columns("D").NumberFormat = "0%"</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> ' Sembunyikan kolom Mount</span></div><div><span style="font-size: 15.2px;"> ws.Columns("B").Hidden = True</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> Application.ScreenUpdating = True</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;"> MsgBox "? Storage Report selesai & Usage% AMAN (anti ribuan)", vbInformation</span></div><div><span style="font-size: 15.2px;"><br></span></div><div><span style="font-size: 15.2px;">End Sub</span></div>
Batal
Update Catatan