• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

değer değiştirici

  • Konbuyu başlatan Konbuyu başlatan elm
  • Başlangıç tarihi Başlangıç tarihi
Dosyanız ektedir.:cool:
Kod: 
Private Sub SpinButton1_SpinDown()
Dim j As Variant
j = Range("A3").Value
Range("A3").Value = Range("A2").Value
Range("A2").Value = Range("A1").Value
Range("A1").Value = j
End Sub

Private Sub SpinButton1_SpinUp()
Dim j As Variant
j = Range("A1").Value
Range("A1").Value = Range("A2").Value
Range("A2").Value = Range("A3").Value
Range("A3").Value = j
End Sub
 

Ekli dosyalar

çok teşekkür ederim, sn. orion1
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst