Excelde Kayan Ekran

[esolen]

Arkadşalar Þçyle bir çalışma yapıla bilinirmi;
1 sayfaya istediğin bilgileri gireceksin
girilen bilgiler ekranda yukarıdan aşağıya doğru kendiliğinden kayacak.
bittiği yerden itibaren tekrar başa dönüp sona gelecek.

 

[Levent Menteşoğlu]

linkteki örneği inceleyin.

http://www.excel.web.tr/viewtopic.php?t=1188

 

[Haluk]

Levent arkadaşımın o güzel çalışması haricinde ekli alternatifi de geliştirebilirsiniz.

 

[VisualBasic]

Sub HareketliYazi()
    Dim int1 As Integer, bitir
    For int1 = 1 To 20
    bitir = Timer + 0.1
        Do
            Range("A1") = Space(int1) & "suzunkopru"
            DoEvents
        Loop While Timer < bitir
        DoEvents
    Next int1
  Range&#40;"A1"&#41; = Empty
End Sub

 

[esolen]

Raider Çalışmanı kullanmaya çalışıyorum
ancak şunları nasıl ilave edebiliriz.
1-kayan ekranda sadece 10 satır var bunu 3000 Satıra Çıkarabilirmiyiz.
2-hızı çok yüksek hızını düşürebilirmiyiz veya bizim istediğimiz bir hızda olabilirmi
3- Datanın olduğu yerden sadece 1 satırı getiriyior 2-3 hatta 4-5 satırlarda getirilebiirmi isterseniz örnek dosyayı gönderebilirim

 

[Haluk]

1-kayan ekranda sadece 10 satır var bunu 3000 Satıra Çıkarabilirmiyiz.

Dosyadaki Data sayfasında A1:A3000 aralığına sözkonusu datalarınızı yazın ve RunMe fonksiyonunda aşağıdaki satırı, eskisiyle değiştirin.

Sheets("Sheet1").Range("a1:a3000") = ""

Benzer şekilde aşağıdaki satırı da eskisiyle değiştirin.

If i > 3000 Then

2-hızı çok yüksek hızını düşürebilirmiyiz veya bizim istediğimiz bir hızda olabilirmi

StartIt prosedurunde aşağıda kırmızı ile işaretlenmiş değeri daha büyük bir değer ile değiştirirseniz, hız azalır. Ã?rneğin; 1000 değeri 1 saniyeye karşılık gelecektir.

[vb:1:ab0e5701e6]Sub StartIt()
ID = SetTimer(0, 0, 200, AddressOf RunMe)
End Sub
[/vb:1:ab0e5701e6]

3- Datanın olduğu yerden sadece 1 satırı getiriyior 2-3 hatta 4-5 satırlarda getirilebiirmi isterseniz örnek dosyayı gönderebilirim

"Satır" ile neyi kastediyorsunuz anlamadım, "sütun" mu demek istiyorsunuz ?

Eğer öyleyse; RunMe fonksiyonunda nasıl ki A sütununa ait satırları görüntüledik, yine aynı mantıkla diğer sütunları da ilave edebilirsiniz.

 

[ALPEN]

Browser kullanarak bir alternatifte benden.

Arkaplan rengi, hız, tablo rengi vs gibi değişkenleri userformu aşağı doğru biraz büyütüp görebileceğiniz label1 içinden değiştirebilirsiniz.

 

[Haluk]

ALPEN, çok güzel olmuş dostum......

Foruma bir de HTML / Java bölümü eklenmesi diye bir talep her an gelebilir....... :mrgreen:

 

[esolen]

Raider desteğin için çok teşekkür ederim.
Ama ben çok iyi excelli kullanamıyorum
dedikleirni yazacak yerleri bulamadım. benim size gönderdiğim dosyaya yazarsanız ben dahil arkadaşlar faydalanır.
veya nasıl yazılacağını benim anlayacağım dilde yazmanızı rica edeceğim.

 

[esolen]

Alpen Raiide kardeşimizin yaptığını çözelim derken siz daha profosyonel bir çalışma yapmışsınız elinize sağlık.

Benim gibi amatorlere verinin nasıl gireceğinide izah ederseniz mutlu oluruz.
Israrla yaptığınız çalışmayı kullanmak istiyorum.

 

[ALPEN]

ALPEN, çok güzel olmuş dostum......

Foruma bir de HTML / Java bölümü eklenmesi diye bir talep her an gelebilir.......

Teşekkür ederim.

Aslında bu çalışma,
ado ile access veritabanına bağlanıp kayıtları excel'de browser üzerinde göstermenin bir parçasıydı.

Ancak tablo sayısı, tablodaki alan sayısı vs gibi veritabanına özgü değişkenleri parametrik yapayım derken iş çok uzamıştı ve bırakmıştım.

En azından burda işe yaradı :mrgreen:

 

[TRABLUS]

:mrgreen:

Yaa, ben birşey soracam bu foruma HTML veya Java bölümü eklenmesi mümkün müdür, acaba? Bana bayağı lazım olacakda ondan dedimidi. ehehehe

 

[ALPEN]

Benim gibi amatorlere verinin nasıl gireceğinide izah ederseniz mutlu oluruz.

sayfa1'de 1. ve 2. sütüna istediğiniz verileri (önceki verileri silin) girip butona basın.

 

[esolen]

Alpen Dediklerini girdiğimde dosya ekteki gibi oldu

 

[Haluk]

Ek'i inceleyin...

 

[ALPEN]

Eki inceleyin.

 

[esolen]

Raider Yaptığın çalışma Elde var bir ))
Teşekkür ediyorum. Yarıdmlarınız için.
ALpen'nin dosyası tasarım olarak güzel olmuş onuda kendi dosyasına ilaveleri ile
sanırım 2 farklı programımız olacak
teşekkürler

 

[esolen]

Alpen Size yollamak istediğim dosya yanlış olmuş asıl göndermek istediğim bu dosya idi))

 

[esolen]

Alpen Dediklerini girdiğimde dosya ekteki gibi oldu

dedim ama yanlış dosya yolladım

 

[ALPEN]

Sayın esolen konu dışı ancak merak ettim.

Sayın nihatjeoloji ile bir akrabalığınız var mı?