KTF formülü hücreye yazmak

[answers]

2- Aşağıdaki makroyu excel de çalışacak şekilde yazınız ve deneyiniz

Sub deneme()
Range("a1").Value = dortislem(10, 10, "topla")
End Sub
Public Function dortislem(sayı1, sayı2, komut)
If komut = "topla" Then
dortislem = sayı1 + sayı2
End If
If komut = "çıkarma" Then
dortislem = sayı1 - sayı2
End If
If komut = "çarpma" Then
dortislem = sayı1 * sayı2
End If
If komut = "bölme" Then
dortislem = sayı1 / sayı2
End If
End Function

Bir ödevim var ama hakikaten acil. Yardımcı olabilirseniz çok sevinirim.

Teşekkürler...

 

[Orion1]

Dosyanız ektedir.

Sub deneme()
Dim komut As String
komut = "topla"
Range("a1").Formula = "=dortislem(" & 10 & "," & 10 & ",""" & komut & """)"
End Sub
Public Function dortislem(sayı1, sayı2, komut) As Double
If komut = "topla" Then
dortislem = sayı1 + sayı2
End If
If komut = "çıkarma" Then
dortislem = sayı1 - sayı2
End If
If komut = "çarpma" Then
dortislem = sayı1 * sayı2
End If
If komut = "bölme" Then
dortislem = sayı1 / sayı2
End If
End Function

 

[Merhum İdris SERDAR]

2- Aşağıdaki makroyu excel de çalışacak şekilde yazınız ve deneyiniz

Sub deneme()
Range("a1").Value = dortislem(10, 10, "topla")
End Sub
Public Function dortislem(sayı1, sayı2, komut)
If komut = "topla" Then
dortislem = sayı1 + sayı2
End If
If komut = "çıkarma" Then
dortislem = sayı1 - sayı2
End If
If komut = "çarpma" Then
dortislem = sayı1 * sayı2
End If
If komut = "bölme" Then
dortislem = sayı1 / sayı2
End If
End Function

Bir ödevim var ama hakikaten acil. Yardımcı olabilirseniz çok sevinirim.

Teşekkürler...

.

Function dortislem(sayı1, sayı2, komut)
If komut = "topla" Then
dortislem = sayı1 + sayı2
End If
If komut = "çıkarma" Then
dortislem = sayı1 - sayı2
End If
If komut = "çarpma" Then
dortislem = sayı1 * sayı2
End If
If komut = "bölme" Then
dortislem = sayı1 / sayı2
End If
End Function

Örnek dosya ekte.

.

 

[answers]

çok teşekkürler... herkese iyi çalışmalar