Anasayfa | Akademik Forum | Sizden Gelenler | Sipariş
Menü Açıklamaları
Sorular - Cevaplar
Makaleler
Makrolar
Yerleşik İşlevler
Animasyonlar
Yumurtalar
Fonksiyonlar
MTK Programlar
ExcelCE
Dosya İndir
Neler Yaptık?
İletişim
Sorular - Cevaplar
Soru-Cevap: 32 - M. Temel Korkmaz - 28.04.2004

Belirlediğim sayıyı veritabanımda arasın, yoksa bile en yakın olanı bulsun.
Soru - 32:
Aşağıdaki gibi bir tablom var diyelim.  Bu tablodaki sayılardan hangisi C1 hücresine yazacağım sayıya daha yakınsa, o kişinin ismi kırmızı renk olsun. Bunu nasıl yapabilirim?



Cevap - 32:

Bu öyle sandığım kadarda hemen halledilecek bir problem değilmiş meğer. Ben yine de sizin için bir makro hazırladım. Aşağıda bu makronun kodlarını göreceksiniz.

Sub YakiniBul()
   Dim i As Integer
   Dim hucre As Range

  
Range("A1:A1000").ClearFormats
   k = Abs(Range("c1") - Range("B1"))

  
For i = 1 To WorksheetFunction.CountA(Range("B1:B1000"))
      deger = Abs(Range("c1") - Cells(i, 2))
      If deger > k Then
         GoTo git
      Else
         k = deger
      End If
git:
   Next i

  
For Each hucre In Range("B1:B1000")
      If hucre.Value = k + Range("C1") Then
         hucre.Offset(0, -1).Font.ColorIndex = 3
      ElseIf hucre.Value = Abs(k - Range("C1")) Then
         hucre.Offset(0, -1).Font.ColorIndex = 3
      End If
   Next hucre
End Sub


Bu makro kodunu Çalışma sayfasında bir düğmeye atayın. C1 Hücresine aramak istediğiniz rakamı yazın ve Düğmeye tıklayın. Aşağıdaki gibi bir görüntü alacaksınız.

Destek
M.ÖZTÜRK - Y.KARAMAN
Bu siteyi, "Hayatını çocuklarının Ahlâklı ve Dürüst yetişmesi için harcamış olan Cefakar ve Fedakar, Canım ANNEM'e adadım."
Copyright © 1998-2011 M. Temel Korkmaz - Tüm hakları saklıdır.