Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Şubat 2005 Salı

Creating Regions

'Module1
Option Explicit
Dim Hücre As Range
Dim i As Single

Sub BölgeOluşturma() 'Creating regions
On Error Resume Next
Cells.Delete Shift:=xlUp
i = 0
For Each Hücre In Range("C3:C17,D4:D6,E7:E9,F10:F12,G7:G9,H4:H6,I3:I5,J3:K17,M3:M14,N15:N16,O17:P17,Q15:R16,R3:S14")
With Hücre
If Not .Rows.Hidden Then
i = i + 1
.Value = i
.Font.Bold = True
.Font.Size = 8
.Columns.AutoFit
Else
.Clear
End If
End With
Next Hücre
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