alvian-cs blog

Memindahkan SMS ke Komputer Menggunakan Excel

Memindahkan SMS ke Komputer Menggunakan Excel

SMS History pada vba excel
Screenshot SMS History Menggunakan Excel
Pernahkah sobat bertanya bagaimana caranya memindahkan SMS yang ada di HP kedalam Laptop atau Komputer? Sebenarnya caranya cukup mudah, dan bahkan sobat dapat membuat SMS History sendiri, sehingga bisa jadi seperti diary.

SMS History adalah rumpunan SMS berupa laporan atau rincian secara keseluruhan yang menjabarkan riwayat SMS di handphone anda. Dengan SMS History, sobat dapat menyimpan sms-sms sobat tanpa harus menghapusnya. 

Mengapa Tidak Menghapusnya Saja?

Terkadang riwayat SMS penting karena bisa menjadi data yang sewaktu-waktu diperlukan. Dalam kasus tertentu, riwayat SMS bisa dijadikan kenangan atas percakapan yang sobat lakukan dengan seseorang. Sehingga, terkadang kita enggan untuk menghapus riwayat SMS.

Riwayat SMS ini mirip dengan chat history pada sosial media yang sering sobat lakukan misalnya seperti di BBM, Pesan Facebook, DM Twitter, ataupun chat history lainnya.

Sekarang Saya akan berbagi cara mudah membuat SMS History tanpa keterlibatan koneksi internet/online dengan bermodalkan:
  • Microsoft Excel
  • SMS Backup & Restore (Gratis)
  • Media Penyimpanan untuk memindah data SMS ke komputer
Sederhana bukan? Hanya memerlukan tiga aplikasi saja sobat sudah bisa membuat aplikasi SMS History yang dapat dibuka melalui komputer sobat.

Caranya?

Karena mayoritas banyak yang menggunakan OS Android, maka saya membuat tutorial ini untuk pengguna Android dan sejenisnya.
  1. Download terlebih dahulu aplikasi SMS Backup & Restore di Play Store (link ada dibawah).
  2. Install SMS Backup & Restore di handphone sobat.
  3. Jalankan aplikasinya

    backup data SMS
  4.  Ketuk tombol "Backup" untuk melakukan proses backup SMSnya.

  5. Set pengaturan seperti diatas. Setting tersebut agar kita dapat mengekspor SMS kita dengan ketentuan menyimpan seluruh percakapan dan juga tanpa mengunggah ke media penyimpanan online.

    Backup data SMS
  6. Jika sudah selesai maka akan muncul laporan pengeksporannya dan data sms sudah tersimpan. Sobat dapat menutup aplikasi, memindah data sms ke komputer dan beralih ke tahap selanjutnya.

Memindahkan data SMS ke Excel

Sekarang kita akan mengimpor data SMS kedalam Microsoft Excel. Untuk memasukkan file SMS yang sudah kita backup tadi, lakukan langkah-langkah berikut:
  • Buka Microsoft Excel.
  • Klik pada menu Data 
  • Pilih From Other Sources
  • Klik From XML Data Import.
Excel akan meminta untuk mengalokasikan file SMSnya. Secara default file SMS terletak di folder SMSBackupRestore di kartu SD sobat. Pilih file yang berekstensi *.xml.

Data akan terimpor seperti pada gambar berikut:

Impor data SMS

Menambahkan Sedikit Rumus Excel

Hapus beberapa kolom yang tidak penting dan sisakan beberapa kolom sebagai berikut:

Impor data SMS

Agar format bawaan tidak mengganggu, kita hapus dulu formatnya dengan cara menekan CTRL + A untuk menyeleksi keseluruhan sel, kemudian pada menu Home > Pilih gambar penghapus dibawah ini:

Clear contents pada excel

Lalu klik Clear Formats. Tampilan akan distandarisasi seperti format awal.

Tambahkan kolom baru disebelah kiri kolom body. Untuk menambahkan kolom sobat bisa menekan klik kanan pada Kolom E, kolom diatas header kolom body, kemudian pilih Insert. Akan muncul kolom baru, kolom ini akan digunakan untuk menampilkan hari.

Menambahkan kolom Excel

Oh iya hampir lupa, sebelum lanjut coba sobat aktifkan dulu Menu Developer, kita akan membuat user-defined function terlebih dahulu untuk menentukan hari lewat tanggal pengiriman SMS.

Pada Menu Developer, klik View Code untuk menampilkan kode editor. Kita buat satu module yaitu dengan cara klik kanan pada VBAProject kemudian pilih Insert dan klik module.

Copykan sintaks VBA dibawah ini kedalam module yang dibuat tadi:

Option Explicit
Function WEEKDAYNAME(day As Long) As String
Dim x As String
If day = 2 Then
x = "Senin"
ElseIf day = 3 Then
x = "Selasa"
ElseIf day = 4 Then
x = "Rabu"
ElseIf day = 5 Then
x = "Kamis"
ElseIf day = 6 Then
x = "Jum'at"
ElseIf day = 7 Then
x = "Sabtu"
ElseIf day = 1 Then
x = "Minggu"
End If
WEEKDAYNAME = x
End Function

Sip, kita sudah membuat function untuk menampilkan hari. Sekarang kembali ke data SMS tadi, kita lanjutkan pada kolom yang sudah kita buat.

Pada kolom yang sudah kita buat tadi, isikan formula sebagai berikut:

=IF(LEN(G2)>=17;IF(LEN(G2)=18;weekdayname(WEEKDAY((LEFT(SUBSTITUTE(G2;" ";"-");9))));IF(LEN(G2)=17;weekdayname(WEEKDAY((LEFT(SUBSTITUTE(G2;" ";"-");8))));IF(LEN(G2)=19;weekdayname(WEEKDAY((LEFT(SUBSTITUTE(G2;" ";"-");10)))))));weekdayname(WEEKDAY((LEFT(SUBSTITUTE(G2;".";"-");10))))) 

Kemudian tekan Enter dan lihat apa yang terjadi.

Sekarang kita akan membuat Nama Pengirim dengan memanfaatkan kolom contact_name. 
Kita buat kolom lagi seperti tadi, disamping kolomnya body, kemudian isikan formula sebagai berikut:

=IF([@type]=1;[@[contact_name]];"Saya")

Tekan Enter dan hasil akhirnya seperti ini:

Membuat SMS History Excel

Data diatas belum urut, maka kita perlu mengurutkannya agar enak dan mudah dibaca. Kita akan memanfaatkan fitur Sort & Filter.
  • Pada Home, klik fitur Sort & Filter. Kemudian Custom Sort.
  • Kolom Sort by isi dengan 'date' untuk mengurutkan data berdasarkan tanggal.
  • Kolom Order diganti menjadi Largest to Smallest.
  • Klik OK.

Data akan terurut dan enak dibaca. Aplikai SMS History sobat sudah jadi, namun kurang gagah rasanya jika belum didesain tampilannya. Sobat bisa mendesainnya sendiri sesuai dengan selera dengan menggunakan beberapa fitur yang terdapat pada Excel seperti Fill Color, dan lain sebagainya.

Tapi masih ada beberapa kolom yang ambigu, sobat bisa menghide-nya agar tidak mengganggu, yaitu dengan cara klik kanan pada Huruf Kolomnya dan pilih Hide. Menyembunyikan data tidak akan memengaruhi data lain. 

Pada akhirnya, setelah proses desain dan menyembunyikan beberapa kolom yang tidak penting, jadilah aplikasi SMS History Sederhana menggunakan VBA Excel. Untuk menyimpannya, sobat harus menyimpannya dalam tipe file berekstensi *.xltm yaitu file berekstensi Macro Aktif.

Membuat SMS History Excel

Cara membacanya adalah dari bawah keatas, agar terkesan historis menanjak. Tapi sobat bisa mengubahnya menjadi menurun di Sort & Filter. 

Jika sobat memiliki pertanyaan, request, atau kesulitan, sobat dapat menanyakannya pada kolom komentar, saya akan mencoba merespon secepat mungkin.

Download Aplikasi yang diperlukan:





8 Comments

8 comments:

  1. Saya sdh ikuti langkah2nya... tp ketika import data di excel.. file sms berformat xml yg bersumber dr micro sd tidak bisa dibuka/pindah ke kolom excel.. kira2 apa yg salah ya? Semoga bisa dibantu... trims..

    ReplyDelete
    Replies
    1. Seharusnya bisa mbak, karena formatnya sudah XML. Coba lakukan ekpor ulang atau mungkin coba menggunakan aplikasi lain untuk mengekspor SMS-nya. Kemungkinan ada error pada saat mengekspor. Trimssss.

      Delete
    2. sebaiknya tempat penyimpanan file back up sms nya diketahui dulu disimpan dimana??.... setelah itu baru buka excel nya dan ikuti petunjuk dari blog ini....insha Alloh pasti bisa...

      Delete
  2. Info yang sangat bermanfaat..terima kasih

    ReplyDelete
  3. Kalau memindahkan SMS HP Jadul Non ANdroid ke pC bagaimana Kang ?

    ReplyDelete
    Replies
    1. Anda memakai HP jadul tipe apa Mas? Kalau saya dulu pakai Nokia jadul symbian versi 3, bisa pakai aplikasi Nokia PC Suite.

      Delete
  4. Kenapa rumus contactnya ga bisa? Error aja?
    Yang ini :
    =IF(LEN(G2)>=17;IF(LEN(G2)=18;weekdayname(WEEKDAY((LEFT(SUBSTITUTE(G2;" ";"-");9))));IF(LEN(G2)=17;weekdayname(WEEKDAY((LEFT(SUBSTITUTE(G2;" ";"-");8))));IF(LEN(G2)=19;weekdayname(WEEKDAY((LEFT(SUBSTITUTE(G2;" ";"-");10)))))));weekdayname(WEEKDAY((LEFT(SUBSTITUTE(G2;".";"-");10)))))

    ReplyDelete
  5. Artikel Yang Bagus Gan Mohon izin Comment nya ^_^
    Kunjungi Situs Taruhan Bola | Togel | Poker | Domino | Tangkas|Casino

    BOLATAIPAN SITUS JUDI BOLA
    KLUB TAIPAN SITUS PREDIKSI BOLA

    Minimal Deposit Rp 50.000
    Minimal Withdraw Rp50.000


    Mainkan Sekarang Juga, DI Situs Judi Online Terpercaya Indonesia.!!
    Cukup dengan 1 User ID sudah bisa bermain Banya games loh!! :)

    Promo Yang berlaku Di www.BolaTaipan.net :
    HOT PROMO :
    - Bonus Cashback Mingguan Hingga 15%
    - Bonus Refrensi 2,5% Seumur Hidup
    - Bonus Rollingan Casino 0.8%
    silakan bosku ^_^
    Discount 4D : 66.00% , 3D : 59.5% , 2D : 29.5%
    Kombinasi = 5%
    Shio = 12%
    Colok Angka (1A) = 5%
    Colok Macau (2A) = 15%
    Colok Naga (3A) = 15%
    Colok Jitu = 8%
    jika ada kendala silahkan hubungi ke live chat kami ya bosku ^^
    kami siap membantu bosku 24jam :)
    Salam Hoki bosku ^^

    WA : +85581520194
    LINE : bolataipan
    Instagram : @bolataipan99
    Twitter : @BolaTaipan
    Fanspage : @BolaTaipan

    ReplyDelete

Memindahkan SMS ke Komputer Menggunakan Excel Memindahkan SMS ke Komputer Menggunakan Excel