|
|
|
 |
|
|
 |
 |
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.
|
|
|
 |
|
|
|
