Showing posts with label Macro. Show all posts
Showing posts with label Macro. Show all posts

Macro Excel untuk merubah isi cell yang berwarna tertentu


Suatu ketika, saya dimintai tolong oleh istri untuk mengerjakan pekerjaannya di Excel.
Sebagai suami yang menyayangi istri, saya pun menyanggupinya.
Ternyata, salah satu pekerjaannya adalah untuk mengisi cells yang berwarna kuning dengan tulisan.
Di contoh ini, saya beri saja tulisan "X".

Maka, saya pun googling sebentar, dan ketemu lah cara untuk melakukannya melalui otomasi Macro VBA. Caranya, select dulu cells yang diinginkan, lalu run Macro ini.

Sub ubahIsiBasedOnColor()
Dim rng As Range
Dim aaa As Range
Set rng = Selection

With Application
        .ScreenUpdating = False
        xlCalc = .Calculation
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .DisplayAlerts = False
    End With

For Each aaa In rng
    If aaa.Interior.Color <> 16777215 Then '16777215 = putih
        If aaa.Value = "" Then
            aaa.Value = "X"
        End If
    End If
Next aaa

With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlerts = True
        .Calculation = xlCalc
    End With

End Sub

Berikut hasilnya :

Contoh hasilnya
Di sini saya mengisi cells yang warnanya BUKAN putih, yaitu code 16777215. Untuk detail mengapa warna putih terasosiasi dengan code tersebut, mohon maaf saya tidak explore lebih lanjut.

Semoga bermanfaat

Macro Excel untuk copy-paste Value di semua sheet secara otomatis


Script ini saya coba di MS Excel 2013, dan berfungsi dengan baik.
Ini sangat bermanfaat jika kita memiliki banyak sheet - atau mungkin cuma satu sheet tapi BANYAK cells berisi formula di dalamnya.
Tentunya akan sangat repot jika harus satu persatu copy-paste as Value. Dengan script Macro Excel ini, hal itu bisa dilakukan secara otomatis.

ilustrasi Sheet lebih dari satu

Berikut adalah script nya :

Sub Formula_Zapper()
    Worksheets.Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    ActiveSheet.Select
    Application.CutCopyMode = False
End Sub

Semoga bermanfaat

Sumber

Macro Excel untuk Download Gambar Google Maps dan Street View


Script macro VBA Excel ini saya uji di MS Excel 2013.
Berfungsi untuk mendownload gambar dari Google Maps dan juga Google Street View.
Silahkan diunduh di sini

Maaf tampilannya sederhana banget, karena saya bukan tipe orang desain visual.

Inputannya adalah :

  • Longitude (cell B1)
  • Latitude (cell B2)
  • prefix nama file gambar (cell B3)
Lalu klik tombol warna Biru di sekitar cell F2 dan G2 (iya, itu tombol, hehe)

Silahkan dioprek2 dan dilihat source nya.
Itu saya peroleh dari berbagai sumber.





Cara crack password macro VBA excel


Bagi yang sering menggunakan excel untuk mengolah data tentu tak asing dengan macro VBA. Fitur ini memudahkan kita untuk memudahkan pekerjaan yang sifatnya berulang atau otomatisasi. Terkadang kode - kode macro tersebut diproteksi dengan password agar tidak ada orang yang bisa mengubahnya. Jika ingin mengubah, maka tentu saja harus tahu password-nya atau bisa dengan crack password macro VBA tersebut.

Excel icon

Caranya tinggal download file VBA Project Unlocker yang dibuat oleh mas Anton, jadi segala credit ditujukan kepada beliau. Buka file VBA_Project_Unlocker.xlsm dan klik tombol "Select File". Pilih file makro yang akan dicrack passwordnya. Tool ini support untuk file .xlsm saja, jika masih berupa file .xls, maka diconvert dulu dengan cara Save As file .xls.

That's it, file yang sudah di-crack akan disimpan tersendiri dengan nama Unlocked_namafile.xlsm dan passwordnya diubah menjadi "macro" (tanpa kutib).

Baca juga ini ya :