
Beberapa waktu lalu, saya membuat tulisan tentang macro Excel yang dapat mengubah angka menjadi teks. Salah seorang pengunjung lantas bertanya kegunaan lain dari macro. Saya jawab dengan contoh.
Misalnya kita punya berkas Excel yang berisi ratusan angka di setiap sel. Kita, misalnya, ingin memberi warna merah untuk angka yang nilainya negatif dan warna biru untuk angka yang bernilai lebih dari 100.
Saya katakan bahwa pekerjaan tersebut dapat dilakukan dengan cepat, cermat, dan mudah dengan menggunakan macro.
Seorang pengunjung yang lain kemudian bertanya, “Bagaimana cara membuatnya?”
Ya, bagaimana melakukannya? Dapatkah hal ini dikerjakan dengan macro? Jawabannya tentu saja dapat. Apakah cepat, cermat, dan mudah? Cermat sih jelas. Tetapi, cepat dan mudah itu relatif.
Setidaknya tak secepat dan semudah jika kita melakukannya dengan fitur yang sudah tersedia di Excel: Conditional Formating!
Sebagai contoh, bukalah sebuah berkas Excel yang masih kosong. Lalu isilah sel-sel pada range A1:E20 dengan angka yang bervariasi antara -50 sampai 200. Anda bisa mengetikkan angka-angka tersebut di setiap sel, atau gunakan fungsi =RANDBETWEEN(-50, 200) di salah satu sel, lalu menyalinnya ke sel yang lain. Fungsi ini1 akan menghasilkan bilangan acak antara -50 dan 200.
Setelah itu, sorotlah semua sel yang berisi angka-angka tersebut, lalu klik menu Format > Conditional Formatting.
Di bagian Condition 1, pilih Cell Value Is di ruas pertama, less than di ruas kedua, dan di ruas ketiga ketikkan 0. Klik tombol Format… lalu pilihlah warna merah di ruas Color.
Lalu kliklah tombol Add >> dan bagian Conditional 2 akan muncul. Isilah dengan Cell Value Is, greater than, dan 100. Klik tombol Format… dan pilihlah warna biru di ruas Color.

Klik tombol OK dan — jreng, semua angka negatif akan berwarna merah dan angka yang lebih besar dari 100 akan berwarna biru.
Cobalah menekan tombol F9 di papan ketik untuk menjalankan kembali fungsi RANDBETWEEN sehingga menghasilkan angka yang berbeda.
Dengan Macro
Bagi Anda yang ingin tahu bagaimana melakukannya dengan macro, buatlah sebuah worksheet seperti pada contoh di atas. Anda bisa menggunakan fungsi =RANDBETWEEN(-50, 200).
Tekan tombol Alt + F11 di papan ketik. Di jendela Microsoft Visual Basic bagian VBAProject2 klik-ganda ThisWorkbook.
Di bagian sebelah kanan yang terbuka, tulislah kode berikut ini.
Private Sub Workbook_SheetCalculate(ByVal Sh As Object) nCol = 1 nRow = 1 Cells.Font.ColorIndex = 0 While Not IsEmpty(Cells(nRow, nCol)) While Not IsEmpty(Cells(nRow, nCol)) Cells(nRow, nCol).Select If Selection.Value < 0 Then Selection.Font.ColorIndex = 3 End If If Selection.Value > 100 Then Selection.Font.ColorIndex = 5 End If nCol = nCol + 1 Wend nCol = 1 nRow = nRow + 1 Wend End Sub
Kembalilah ke worksheet Anda untuk melihat hasilnya. Jika Anda menggunakan fungsi RANDBETWEEN, cobalah tekan tombol F9 berulang-ulang untuk menghasilkan angka yang berbeda.
Catatan. Conditional Formatting di Excel hanya menyediakan 3 kondisi. Bila Anda memiliki lebih dari tiga kondisi yang ingin dijalankan, Anda harus memakai macro.
Tags: excel, macro, tips, tutorial
Entri yang Mungkin Terkait
- Macro Excel: Mengubah Angka Menjadi Teks
- Macro Excel Pengganti VLookup
- Mencari Nama Hari dari Sebuah Tanggal di Excel
- Ekstensi yang Saya Pakai di Firefox
- Kalender 2008
Komentar. Silakan berikan komentar Anda. Beberapa tag HTML diperbolehkan. Anda juga dapat mendaftar di Gravatar untuk menampilkan foto Anda.
-
wah.. asyik nih ngutak atik excel..
mohon petunjuk mas…bagaimana cara mem-bold-kan salah satu kata dalam sebuah fungsi di excel?
kalo isi cell adalah string text murni kan gampang memberi format bold pada salah satu kata dari kalimat tersebut..
bagaimana kalau dalam sebuah fungsi?misalnya
isi dari cell a1 adalah 1560000
isi dari cell c1 adalah =”gaji berkala sebesar “&text(a1;”Rp #.###)
sehingga isi cell c1 terbaca : gaji berkala sebesar Rp 1.560.000
yang saya inginkan “Rp 1.560.000″ tercetak dalam format boldterimakasih sebelumnya…
-
ada yang bisa bantuin nggak saya punya masalah nih saya punya file yang saya ingin buat makronya biar lebih cepat tapi saya nggak tau, Masalah aku, saya punya file excel tapi yang saya mau ubah itu di sheet2nya misalx: di sheet1 tertulis Sheet1, sheet2 …………. tapi saya mau ubah dengan nama misx: sheet1 jadi aku, sheet2 jadi say dan sheet seterusnya. ngitu ada yang bisa bantuin nggak? tolong donk!!!!!!
MAkasih sebelumnya yah
-
saya adalah seorang pemula,bisa gak minta pedoman/ buku untuk belajar tentang makro,Trima kasih
-
1. Saya ingin menggunakan Macro yang sudah saya buat di excel disemua Sheet atau disemua File Excel, bagaimana caranya?
2. Saya ingin membuat formula dengan menggunakan Conditional Formating
Jika cell “A1” Valuenya >1 maka di cell “A2”
akan muncul tulisan “Salah” dengan warna fontnya merahsedangkan
Jika cell “A1” Valuenya <1 maka di cell “A2”
akan muncul tulisan “Benar” dengan warna fontnya BiruMohon penjelasannya terima kasih
-
Saya ingin tahu formula di excel dgn kasus sbb :
Di cel A1 tertulis 9. Saya ingin ada formula untuk cell B1=merubah angka 9 di A1 jadi 5. Gimana formulanya??Makasih
-
ada yang bisa bantu aku ga ya.misal kalau kita mau buat command button bisa berubah warna jika kita klik option button biru… caranya gimana ya??? trims ya bantuan nya.
-
mohon bantuan para senior…………..
contoh : dari contoh di bawah ,saya ingin merubah font color dgn
menggunakan coding excel sbb:
CODE CLOSE +/- Price
————————————–
COL.A COL.B COL.C
AAA 3,325 1
AAB 4,450 2
CAC 13,450 -1
CFV 365 0
ACA 28,700 -3
jika nilai di colum C plus maka nilai (font)di col B berwarna hijau,dst
dan jika nilai di col C minus maka font di col B berwarna Merah
dan jika nilai di col C 0 maka nilai di col B berwarna Kuning.
apakah para senior dapat membantu saya utk men-solve nya.
saran dan bantuan anda sangat berharga.
Waiting SOON……………………
Rgds
SAT -
Mau tanya nih???
kasus : Saya punya tabel stok. kolom dengan nama “Barang Rusak” bila dalam kolom tersebut ada cell yang kosong maka background cell nya merah tapi bila ada cell yang terisi maka background cell nya berwarna biru??mohon bimbingannya.
-
Terima kasih nya buat pencerahaannya !!!!!
-
Terima kasih atas jawaban sebelumnya , saya ada pertanyaan lagi nih…
mohon bantuannya..
(1)
saya ingin merubah warna column dgn menggunkan code “IF bercabang”
ex :
=IF(32<1 then color column nya jadi warna biru IF(N340,IF(L9<0.2,IF(I90,IF(N9<60,”WATCH”,”LEAVE”)))))
namun kenapa hasilnya di tabel saya terdapat “FALSE” juga !?!
gimana cara menghilangkan FALSE nya.waiting soon………………………..
Regrads
SAT -
saya ingin tanya gimana membuat grafik otomatis berubah warna bila angka mencapai batas target misalnya target 90 jika ada yg lebih dari 90 grafik batangnnya langsung berubah merah atau hijau.
trima kasih
-
hallo, salam kenal……..
saya ingin nanya pengunaan goal seek pada visual basic editor pada microsoft excel..menulis syntxnya gmn yach…
contoh..
sy punya persamaan y = a * X^2 + b*x + c
nilai a di input pada sheet1.cells(1,2)
nilai b di input pada sheet1.cells(2,2)
nilai c di input pada sheet1.cells(3,2)
nilai x di input pada sheet1.cells(4,2)
hasil nilai y di input pada sheet1.cells(5,2)nilai y harus nol dimana nilai x berupa variabel.
Sy melakukan running mengunakan command button.
Sy udah mencoba menulis persamaan tersebut tetapi untuk goal seek ada kesalahn syntax
contoh bhs programnya:
commandbutton_click ()
dim a as single
dim b as single
dim c as single
dim x as single
dim y as singlea = sheet1.cells(1,2)
b = sheet1.cells(2,2)
c = sheet1.cells(3,2)
x = sheet1.cells(4,2)y = a*x^2 + b*x + c
sheet1.cells(5,2) = y
sheet1.cells(5,2). goal seek (0), changingcell:=sheet1.cells(4,2) –> apakah penulisan syntax yg benar gmn yach????????
End sub
mohon bantuannya,……..thanks
-
bpk pengasuh yg terhormat,
saya ingin merubah warna pada colom B, jika data B tidak ada di range A
( CONTOH ) ada yg bisa bantu?Terimakasih
COLOM A COLOM B
No Botol SA NO BOTOL KELUAR
511206 511206
510010 511111
A224763 A224763 -
TERIMAKASIH SEKALI BAPAK MEMBUAT SITUS MENGENAI MASLAH EXCEL INI,
SUDAH LAMA SAYA MENCARI CARI DAN MAU BERTANYA TENTANG EXCEL TAPI BARU KETEMU SEKARANGSAYA MAU MEMBANDINGKAN DUA KELOMPOK DATA DI EXCEL DATA NYA RATUSAN, DAN DALAM KEDUA DATA TERSEBUT TERDAPAT ANGKA YANG SAMA TAPI PUNYA TANGGAL BERBEDA, GIMANA MEMBANDINGKANNYA DAN DATA DATA YANG SAMA TETAP KEBACA
-
met siang, ada yg bisa bantu cara menggunakan fumgsi control toolbox? dan mohon penjelasan sebelumnya control tersebut berfungsi bgmn? terimakasih
-
bapak pengasuh yang terhormat,
saya sedang menggunakan fasilitas list pada excel.
1. Apakah fasilitas ini bisa menampilkan sesuai dengan input yang kita inginkan? contoh : list saya buat pada range A2: A10. Inputnya pada range A1. Kalau tidak bisa, apakah macro bisa melakukan?
2. Difasilitas excel untuk selalu mencetak bagian atas dapat dilakukan. Apakah ada fasilitas untuk bagian bawahnya? -
Mas mau nanya tentang excel dong.
saya biasa make fungsi concatenate() untuk gabungin text. kalo text nya sedikit gamasalah Contoh : teks di A1 = ‘Belajar’ , A2 = ‘ ‘, A3 = ‘Excel’ =concatenate(A1,A2,A3) hasilnya belajar excel. jadi masalah kalo cell yang mau digabung banyak misalnya dari A1 sampe A100 ada ide ngga mas? -
Mohon bantuan dari para pakar Excel ………..
saya stiap hari membuat tabel dgn Excel sbb :
Tanggal : 22 May 2008
CODE CLOSE % PRC VALUE VOLUME
AAA 7,200 4 883,450,314,752 120,470,496
BDC 12,900 0 210,859,786,240 16,178,500
BBRT 530 0 89,882,435,584 169,589,504
Dst…..
data2 tsb stiap hari berubah dan secara otomastis saya import dari rumus yg saya buat dari software Metastock. stiap hari data2 tsb saya simpan di Excel dgn tanda kunci nya adalah tanggal data tsb. besok harinya data yg akan saya import saya simpan di file yg sama namun SHEET yg berbeda dgn merename Sheet tsb menjadi tanggal data perhari tsb.
saya ingin bantuanya utk membuat DATA tsb tetap di satu Sheet dgn bantuan tombol tanggal sehingga dapat menyimpan dan menampilkan data yg ingin saya lihat.
lebih simple nya pertanyaan saya adalah : bgm cara membuat data base
dalam satu sheet dapat menyimpan berbagai data harian yg dpt dilihat oleh tombol tanggal saja , filter per tanggal dan per bulan.
mohon saran dan bantuan nya , terima kasih.—-satya—–
-
tutorial yang bagus…
saya baru saja akan belajar pemrograman macro di excel
apa bila saya ingin agar setiap mengetik kata “aku” berubah menjadi “kamu” maka bagaimanakah caranya?saya hendak membuat fungsi sederhana seperti berikut
//———————————–
function check(cell)if(cell = “aku”) then
cell = “kamu”
end if
end function//———————————–
kenapa tidak mau jalan ya?
selain itu saya coba debung dengan merubah seperti berikut//————————
function check(cell)if(cell = “aku”) then
msgbox(“kamu”)
end if
end function
//————————-kenapa ngak mau jalan juga ya?
mohon pencerahannya
-
oh iya saya ingin bertanya satu lagi
agar macro yang telah kita buat tidak bisa dilihat oleh orang lain gimana cara proteksinya ya?
saya klik kanan kemudian set password protection kenapa masih bisa dilihat oleh orang lain? -
saya mau bertanya nih buat abang2 semua..
saya punya masalah dengan penulisan nilai pada raport siswa
contoh :
cell A1 nilai angka : 8,05
cell B1 nilai huruf : delapan koma nol limasaya kesulitan untuk merubah nilai angka pada cell A1 menjadi
nilai huruf di cell B1 , mohon bantuannya dari saudara2…sebelumnya terima kasih.
-
Mas Eka .
aku mau nanya boleh ga ?
Bagaimana caranya agar formula yg saya tuliskan pada sel , tidak terbaca di formula bar ?
misalkan :
sel A3=A2*A1
kalau kita klik sel A3 maka tidak terbaca formulanya di bar
tolong dibantu ya, terimakasih banyak -
Um Eka, mau tanya nih, gmn ya caranya bikin tabel pertandingan kayak Tabel Pertandingan EURO kemarin, yang langsung bisa mengindeks sendiri…
Mohon bantuannya…. -
pak mo nanyak nih.
apa bisa ya yang udah di ketik ke bawah menjadi kesamping
mohon jawabanya
contoh:
A
1 LISTENING I
2 LISTENING II
3 LISTENING IIImenjadi
A B C
LISTENING I LISTENING II LISTENING IIIterimakasih jawabanya
-
tutorial yang bagus2 pak…
pak mau tanya formula exel macro:
misal pada colom (A) terdapat 1-200 baris dan seterusnya jika di input terus menerus.bagai mana menampilkan baris terakhir colom (A) pada colom (B1). colom (B1) sebagai tempat informasi angka yang ada dibaris terakhir pada colom (A) dan angka selanjutnya serta sesuai nilai(angka) yg dimasukan pada baris terakhir colom (A)
mohon bantuannya dan terimakasih..
-
Mksh pak, saya mau tanya, gimana nampilkan nama-nama anak yang mendapat nilai kurang dari 65. kolom A nama anak, Kolom B,C,D nilai, Kolom E rata-rata. dari data kemudian nama anak yang nilainya kurang dari 65 ditampilkan semua. jumlah anak 45 orang. Mkasih atas jawabannya.
-
Pak minta petunjuk,
aq newbie dlm excel, ga tau ni ada hubungan dgn posting Bpk atau tidak, sblumnya minta maap.
aq mo tanya pak, gmn caranya link sheet1 & sheet2 dimna kondisinya kalau di sheet1 ditambah baris atau kolom baru+data(disisipkan) mk di sheet2 otomatis juga nambah seperti kondisi di sheet1.
sebelumnya saya ucapkan banyak terimakasih…
sukses slalu U/ bp. -
pak mo nanyak nih.
apa bisa ya yang udah di ketik ke bawah menjadi kesamping
mohon jawabanya
contoh:
A
1 LISTENING I
2 LISTENING II
3 LISTENING IIImenjadi
A B C
LISTENING I LISTENING II LISTENING IIIterimakasih jawabanya
Jawab : gunakan fasilitas paste special
setelah anda copy tabel sumber, masuk ke salah satu cell yg laen, pilih edit > paste special > tandai option transpose > OK.
Semoga Membantu -
Macro Buat Transpose:
Sub ContohMacro1()
Selection.Copy
Range(“F9″).Select ‘<< F9:Posisi cell di paste
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub -
Pak minta petunjuk,
aq newbie dlm excel, ga tau ni ada hubungan dgn posting Bpk atau tidak, sblumnya minta maap.
aq mo tanya pak, gmn caranya link sheet1 & sheet2 dimna kondisinya kalau di sheet1 ditambah baris atau kolom baru+data(disisipkan) mk di sheet2 otomatis juga nambah seperti kondisi di sheet1.
sebelumnya saya ucapkan banyak terimakasih…
sukses slalu U/ bp.JAWAB :
Pertanyaan yg bagus… da yg bisa bantu ? -
pak mau tanya formula exel macro:
misal pada colom (A) terdapat 1-200 baris dan seterusnya jika di input terus menerus.bagai mana menampilkan baris terakhir colom (A) pada colom (B1). colom (B1) sebagai tempat informasi angka yang ada dibaris terakhir pada colom (A) dan angka selanjutnya serta sesuai nilai(angka) yg dimasukan pada baris terakhir colom (A)
mohon bantuannya dan terimakasih..
PAK PRIATNA … JAWAB DOOONG….
-
“Pak minta petunjuk,
aq newbie dlm excel, ga tau ni ada hubungan dgn posting Bpk atau tidak, sblumnya minta maap.
aq mo tanya pak, gmn caranya link sheet1 & sheet2 dimna kondisinya kalau di sheet1 ditambah baris atau kolom baru+data(disisipkan) mk di sheet2 otomatis juga nambah seperti kondisi di sheet1.
sebelumnya saya ucapkan banyak terimakasih…
sukses slalu U/ bp.JAWAB :
Pertanyaan yg bagus… da yg bisa bantu ?”-> aq ada ptunjuk dikit, klick sheet1 tekan CTRL(tahan) trus klick sheet2 lepas CTRL.
tp cara ini ga mungkin dipakai cuz kl terjadi pd beberapa sheet kan kesulitan. apalagi di penambahan pd sheet1 ga semuanya muncul di sheet2 sdngkan pakai cara ini smua kondisi di sheet1 akan muncul di sheet2.
gmn pak, mohon pencerahannya dunk….bingung nih pak………plizz
makasih sebelumnya,
sukses slalu -
Pak Priatna…
aku mau nanya: jika kita mempunyai data dalam 1 sheet berisi 1 kolom JENIS berupa : Baju, Celana, Sepatu,dll. kmudian kolom ukuran Xl, L, M,S dan harga sesuai jenis dan ukurannya.. nah pada saat kita panggil di sheet yang lain kita ingin pada saat kita input jenis pada 1 kolom dan ukuran pada kolom yang lain kita dapat mendapatkan harganya pada kolom yang lain juga.. bisa nggak pak…mohon bantuannya segera,,,,,,Terima kasih banyak Pak Priatna
-
Pak Priatna…
Aku mau nanya, bisakah bapak membuat / menjelaskan arti dari perintah-perintah pada makro exel. misalnya Dim Rupiah, Sen, Temp. Dim itu maksudnya… MyNumber = Round(MyNumber, 2). Round itu apa maksudnya….. maaf kalau pertanyaan yang saya ajukan kurang begitu berkenan. -
bos, mo tanya neh…
aku br belajar excel n bingung untuk ngebuat formula untuk membandingkan data dari 2 kolom misalA B C
56 78 78Nah formula apa yang bisa kolom c menghasilkan 78 karena 78 memiliki nilai lebih besar dari 56.
-
Minta bantuan nch…
Bisa gak dipermudah kerjaan saya menggunakan makro, saya punya data sebagai berikut :
1. Nama pemesan column A
2. Barang pesanan column B
3. Jumlah pesanan column C
3. Tanggal kirim column CSaya ingin menampilkan data secara cepat dengan memasukan Tanggal kirim dari data di atas, ingin langsung tampil Nama Barang Pesanan dan kumulatif Jumlah dari beberapa pemesan sesuai Tanggal Kirim yang diminta
terima kasih atas bantuannya
-
@Dedi Herdiana :
Pake Pivot table boss.. mudah dan cepat -
saya cuman mw tanya penggunaan fungsi if bercabang di ms.excel itu gimana sihh..???
saya coba berulang kali kok nggak bisa…..
misalnya di bawah ini
=IF(B5=”A”;”BAIK SEKALI”;IF(B5=”B”;”BAIK”;IF(B5=”C”;”CUKUP”;IF(B5=”D”;”KURANG”;”KURANG SEKALI”))))
bawaannya eror terus……
Tolong diperbaiki ya……????
maklum masih awam…..
kalo bisa di jawab ke email saya aja….
makasih lohh……. -
Klo kita punya Sheet1…. sampe Sheet30
Trus mau kita gabungan jadi satu shhet sesuai format kita…
Gimana ya… -
bos, saya mo nayak nich ?
Bisa gak dipermudah kerjaan saya dengan menggunakan makro/fungsi excel, saya punya pekerjaan biar cepat menentukan angka Anuitas untuk pengajuan kredit karena selama ini saya menggunakan tabel angka anuitas contoh dengan jangka waktu kredit 120 bulan dan bunga yang berlaku 12 % dihasilkan angka anuitas sebesar 14,347095terima kasih atas bantuannya dan sukses selalu.
-
bos. klo =randbetween(x; y) kan kita mendapatkan angka antara x dan y secara berulang2, so pasti akan ada nilai yang sama, nah klo aku mau angka yang sudah keluar di antara x dan y ngga keluar lagi gmn bos..
buat pengacakan sampel penelitian neh bos….tq
-
maw nanya mas..
membuat data Register Sisa Pinjaman bagaimana y mas….
agar bisa otomatis….
-
mw nanya gmn cara bkin d excell klo ad kondisi, max order for good product is 6 cans 900gr and 12 cans 400gr..
smua uda ad datany.. datany macem2, dari yg bad product mpe good; dr yg 100gr mpe 900gr.. thx b4.. Gb









73 comments
Comments feed for this article
Trackback link: http://priatna.or.id/2007/11/30/excel-macro-dan-conditional-formatting/trackback/