makro yorumu

[ihsan2525]

arkadaşlar bu makronun yorumu lazım yardım ederseniz sevinirim

Sub Piston()

ActiveSheet.Shapes("Grup 4").Select

For t = 1 To [D12].Value

For a = 150 To 270

Selection.ShapeRange.Left = 310
Selection.ShapeRange.Top = a

DoEvents

Next a

For y = 270 To 150 Step -1

Selection.ShapeRange.Left = 310
Selection.ShapeRange.Top = y

DoEvents

Next y

Next t

[D12].Select

End Sub

 

[Zeki Gürsoy]

Sub Piston()
[COLOR=DarkGreen]'/ Aktif sayfadaki "Grup4" ismindeki şekli seç.. \[/COLOR]
ActiveSheet.Shapes("Grup 4").Select
    [COLOR=DarkGreen]'/ D12 değeri kadar tekrar et.. \[/COLOR]
    For t = 1 To [D12].Value
       [COLOR=DarkGreen] '/ t döngüsünün her biri için 270-150 kadar tekrar.. \[/COLOR]
        For a = 150 To 270
           [COLOR=DarkGreen] '/ Şeklin sol ekran uzaklığı 310 ve _
                 üst ekran uzaklığı a olsun... \[/COLOR]
            Selection.ShapeRange.Left = 310
            Selection.ShapeRange.Top = a
            
            DoEvents
        
        Next a
        [COLOR=DarkGreen]'/ Yukarıdaki döngünün tersi.. \[/COLOR]
        For y = 270 To 150 Step -1
            [COLOR=DarkGreen]'/ Şeklin sol ekran uzaklığı 310 ve _
                 üst ekran uzaklığı y olsun... \[/COLOR]
            Selection.ShapeRange.Left = 310
            Selection.ShapeRange.Top = y
            
            DoEvents
        
        Next y
    
    Next t
[COLOR=DarkGreen]'/ D12 hücresini seç. \[/COLOR]
[D12].Select

End Sub

 

[ihsan2525]

zeki bey sonuçta bir şekil çiziliyor demi bunla

 

[Mahmut Kök]

zeki bey sonuçta bir şekil çiziliyor demi bunla

Kodlardan anladığım kadarıyla nesneyi ekranda aşağı-yukarı hareket ettiriyor.

 

[Zeki Gürsoy]

Mevcut şekle animasyon uygulanıyor.

 

[Ferhat Pazarçevirdi]

zeki bey sonuçta bir şekil çiziliyor demi bunla

Yok, öyle değil ...

Bu kodlara göre; sayfa üzerinde varolan bir nesne; D12 hücresindeki rakam kadar, aşağı yukarı hareket ettiriliyor.

Pinpon topunun zıplaması gibi ...

Kaç defa zıplayacağına ilk döngü, ne kadar yükseğe sıçrayacağına da ikinci döngüler karar veriyor.

 

[cuneyt001]

Bunca bilen arasında, benim sadece susmam lazım...