Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Haziran 2009 Cumartesi

Blocks In Four Directions To Choose

'Module1
Option Explicit

Sub SeçiliHücredenSonrakiİlkDoluHücreyeKadarıSeçme() '[Blocks In Four Directions To Choose]
On Error Resume Next
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

10 Haziran 2009 Çarşamba

SelectEntireRow / EntireColumn

'Module1
Option Explicit

Sub KolonVeSatırıBlokSeçme() '[SelectEntireRow/EntireColumn]
On Error Resume Next
Selection.EntireRow.Select
Selection.EntireColumn.Select
End Sub

1 Haziran 2009 Pazartesi

Numeric / Text Control

'Module1

Option Explicit

Sub SayısalVeKelimeİşlemKontrolü() '[Numeric/Text Control]
On Error Resume Next
Durak1:
DoEvents
If Not Application.IsNumber(ActiveCell) Then GoTo Durak1 Else GoTo Durak2
Durak2:
DoEvents
If Not Application.IsText(ActiveCell) Then GoTo Durak2 Else GoTo Durak1
End Sub

Blog Arşivi

Gadget

Bu içerik henüz şifreli bağlantı üzerinden kullanılamıyor.

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
Anadolu Üniversitesi Açık Öğretim Fakültesi