Showing posts with label VBA. Show all posts
Showing posts with label VBA. 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.