Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Kasım 2008 Cumartesi

Color_Number



'Module1

Option Explicit
Dim i As Integer
Dim Alan As Range, Eleman As Range

Sub Renk_No()
On Error Resume Next
Set Alan = Sheets("Sayfa1").UsedRange
For i = 1 To 56
For Each Eleman In Alan
If Eleman.Value = i Then
Eleman.Offset(0, 1).Interior.ColorIndex = i
End If
Next Eleman
Next i
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