Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Mayıs 2008 Perşembe

Selection Interior



'Sheets("VeriTabanı") Module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static ÖncekiHücre As Range
On Error Resume Next
If Target.Interior.ColorIndex = -4142 Then
Target.Interior.ColorIndex = 46
ÖncekiHücre.Interior.ColorIndex = xlColorIndexNone
Set ÖncekiHücre = Target
Else
ÖncekiHücre.Interior.ColorIndex = xlColorIndexNone
End If
End Sub



Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul