yıldızlı efektler Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub ShowStars()
Cells.Select
Selection.Interior.ColorIndex = 1
Range("A1").Select
Randomize
StarWidth = 35
StarHeight = 35
For i = 1 To 10
TopPos = Rnd() * (ActiveWindow.UsableHeight - StarHeight)
LeftPos = Rnd() * (ActiveWindow.UsableWidth - StarWidth)
Set NewStar = ActiveSheet.Shapes.AddShape _
(msoShape4pointStar, LeftPos, TopPos, StarWidth, StarHeight)
NewStar.Fill.ForeColor.SchemeColor = Int(Rnd() * 56)
Application.Wait Now + TimeValue("00:00:01")
DoEvents
Next i
Application.Wait Now + TimeValue("00:00:02")
Set myShapes = Worksheets(1).Shapes
For Each shp In myShapes
If Left(shp.Name, 9) = "AutoShape" Then
shp.Delete
Application.Wait Now + TimeValue("00:00:01")
End If
Next
Cells.Select
Selection.Interior.ColorIndex = 2
Range("A1").Select
End Sub

Benzer Sonuçlar
No	Makro Adı
1	yıldızlı efektler
2	userform kapanış örneği ***** yıldız
3	kullanıcı adı ve parola eklemek
4	Hücrenin başına yıldız işareti (*) koymak
5	makrolar kutusu ve makrolar görünsün
6	excel operatörleri hk
7	nesne özelliğini tek seferde değiştirme
8	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
9	excel dosyası belirli bir tarihten sonra açılmasın
10	microsoft outlookdan uyarı e-maili göndersin
11	forma otomatik resim getirme
12	yaş hesaplama ve mesajla bildirim
13	gizli sayfada makro çalışır mı
14	alt alta kayıt işlemi
15	userform mükemmel bir açılış efekti
16	formun sürüklenmesini engeller
17	pivot tablo bilgilerinin güncellenmesinin kapalı olduğunu bildirir
18	dolu textbox sayısını mesajla bildir
19	excel multiuser ( çoklu kullanacı ) açmak
20	tüm kitapta istenilen sayfada sütunlardaki en son dolu hücreleri bildirir

Benzer Sonuçlar

Makro Adı

yıldızlı efektler

userform kapanış örneği ***** yıldız

kullanıcı adı ve parola eklemek

Hücrenin başına yıldız işareti (*) koymak

makrolar kutusu ve makrolar görünsün

excel operatörleri hk

nesne özelliğini tek seferde değiştirme

hücrede bir sonraki ayın gün sayısı kadar gün ilave etme

excel dosyası belirli bir tarihten sonra açılmasın

microsoft outlookdan uyarı e-maili göndersin