Sayının karekökü

[sakaryali]

Bir sayının karekökünü bulmak için nasıl bir kod yazmalıyım. Bu kadar basit bir şeyi de sorduğum için kusuruma bakmayın.

 

[Hüseyin]

=KAREKÃ?K(sayı)
:mrgreen:

 

[sakaryali]

Tamam da ben excel kodu olarak sormadım Makro olarak...

 

[Hüseyin]

Tamam da, bende sorunun hangi başlık altına yazıldığına bakmamışım. :hayir:

İlgili sayıyı sqr() ile karekök olarak dönüştürebilirsiniz.

Ã?rnek A1 de sayımız olsun;

Sub karekok()
sonuc = Sqr(Range("A1").Value)
MsgBox (sonuc)
End Sub

 

[rcekinir]

Merhabalar
Ya da sgr kullanmadan bir alternatif

Sub karekok()
sonuc = [a1] ^ (1 / 2)
MsgBox (sonuc)
End Sub

Saygılar
Ramazan Çekinir/İzmir

 

[sakaryali]

Çok teşekkür ederim

 

[mtozer]

Merhaba
Bu kodu nereye yazmaliyim? Comman buton ile yapmak icin nasil uygulayabilirim? Asil yapmak istedigim butun hucreleri tanimlayip hangi hucreye deger yazinca karekokunu almasi. Ornegin c4 hucresine deger girdim. Enter yapinca msj kutusu ile karekokunu yazmasi. Bunu nasil yaptirabiliriz. Command buton ile olmayacagindan nereye yapistirmaliyiz.

 

[vardar07]

Sayfa sekmesini sağ tıkla seçeneklerden kod Görüntüle yi seç açılan yere yapıştır. "C2:C300" arası rakam girip enter'leyince mesaj olarak görürsünüz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2:C300")) Is Nothing Then Exit Sub
MsgBox Sqr(Cells(Target.Row, 3))
End Sub

 

[mtozer]

Tesekkur ederim. Ancak (A1:AD500) icin uygulayamadim.

 

[vardar07]

Aşağıdaki gibi yazıp deneyiniz.

[COLOR="Red"]Range("C2:C300"))[/COLOR]'Yerine
[COLOR="Blue"]Range("A1:AD500"))[/COLOR]

 

[mtozer]

Bu sekilde yazdim. Ancak olmadi

 

[mtozer]

Bu sekilde denedim. Ama yine olmadi. Sutun sayi degerini 3 iken silmeme ragmen.

 

[mtozer]

Birde asil amacim; bir tablo var bu tablodaki degerlerin uzerine geldigimde karekokunu gostermek. Yani mouse ile tiklama veya cursor ile secim yapildiginda.

 

[mtozer]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:AD500")) Is Nothing Then Exit Sub
MsgBox Sqr(Cells(Target.Row, 3))
End Sub

Bu sekilde kod da degisiklik yaptim ancak deger olarak "0" verdi.

 

[mtozer]

Kontrol edebilirmisiniz. Bazen kod calisiyor bazen 0 veriyor. Sebep ne olabilir.