Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Haziran 2004 Perşembe

Select and Selection


'Module1

Sub AktifKolonuSeç()
On Error Resume Next
Selection.EntireColumn.Select
End Sub
Sub AktifSatırıSeç()
On Error Resume Next
Selection.EntireRow.Select
End Sub
Sub TümHücreleriSeç()
On Error Resume Next
Cells.Select
End Sub
Sub DoluHücreninAltındakiBoşHücreyiSeç()
On Error Resume Next
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub AktifHücreninSağındakiBoşHücreyiSeç()
On Error Resume Next
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
End Sub
Sub AktifHücreninSağveSolundakiDoluHücreyiSeç()
On Error Resume Next
Set LeftCell = Cells(ActiveCell.Row, 1)
Set RightCell = Cells(ActiveCell.Row, 256)
If IsEmpty(LeftCell) Then Set LeftCell = LeftCell.End(xlToRight)
If IsEmpty(RightCell) Then Set RightCell = RightCell.End(xlToLeft)
If LeftCell.Column = 256 And RightCell.Column = 1 Then ActiveCell.Select Else Range(LeftCell, RightCell).Select
End Sub
Sub AktifHücreninAltındakiTümHücreleriSeç()
On Error Resume Next
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub
Sub AyrıAlanlardakiHücreleriSeç()
On Error Resume Next
Application.ScreenUpdating = False
Dim r1 As Range, r2 As Range, rAll As Range
Set r1 = Range("A1", "A3")
Set r2 = Range("C3", "C8")
Set rAll = Union(r1, r2)
rAll.Select
End Sub
Sub AktifHücreninÜçSatırAltıİkiKolonÖnündekiniSeç()
On Error Resume Next
ActiveCell.Offset(3, 2).Select
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