calculate areas of shapes Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
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

No	Macro Name
1	calculate areas of shapes
2	excel operators hk
3	Adds sheet / pages based on data in column A and writes data up to column D
4	flip the image on sheet / page 180 degrees
5	Calculation of the total number of cells selected
6	add save key to userforma
7	userforma save as key
8	specify partition, list how many files you have
9	type the date of the file and calculate how many days have passed
10	dialog box without userform
11	Write numbers to a1: a5 and warns c1 if their total is 100
12	message or macro according to the value in the cell
13	Calculate the sum of cells with only a certain cell color
14	Calculate the duration of the mp3 file (type the file path and select that cell)
15	copy the formula in the cell by the number of rows that have changed
16	Delete a set of rows
17	finds the last day of the month writes to the active cell
18	formula replication by full row
19	Replicates the formula downward in cell e2
20	calculate the size of the book

Excel Free Macros (VBA)

Calculate Areas Of Shapes

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords