AnuNeAnu

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

Contoh hasilnya

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

Pesan Sponsor :
Anda mencari cara jadi agen tiket pesawat tanpa deposit, atau mungkin cara memulai bisnis tiket pesawat? Ayo gabung menjadi agen garuda indonesia bersama kami. Agengaruda.com

• jumlah cells terlalu banyak untuk copy-paste
• RAM komputer sedang sedikit banget, sehingga tidak bisa copy-paste

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

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)