Aşağıdaki şekilde iki adet buton bulunmakta. Bu butonları koymak icin "Gorunum" menusunden "Arac Cubukları" kısmına girilir ve "Denetim Ara Kutusu" secilir. Buradan iki adet buton nesnesini sayfaya ekleyin. Butonu ekledikten sonra uzerinde sağ tıklayarak ozellikler penceresini acın ve buradan "Caption" ozelliğine butonun uzerine gelecek yazıyı yazın.
Ustteki resimde "Tamam" olarak belirtilmiş butona sağ tıklayın ve "Kod Goruntule" seeneğini secin. Bu butona ait Click yordamına gelmiş oluruz. Eğer excel'de Sayfa1 uzerinde isek aşağıdaki kodları yazın.
x = Sayfa1.Cells(3, 2) y = Sayfa1.Cells(3, 3) Sayfa1.Cells(3, 4) = x + yHemen kodları acıklayalım. Sayfa1 ifadesi Excelin hangi sayfasında olduğumuzu belirtir. İşlemi Sayfa1 uzerinde yaptığımızı varsaydık. İstenirse başka bir excel sayfasının adı belirtilerek de oraya ait işlemler yapılabilir. Daha sonra Sayfa1 icin Sayfa1.Cells(3, 2) ifadesini oluşturduk. Bunun anlamı sayfa1 uzerindeki 3,2 hucresinin değeri demektir. Bunu da x değişkenine attık. Yani sayfa1 uzerindeki 3,2 hucresindeki bilgiyi x değişkenine attık. Aynı şekilde de 3,3 hucresindeki değeri y değişkenine attık. Sonra da bunların toplamını 3,4 hucresi uzerine yazdırdık. Aynı mantıkla hemen altına diğer işlemler ve okunacak hucreler belirtilerek tum işlemler yaptırılmış olur.
x = Sayfa1.Cells(3, 2) y = Sayfa1.Cells(3, 3) Sayfa1.Cells(3, 4) = x + y x = Sayfa1.Cells(4, 2) y = Sayfa1.Cells(4, 3) Sayfa1.Cells(4, 4) = x - y x = Sayfa1.Cells(5, 2) y = Sayfa1.Cells(5, 3) Sayfa1.Cells(5, 4) = x * y x = Sayfa1.Cells(6, 2) y = Sayfa1.Cells(6, 3) Sayfa1.Cells(6, 4) = x / y"Temizle" adlı butonun icine girerek Sayfa1.Cells(3, 1) = "" yazarsanız o hucrenin iceriği silinmiş olursunuz. Bu şekilde basılınca silinmesini istediginiz hucreleri tek tek belirterek "Temizle" butonuna ait kodları da bitirmis olursunuz.
Alıntıdır.
