Matematik Hesaplama

[nihatjeoloji]

Selam arkadaşlar

soru

(A1)Hüç. = 0,22
(A2)hüç. = Ã? 100 DF [ A2: hüçresinde bu şekilde ( Ã? 100 DF ) yazıldığında ( 10 )'a veya her hangi bir sayı ile bölünsün. ve sonuçunuda A1: hüçresi ile toplansın.]

Sonuç olarakta
(B1) = 0,32 tek sayı olarak görünsün

NOT :bu uygulama her hangi hüçrede olabilirmi?

Teşekküler

 

[Guest]

Merhaba nihetjeoloji

A2 hücresinde bu Ã? 100 DF yazdığında neyi 10'a bolmeyi düşünüyorsunuz ve A2 hücresinde o değer yazmazsa ne olacak küçük bir örnekle açıklayabilirmisiniz.

 

[Haluk]

Ingilizce Excel icin;

=(MID(A2;FIND("Ã?";A2)+2;FIND(" ";A2;3)-(FIND("Ã?";A2)+2))+0)/10+A1

Sonuc: 10,22

 

[nihatjeoloji]

Selam
Sayın Raider
bizde excel TR'dir

Sayın Türker
örneği yaparak gönderdim bakarsanız sevinirim.

Teşekküler

 

[xxrt]

nihatjeoloji,
İlgi alanınız sanırım Matematik üzerine .
Ben Matematiksel işlemlerin üzerine ağırlık olmasından ziyade soru ifadelerinizde
Þunu şöyle yapmak istiyorum derseniz bizim için daha kolay olacak.

 

[nihatjeoloji]

Sayın xxrt

Çok çok Sağolun.

ve tüm arkadaşlarada çok çok sağolsunlar

Fakat aradığım bu değil ?
Teşekküler

 

[nihatjeoloji]

Selam
Ã?reği bir daha ekledim iyi bir açıklama ile

umarım kusura bakmasınız dimi

Teşekküler

 

[xxrt]

umarım kusura bakmasınız dimi

Olurmu ...
Birazdan inceliyorum..

 

[xxrt]

:shock:
Saat'te geç olmuş..
Bu konu beni aşar.... :uyku:

 

[Haluk]

bizde excel TR'dir

Ing - Tr karsiliklar icin:

http://www.excel.web.tr/viewtopic.php?t=129

 

[cako]

Formülle oluyor sanırım ama yine de makroyla çözüm derseniz.
Sayfa üzerine koyacağınız butonun kod sayfasına aşağıdakileri yapıştırın.
[vb:1:08a2b0921c]Private Sub CommandButton1_Click()
If Not IsNumeric(Cells(1, 1)) Then
MsgBox " A1 hücresi sayısal değil"
Exit Sub
End If
k = Len(Cells(2, 1))
x = 1
For i = 1 To k
If IsNumeric(Mid(Cells(2, 1), i, 1)) Then
GoTo BUL
End If
x = x + 1
Next i
MsgBox "Sayısal bir ifade bulunamadı"
Exit Sub
BUL:
y = 0
For j = x To k
If Not IsNumeric(Mid(Cells(2, 1), j, 1)) Then
GoTo ATLA
End If
y = y + 1
Next j
ATLA:
Cells(1, 2) = Cells(1, 1) + (Mid(Cells(2, 1), x, y) / 10)
End Sub[/vb:1:08a2b0921c]

 

[Haluk]

VBA ile başka bir alternatif;

Sub Test()
Dim RegExp
Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "[^0-9]"
[B1] = RegExp.Replace([A2], "") / 10 + [A1]
Set RegExp = Nothing
End Sub

 

[nihatjeoloji]

Selam
Sayın Cako çok sağolun
Button Olmadan olabilirmi?

ve
Sayın Raider çok sağolun
Bu formül Doğru Fakat (Makro Çalıştır) ile sonuçlanıyor. bunu otomatik olarak
yapılabilirmi


ve
ilgilenen herkese çok çok Teşekküler

 

[cako]

Bu size bağlı. İsterseniz başka durumlarda da çalışır.
Mesela sayfada herhangi bir değişiklik yapıldığında.
Ya da koları modül içerisine kaydedip kısayol tuşu ile makro çağırarak.
Dediğim gibi size bağlı.

 

[nihatjeoloji]

Sevgili Cako
Valla kusura bakmayın yapamadım.
bir modül oluşturdum

Sub C1 ()

verdiğiniz formülü ekleden

End Sub
bu şekilde yaptım olmadı.
kusura bakmayın makro çalışmalarım biraz sayıf
Teşekküler

 

[cako]

Ekteki dosyada modül olarak verdim.
CTRL+l (küçük L harfi) makro için kısayoldur.

 

[nihatjeoloji]

Sevgili Cako
ne olur kusura bakmayın
biliyorum bu konuda biraz fazla olduk.

peki excel bunu kendisi yapamazmı?
hiç bir tuş,button,...v.s kulanmadan sonuçlanamaz'mı

çok sağolun

 

[cako]

Kullanıcı tanımlı fonksiyon yazarak yapabilirsiniz.

 

[Haluk]

Doğru, kullanıcı tanımlı fonksiyon ile daha rahat edersiniz.

Ã?rnek ektedir.

 

[cako]

Aşağıdaki zipli dosyayı açın ve AddIns klasörünün altına taşıyın.
Sonra excel içinde ARAÇLAR/ Eklentiler nihathesap eklentisini aktif hale getirin.
sayfa üzerinde fonksiyonu çalıştırın. Kullanıcı tanımlı fonksiyonlarda göreceksiniz.
Bende AddIns klasörünün yolu aşağıdaki gibidir.
C:\Documents and Settings\Ã?mer Faruk\Application Data\Microsoft\AddIns