UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

Kulanıcı arayüz formu

UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#1)  Tarkan VURAL » 24 Tem 2008 15:44

Formunuzun adı UserForm1 ise aşağıdaki kodu form sayfasına yazıp deneyebilirsiniz:

Kod: Tümünü seç
Private Sub UserForm_Activate()
baslik = "www.ExcelVBA.Net - Excel VBA Destek Sitesi - "
Dim X As Integer
Dim current As Variant
Dim Y As String
Y = UserForm1.Caption
UserForm1.Caption = ""
For X = 0 To Len(Y)
    If X = 0 Then
    UserForm1.Caption = ""
    current = Timer
        Do While Timer - current < 0.1
           DoEvents
        Loop
   GoTo bitti
Else: End If
UserForm1.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
bitti:
Next X
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#2)  Soner ŞENOL » 29 Ağu 2008 22:25

Hocam bu kodun userform açık kaldığı sürece çalışması veya sağdan sola doğru sürekli hareket halinde olması için ne yapmam gerekir
Kullanıcı avatarı
Soner ŞENOL
Siteye Alışmış
 
Adı Soyadı:soner şenol
Kayıt: 15 Haz 2008 02:18
Meslek: soner.senol@toyotatr.com
İleti: 179
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#3)  Tarkan VURAL » 31 Ağu 2008 18:26

Kodun sürekli çalışması programınızda müthiş bir performans düşüklüğüne sebebiyet verecek. Devamlı animasyon için kendinize göre oluşturacağınız Macromedia Flash eklenti tarzlarını tavsiye ediyorum. Oluşturamam derseniz; Flash tecrübemiz de var, yardımcı oluruz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#4)  Soner ŞENOL » 02 Eyl 2008 01:43

Hocam yardımlarınızı bekliyorum
Kullanıcı avatarı
Soner ŞENOL
Siteye Alışmış
 
Adı Soyadı:soner şenol
Kayıt: 15 Haz 2008 02:18
Meslek: soner.senol@toyotatr.com
İleti: 179
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#5)  Tarkan VURAL » 06 Eyl 2008 04:34

Ek'teki örneği inceler misin ?
İki dosyayı da aynı klasöre açmalısın, yoksa flash çalışmaz.
flash_userform.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#6)  Murat OSMA » 27 Kas 2010 13:20

Abi çok güzel olmuş ellerine sağlık. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14318
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#7)  Süleyman SAVAŞ » 29 Kas 2010 17:55

Tarkan hocam yukarıda paylaştığınız kodu ekteki belgede bulunan userform2, userform3 ve userform4 de kullandım.Animasyon olaraka harika çalışıyor.
Kod: Tümünü seç
Sub Düğme7_Tıklat()
For a = 3 To Sayfa2.Range("a65536").End(3).Row
Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = CStr(Sayfa2.Cells(a, 1).Value)
    .Range("b3").Value = Sayfa2.Cells(a, "b").Value
    .[a31].Value = Sayfa2.Cells(a, "b").Value
    .[e31].Value = Sayfa2.Cells(a, "c").Value
    .[F31].Value = Sayfa2.Cells(a, "d").Value
End With
Next a
End Sub

Fakat Zat-ı Alinizce yazılmış olan bu kodlarla birlikte ofis 2007 de "microsoft office excel çalışmayı durdurdu" diye hata verip uygulamayı kapatıyor.Aynı kodlar ofis 2003 te sorunsuz çalışıyor. Sanırım sürüm farkından kaynaklanan bir durum söz konusu.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 401
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#8)  Tarkan VURAL » 29 Kas 2010 19:24

Şimdi Excel 2007 ve Excel 2010 sürümlerinde denedim, hiç sorun yok.

Kod: Tümünü seç
Private Sub UserForm_Activate()
baslik = "www.ExcelVBA.Net - Excel VBA Destek Sitesi - "
Dim X As Integer
Dim current As Variant
Dim Y As String
Y = baslik
UserForm1.Caption = ""
For X = 0 To Len(Y)
    If X = 0 Then
    UserForm1.Caption = ""
    current = Timer
        Do While Timer - current < 0.1
           DoEvents
        Loop
   GoTo bitti
Else: End If
UserForm1.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
bitti:
Next X
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#9)  Süleyman SAVAŞ » 29 Kas 2010 19:39

Tarkan hocam kod bende de ofis 2003 ve ofis 2007 de yalnız başına mükemmel çalışıyor. Benim maruzatım yukarıda belirttiğim diğer kodla birlikte ofis 2007 te yaşattığı sorun idi.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 401
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#10)  Tarkan VURAL » 29 Kas 2010 21:33

API kullandığınız için olabilir. İstediğiniz amaca hizmet etmek için kullandığınız API' ler, UserForm' un Caption özelliğini kullanarak minimize butonu, icon vs.. ekliyor. API kullanmadan denediniz mi ?

UserForm_Activate() olayında AddIcon, AddMinimiseButton , AppTasklist Me satırlarını okutmadan açmayı deneyin. ;)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#11)  Süleyman SAVAŞ » 29 Kas 2010 21:58

Deneyip neticeyi yazacağım üstat.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 401
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#12)  Tarkan VURAL » 29 Kas 2010 23:20

Bu arada sizin dosya örneğinizi 2003 ve 2010 Excel ile denedim API' ler çalıştığı halde bıraktım. Yine sorun olmadan animasyonu gördüm. [evet]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#13)  isaltan » 13 Nis 2012 00:58

Hocam aklıma takılan bir soru var:
Bu userform_activate() makrosu sürekli devam eden macro.Yani userformun açık olması ile ilgili.Ama ben hem userformla çalışıyor hemde excel ile çalışıyorsam burada sorun çıkıyor.Çünkü macro durdurulamadığı için excel sayfasına her hangi bir şey girilemiyor.
Ancak VBA'ya girip durdurulması gerekiyor. Benzer uygulamayı sürekli güncellenen saat uygulamasında denediğinizde userformda saat çalışıyor.Fakat userformu kapatıp excele döndüğümüzde ecxel sayfasına herhangi bir şey girilemiyor.Bu activate olayı nasıl durdurulacak?
Kullanıcı avatarı
isaltan
Siteye Alışmış
 
Adı Soyadı:İBRAHİM SALTAN
Kayıt: 07 Mar 2012 23:41
Konum: İSTANBUL
Meslek: MEMUR
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#14)  Tarkan VURAL » 13 Nis 2012 02:27

UserForm çarpıdan kapanırken QueryClose tetiklenir. Buraya End yazın.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#15)  isaltan » 14 Nis 2012 03:24

Hocam ekte dosyayı gönderdim.Sizin dediğiniz gibi kodların altına end yazdım ama form kapandığı halde macro çalıştığı için excel sayfasına veri giremedim.Burada bir eksik mi var yoksa kodmu eksik.Sanırım şunun ilave edilmesi gerek:uygulamayı kapatınca makroyu durdur.
Kullanıcı avatarı
isaltan
Siteye Alışmış
 
Adı Soyadı:İBRAHİM SALTAN
Kayıt: 07 Mar 2012 23:41
Konum: İSTANBUL
Meslek: MEMUR
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#16)  Selcuk VURAL » 14 Nis 2012 08:15

Tarkan Bey,
İşin içine API girmezse, 64 bit sistemlerde de sorun olmuyor. Program çalışıyor.
Elinize sağlık çok güzel olmuş.
Bazen sistemi neden 32 bit kurmadım diye isyan ediyorum. Henüz, 64 bit'te başarıyla çalıştırabildiğim 1 tane bile API yok.
Bütün yazılımı API siz çözmeye çalışıyorum. Yani, sağ elimle, sol kulağımı tutacağım diye ne taklalar atıyorum. [komik]
Sevgiler,
Saygılar,
Selçuk VURAL
Kullanıcı avatarı
Selcuk VURAL
Siteye Alışmış
 
Adı Soyadı:Selçuk VURAL
Kayıt: 14 Eyl 2011 08:01
Konum: İstanbul
Meslek: Makina Mühendisi
Yaş: 52
İleti: 189
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Büyükçekmece

Cevap: Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şekli

İleti#17)  Tarkan VURAL » 15 Nis 2012 01:45

isaltan yazdı:Hocam ekte dosyayı gönderdim.Sizin dediğiniz gibi kodların altına end yazdım ama form kapandığı halde macro çalıştığı için excel sayfasına veri giremedim.Burada bir eksik mi var yoksa kodmu eksik.Sanırım şunun ilave edilmesi gerek:uygulamayı kapatınca makroyu durdur.


Ekte dosya yok. Kodların altına girdim dediğiniz kodların tamamını buraya yazar mısınız ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#18)  isaltan » 15 Nis 2012 02:11

Hocam ekte dosyayı gönderdim.Bu uygulmada excele veri girişi olmuyor. Sanırım kodun düzeltilmesi gerekiyor?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
isaltan
Siteye Alışmış
 
Adı Soyadı:İBRAHİM SALTAN
Kayıt: 07 Mar 2012 23:41
Konum: İSTANBUL
Meslek: MEMUR
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#19)  Tarkan VURAL » 15 Nis 2012 02:29

Tahmin ettiğim gibi End yanlış yerde.

Kod: Tümünü seç
Option Explicit

Private Sub CommandButton1_Click()
Unload Me
Application.Visible = True
End
End Sub

Private Sub UserForm_Activate()

Do
  Label1.Caption = Format(Now, "d mmmm yyyy dddd hh:mm:ss")
  DoEvents
Loop


End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Başlığı - Kayan Yazı Animasyonu Şeklinde

İleti#20)  isaltan » 15 Nis 2012 02:53

Hocam teşekkür ederim yardımcı olduğunuz için:)İyi geceler...
Kullanıcı avatarı
isaltan
Siteye Alışmış
 
Adı Soyadı:İBRAHİM SALTAN
Kayıt: 07 Mar 2012 23:41
Konum: İSTANBUL
Meslek: MEMUR
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Sonraki

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe