Excel'i Canlandırmak

N

nihatjeoloji

Katılım
16 Nisan 2005
Mesajlar
353
Selam Arkadaşlar

excel il açıldığında küçük bir pençere daha açılsın bu pençerede

Progranın adı:.......
yapımı :.......2005
programı yapan:......
ipüçleri:.....
.......
.....


bu saydıklarım küçük pençerede kayarak ve güzel bir müzik eşliğinde


bu mümkün'mü acaba ???
 
B

bedersu

Katılım
2 Mart 2005
Mesajlar
556
Excel Vers. ve Dili
Office 2013 Türkçe
merhaba,

mesajın birkısmını görmemişim;

Userform'a bir label ekleyin ve Userform'a da şu kodları yazın:

Private Sub UserForm_Click()
Dim X As Integer
Dim current As Variant
Dim Y As String
Label1.Caption = "PROGRAMIN ADI: XXXXXXXXXXXXXXXX"
Y = Label1.Caption
Label1.Caption = ""
'UserForm1.Show
For X = 0 To Len(Y)
If X = 0 Then
Label1.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo bitti
Else: End If
Label1.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
bitti:
Next X
Label1.Caption = "PROGRAMIN ADI: XXXXXXXXXXXXXXXX"


Label2.Caption = "YAPIMI: XXXXXXXXXXXXXXXX"
Y = Label2.Caption
Label2.Caption = ""
'UserForm1.Show
For X = 0 To Len(Y)
If X = 0 Then
Label2.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo bitti2
Else: End If
Label2.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
bitti2:
Next X
Label2.Caption = "YAPIMI: XXXXXXXXXXXXXXXX"


Label3.Caption = "PROGRAMI YAPAN: XXXXXXXXXXXXXXXX"
Y = Label3.Caption
Label3.Caption = ""
'UserForm1.Show
For X = 0 To Len(Y)
If X = 0 Then
Label3.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo bitti3
Else: End If
Label3.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
bitti3:
Next X
Label3.Caption = "PROGRAMI YAPAN: XXXXXXXXXXXXXXXX"

End Sub
 
N

nihatjeoloji

Katılım
16 Nisan 2005
Mesajlar
353
Hata vermiyor
fakat ilk exceli açtığımda istediğim küçük pencere açılmıyor.

yani ilk excel'li açtığım zaman excelle bereber bu küçük tanıtım pençeresi açılacak.
ve bu pençerenin sağ üst köşesinde (x) tık. kapansın. ki excelde çalışmalarımıza başlıyalım.
 
T

TRABLUS

Misafir
Size, bu küçücük tanıtım penceresinin getirisi ne olucak?

Ã?ğrenmek istediklerinin hepsini zaten dosya üzerinde sağklik>özellikler/properties de görebiliyorsun zaten. :?
 
T

TRABLUS

Misafir
yaptığım excel prog. satışı için
Genişletmek için tıkla ...
Þakayla karışık programda yazdınız hadi bakalım. :hiho:

Bari yaptığım demeyin, :hiho:

Emeği geçen başta leventm, bedersu, abazya, raider ve ismini sayamadığım nice üyelere ve mod.lara, buradan sizin adınıza teşekkürü bir borç bilirim. :dua:

Kusura bakma, C.tesi mesaim bitmesine az kaldı. Bırakalım işi biraz geyik yapalım değil mi? :arkadas:
 
B

bedersu

Katılım
2 Mart 2005
Mesajlar
556
Excel Vers. ve Dili
Office 2013 Türkçe
nihatjeoloji' Alıntı:
Hata vermiyor
fakat ilk exceli açtığımda istediğim küçük pencere açılmıyor.
Genişletmek için tıkla ...
Sayın nihatjeoloji,

ilk mesajımı okursanız zaten sorunun nereden kaynaklandığını bulursunuz.Benim vermiş olduğum kodları bir userform içine yerleştirin.Userform'a da gerektiği kadar Label koyun.Daha sonra da bir auto_open makrosunun içine call Userform1 deyin çalışır.X işareti ile bu userform'u kapatınca da çalışmanıza devam edebilirsiniz.
 
N

nihatjeoloji

Katılım
16 Nisan 2005
Mesajlar
353
SYN bedersu

parodon pardon son ((((auto_open makrosunun .........)))

görmedim kusura bakmayın

çok çok teşekkürler
 
N

nihatjeoloji

Katılım
16 Nisan 2005
Mesajlar
353
syn TRABLUS

yaptım bitirdim diye bir şey yok ben hep boradayım ve daha bittmedi ki daha örenecek çok şey var belki ömrümüz yetmez.

ve inanın ki ve giriş sayfam hep excel kalacak.
birde benden bıksanız bile bu bu forumu bırakmam daha çoooooooook soru soracam
en son
tüm excel ekibini canı gönülden kutlarım
Teşekkürler
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst