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

tips excel cara cepat copy-paste VLOOKUP value dari file lain


Dalam pekerjaan saya, sering saya melakukan VLOOKUP atau formula lain yang mereferensi dari file lain. Alhasil, ukuran file membengkak, dan terkadang formula bisa error atau tidak terupdate.
Cara pertama yang dilakukan umumnya adalah meng-copy-paste as value dari semua cells yang ada VLOOKUP nya. Namun, bagaimana jika :
  • jumlah cells terlalu banyak untuk copy-paste
  • RAM komputer sedang sedikit banget, sehingga tidak bisa copy-paste
Setelah utak atik, ternyata ada metode yang simple dan cepat untuk melakukan semua itu. Yaitu dengan cara "break links", sebagai berikut :

Misal ini datanya
Klik tab "Data", lalu "Edit Links"
Muncul window berikut, nampak link menuju file lain, lalu klik "Break Link"
Muncul peringatan, klik "Break Link"
Maka link menuju file lain hilang

Begitulah caranya untuk tips excel cara cepat copy-paste VLOOKUP value dari file lain. Memang nampak sepele, namun buat saya yang sering membuka beberapa file excel hingga RAM saya menipis, tips ini sangat bermanfaat.

Silahkan dicoba, dan semoga bermanfaat yaa.

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.