• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Matematik Hesaplama

N

nihatjeoloji

Katılım
16 Nisan 2005
Mesajlar
353
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
 
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.
 
Ingilizce Excel icin;

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

Sonuc: 10,22
 
Selam
Sayın Raider
bizde excel TR'dir

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

Teşekküler
 
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.
 
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
 
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]
 
VBA ile başka bir alternatif;

Kod: 
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
 
Son düzenleme:
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
 
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ı.
 
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
 
Ekteki dosyada modül olarak verdim.
CTRL+l (küçük L harfi) makro için kısayoldur.
 
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
 
Doğru, kullanıcı tanımlı fonksiyon ile daha rahat edersiniz.

Ã?rnek ektedir.
 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst