Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

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

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