Etiketler

AutoCAD (54) bedava (47) Resim (33) Dosya (32) program (21) Ziyaretçi Defteri (20) excel (18) Güncelleme (16) asgbookphp (16) Şablon (15) Qbasic (14) php (14) Eğitim (13) Nasıl yapılır (13) online (13) Freeware (12) PHP script (12) Fotoğraf (11) Kaynak kod (10) SolidWorks (10) Dos (9) Photoshop (9) VBA (9) Visual Basic (9) ürünler (9) E-book (8) tutorial (6) Ders (5) Word (5) Lisp (4) Programlama (4)

19 Haziran 2016 Pazar

Excel: Aktif satır ve sütun renklendirme

Makro kullanarak Excelde aktif satır ve sütunu renklendirerek hücre takibi yapmak kolaylaştırılabilir.
Bu işlem için iki farklı makro kodu veriyorum. Kodları deneyip uygun olanını kullanabilirsiniz.

Makro eklemek için önce aşağıda verilen makro kodunu kopyalayın.
Excelde sayfa adı(Sayfa1, Sayfa2 ...) üzerinde sağ tıklayın
Açılan menüde Kod görüntüle tıklayın.

Açılan kod penceresinde kodu yapıştırın(CTRL+V)


Alternatif yol:

ALT+F11 e basın. (Menü: Geliştirici / Kod görüntüle)




Açılan pencerede sol bölmeden sayfa adını çift tıklayın(Sayfa1, Sayfa2 ...)
Sağ bölmeye kodu yapıştırın.

Makro 1:


Makro 2:

5 yorum:

  1. Çok teşekkürler. Allah razı olsun. Böyle bir şey arıyordum. :)

    YanıtlaSil
  2. Merhabalar,
    Makro 2 ' hücrelerde yapılan zemin rengi renklendirmelerini iptal eder demişsiniz ne iptal ediyor?

    YanıtlaSil
    Yanıtlar
    1. daha önceden yapılmış hücre zemin renklerini siler.

      Sil
  3. Merhabalar pardon tam olarak anlayamadım şimdi bu makroyu çalıştırdığımda aktif hücre renkleniyor ama işim bittiğinde makroyu sildiğim de renk bırakıyor bunu yapmasını istemiyorum işim bittiğinde nasıl pasif hale getirebilirim?

    YanıtlaSil
    Yanıtlar
    1. aşağıdaki kodları kullanın.
      A1 hücresinde M olduğu sürece çalışır

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      'makro: Mesut Akcan
      '19/6/2016
      'www.akcansoft.com

      ' hücrelerde yapılan zemin rengi renklendirmelerini iptal eder
      ' CTRL+Z -> Geri al çalışmaz
      Cells.Interior.ColorIndex = xlColorIndexNone
      If UCase(Range("a1").Value) <> "M" Then Exit Sub
      With ActiveCell
      .EntireColumn.Interior.ColorIndex = 17 'Sütun Rengi. 6=sarı
      .EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
      .Cells.Interior.ColorIndex = 19 ' Hücre Rengi
      End With
      End Sub

      Sil

Related Posts Plugin for WordPress, Blogger...