Başlık Yazısını Kaydırma

[Mdemir63]

Arkadaşlar
Excel sayfamızdaki başlığımız "TÜRKİYE CUMHURİYETİ" bu başlığı kayan yazı veya yanıp sönen yazı nasıl yapabilirim.

Teşekkürler

 

[Selçuk1]

sayın komutan63;

belki böyle bir şey işinizi görebilir,

bir modulün içerisine aşağıdaki kodu kopyalayın, a1 hücresine yazacağınız yazı excel pencerenizin statusbar ve caption'unda kayacaktır. dosya ektedir.

Sub Yazi()
Dim i As Single
Dim ilk, son, veri As String
Do While (True)
DoEvents
ilk = Left(Cells(1, 1), 1)
son = Mid(Cells(1, 1).Value, 2, Len(Cells(1, 1).Value) - 1)
Cells(1, 1).Value = son + ilk
For i = 1 To 12000000
Next i
veri = Cells(1, 1).Value
Application.StatusBar = veri
Application.Caption = veri
Loop
End Sub

 

[Mdemir63]

Sn: Cellchuq elinize sağlık

yalnız benim sayfa başlığına bunu nasıl uyarlayabilirim

Saygılar

 

[Selçuk1]

Sn.Komutan63;

ektede görüldüğü üzere, dosyanızın a1 hücresine yazacağınız veri statusbar ve captionda kayacaktır. (hem altta hem üstte yani) ben a1 hücresinin yazı tipini beyaz yaptım görünmemesi için, isterseniz satırı gizleyebilirsiniz. kendinize nasıl uyarlamak isterseniz, a1 hücresine istediğiniz veriyi yazınız.

saygılar...

 

[ANTALYA 01]

D

Merhaba

Peki bu işlem için sayfa açıldığında BAŞLA Tuşuna basmadan otomatik başlasa ve exel çalışma kitabından çıkıldığında sonlansa yapılabilir mi ?

 

[ANTALYA 01]

D

Yani sayfa açık kaldığı ve çalışma sayfasında işlem yapıldığı sürece makro çalışsa

 

[Levent Menteşoğlu]

Bu isetidğiniz yukarıdaki kodla olmaz bir timer kullanmak gerekir. Ama buda sayfa üzerinde işlem yapmanızı zorlaştıracağı için ben tavsiye etmiyorum.