Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Mayıs 2006 Pazartesi

Rotating Text

'Module1

Option Explicit
Dim i As Integer
Dim Hücre As Range

Sub DönenYazı() 'Rotating text
On Error GoTo Hata
Set Hücre = ActiveCell
Hücre.Value = "Mustafa ULUSARAÇ "
For i = 1 To 2000
Hücre = VBA.Right(Hücre, VBA.Len(Hücre.Value) - 1) + VBA.Left(Hücre, 1)
Application.Wait VBA.Now + VBA.TimeSerial(0, 0, 1)
Next i
Exit Sub
Hata:
Hücre.Value = ""
End Sub

Hiç yorum yok:

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