Excel'de Dört İşlem (Toplama, Çıkarma, Bölme, Çarpma) - Makro-VBA

ExcelTürk · Sal Eyl 15, 2009 3:29 am

Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.

Excel' de Makro ile dört işlem(Toplama, Çıkarma, Bölme, Çarpma) çok kolay.

Kod: Tümünü seç: Private Sub Command1_Click() Dim sayı1, sayı2, sonuç As Double sayı1 = Val(Text1.Text) sayı2 = Val(Text2.Text) If Option1 = True Then sonuç = sayı1 + sayı2 If Option2 = True Then sonuç = sayı1 - sayı2 If Option3 = True Then sonuç = sayı1 * sayı2 If Option4 = True Then sonuç = sayı1 / sayı2 Text3.Text = Str(sonuç) End Sub