- Katılım
- 24 Şubat 2006
- Mesajlar
- 52
- Excel Vers. ve Dili
- 2003 Tr
hazır yazılmış makroyu kitabımıza nasıl uygularız.bir arkadaş anlatabilirmi.mesela şu ekteki hazır makroyu bir çalışma kitabına nasıl uygularız ]BU KOD VERİLEN ADRESTEKİ YAZILARI YANIP SÖNDÜRÜR
Sub FlashFont()
Dim newColor As Integer
Dim myCell As Range
Dim x As Integer
Dim fSpeed
Set myCell = Range("A1
1")
Application.DisplayStatusBar = True
Application.StatusBar = "... Şu an flash yazı gösterisi var lütfen biraz bekleyin...! "
newColor = 4 'yeşil
fSpeed = 0.3
Do Until x = 15 'süre
DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = newColor
Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = xlAutomatic
Loop
x = x + 1
Loop
Application.StatusBar = False
Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub
Sub FlashFont()
Dim newColor As Integer
Dim myCell As Range
Dim x As Integer
Dim fSpeed
Set myCell = Range("A1
1")Application.DisplayStatusBar = True
Application.StatusBar = "... Şu an flash yazı gösterisi var lütfen biraz bekleyin...! "
newColor = 4 'yeşil
fSpeed = 0.3
Do Until x = 15 'süre
DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = newColor
Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = xlAutomatic
Loop
x = x + 1
Loop
Application.StatusBar = False
Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub
