Ubah warna sel jika data di Input

Bagaimana cara kita mengontrol apakah data sudah kita masukkan atau tidak ke sebuah sel dalam suatu worksheet?
Pertanyaan senada datang dari Yotam Adua:

Bagaimana cara mewarnai cell untuk memonitor bahwa ada cell yang belum diinput datanya ?

warna cell tersebut akan hilang secara otomatis jika cell yg dimaksud sudah diinput datanya

Ada dua cara satu dengan Conditional Formating dan Yang kedua dengan macro:

Untuk dengan conditional formating maka jika sel belum diisi atau sama dengan kosong maka beri warna merah misalnya kalau ada kembali kewarna asli
1. Sorot atau pilih blok data contoh C2:C100
2. Pilih menu Home | Style | Conditional Formating| New Rule |
3. Pilih “Select a Rule Type” >Format only cells that contain
4. Sedangkan pada “Edit the Rule Description:” Cell value diganti dengan Blanks
5. Kemudian klik tombol Format dan pilh tab Fill dan ganti dengan warna merah (misalnya)
6. Klik OK | OK
Selesai

Sedangkan untuk Makro
Maka Pada Sheet1 misalnya
Klik Kanan pada nama Sheet1 di bawah (label sheet) lalu pilih View Code shg muncul VBA Editor

Copykan Code di Bawah ini:

Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target.Column) Then Exit Sub
Target.Interior.ColorIndex = 6
End Sub

Kembali Ke Excel.
Jika anda menginput data maka sel berubah warna menjadi Kuning

Share

14 comments for “Ubah warna sel jika data di Input

  1. August 2, 2011 at 6:57 am
    wah , bagaimana kalau excellnya pake yang 2007?
  2. August 2, 2011 at 7:01 am
    OH Saya sudah menemukan caranya dengan cara menggunakan rumus MOD(ROW();2)=1
  3. rinat
    February 15, 2012 at 12:49 am
    mas..saya mw nanya ne..tolong di bantu..

    misal nya ne mass :
    cell C2:C5,
    jika kita input C3:C4,
    maka warna pada C2:C5 berubah,

    • February 18, 2012 at 1:49 am
      mAAF SAYA TIDAK TERLALU MENGERTI YANG DIMAKSUD TAPI MUNGKIN BEGINI
      Gunakan macro sbb:

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)

      If Target.Address = “$C$4″ Then
      Range(“C2:C5″).Interior.ColorIndex = 5
      ElseIf Target.Address = “$C$3″ Then
      Range(“C2:C5″).Interior.ColorIndex = 6
      End If

      End Sub

  4. edy
    April 23, 2012 at 4:45 pm
    mas mohon bantuannya,
    saya ingin membuat 3 kriteria untuk laporan yang masuk, jika di sel A kita isikan </= tgl 5 maka di sel B otomatis berubah warna menjadi "hijau", kalau di sel A diisikan diatas tgl 5 di sel B berubah manjadi "kuning" dan jika di sel A kosong di sel B berubah menjadi 'merah"
    caranya gimana ya mas ? tks
  5. pakdy
    May 1, 2012 at 1:57 pm
    Mas bantuain gimana Misahin 20 angka dalam 1kolom menjadi 4 angka
    “misal 55556666999944442222 menjadi 5555-6666-9999-4444-2222″
    trim’s
    • May 7, 2012 at 12:25 am
      Kalau angka 55556666999944442222 berada di A1 maka rumus di kolom hasil adalah sbb
      =LEFT(A1,4)&”-”&MID(A1,5,4)&”-”&MID(A1, 9,4)&”-”&MID(A1,13,4)&”-”&RIGHT(A1,4)
  6. July 2, 2012 at 12:07 pm

    *minta tolong mas, gmn caranya supaya cell kedap kedip secaa otomatis??? semacam kaya warning..

  7. November 28, 2012 at 1:35 pm

    * Trims atas kemurahan hatinya………

  8. anggraeni
    March 3, 2013 at 7:36 am

    *saya mau tanya, rumusnya untuk memberikan kriteria warna pada masing2 nama kota sekaligus nama kota itu jg diketahui kriteria wilayahnya masing2. jadi saya pengen tiap wilayah sudah lgsg tau KPW nya apa n warna wilayah nya apa. jadi gak manual lg harus hafalkan KPW dan warna nya. contoh data base nya sbb :

    KODE
    Wilayah
    NAMA WILAYAH
    KPW
    KODE WARNA

    1
    BALARAJA
    BTN
    MERAH

    2
    BOGOR
    JBA
    BIRU

    3
    CAKUNG
    JBT
    HIJAU

  9. March 22, 2013 at 1:58 pm
    GVO is the foremost multilevel marketing chance for today. Require a tour than it and begin your online promoting business!!

Leave a Reply