şekillerin alanlarını hesaplama Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Private Sub Command1_Click()
Dim a, b, c As Double
If Option1.Value = True Then
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text3.Text = b
End If
If Option2.Value = True Then
a = Val(Text1.Text)
b = a ^ 2
Text3.Text = b
End If
If Option3.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = c
End If
If Option4.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = (a * b) / 2
Text3.Text = c
End If
End Sub

Private Sub option1_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "yarıçap(r)"
Label3.Caption = "Alan"
End Sub
Private Sub option2_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "Kenar(a)"
Label3.Caption = "Alan"
End Sub
Private Sub option3_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Kenar(a)"
Label2.Caption = "Kenar(b)"
Label3.Caption = "Alan"
End Sub
Private Sub option4_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Taban(a)"
Label2.Caption = "Yükseklik(h)"
Label3.Caption = "Alan"
End Sub

Benzer Sonuçlar
No	Makro Adı
1	şekillerin alanlarını hesaplama
2	yaş hesaplama
3	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
4	girilen veri rakam dişinda bir şey olursa kullaniciyi uyararak tekrar rakam istesin
5	Kare Kök Hesaplama: Bir formül uygulamadan karekök hesaplamak için bu kodu kullanabilirsiniz. seçilen tüm hücreleri kontrol eder ve sayıları kareköre dönüştürür.
6	Hesap Makinesi Aç: Pencerede belirli bir hesap makinesi bulunur ve bu makro kodunu kullanarak hesaplamayı doğrudan Excel kullanımıyla hesaplamalarınız için açabilirsiniz.
7	Küp Kökünü Hesapla: Bir formül uygulamadan küp kökünü hesaplamak için bu kodu kullanabilirsiniz. Seçilen tüm hücreleri kontrol eder ve sayıları küp köklerine dönüştürür.
8	Sadece belli bir hücre rengine sahip olan hücrelerin toplamını hesaplamak
9	a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın
10	"Seçenekler Hesaplama" Dialog Penceresi
11	hesaplama seçenekleri penceresi
12	makroda hesaplanıyor mesajı
13	dosyayı farklı şekillerde kaydetme
14	ders ortalamalarını hesaplamak
15	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
16	Inputbox ile doğru rakamı girmeye zorlama
17	textboxa rakam girmeye zorlamak
18	yaş hesaplama ve mesajla bildirim
19	excel'de kopyalama makrosu nasıl yazılır?
20	textboxa yazıyı yazar yazmaz hesaplama

Benzer Sonuçlar

Makro Adı

şekillerin alanlarını hesaplama

yaş hesaplama

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

girilen veri rakam dişinda bir şey olursa kullaniciyi uyararak tekrar rakam istesin

Kare Kök Hesaplama: Bir formül uygulamadan karekök hesaplamak için bu kodu kullanabilirsiniz. seçilen tüm hücreleri kontrol eder ve sayıları kareköre dönüştürür.

Hesap Makinesi Aç: Pencerede belirli bir hesap makinesi bulunur ve bu makro kodunu kullanarak hesaplamayı doğrudan Excel kullanımıyla hesaplamalarınız için açabilirsiniz.

Küp Kökünü Hesapla: Bir formül uygulamadan küp kökünü hesaplamak için bu kodu kullanabilirsiniz. Seçilen tüm hücreleri kontrol eder ve sayıları küp köklerine dönüştürür.

Sadece belli bir hücre rengine sahip olan hücrelerin toplamını hesaplamak

a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın

"Seçenekler Hesaplama" Dialog Penceresi