Metinler arasındaki sayıları alarak birbirleriyle çarpma

[pNouma]

Kıymetli Hocalarım merhaba,

bir hücre ("A1") içeriğinde L:14,5cm W: 7cm H:1,5 cm
bu formatta ürünün en, boy ve yüksekliği yazılı, buradaki sayısal değerleri 14,5*7*1,5 çarparak hacmi hesaplamak istiyorum,
buradaki boyut değerlerini ayrı-ayrı hücreler içine almadan bu içerisinde hacim hesaplatmanın bunun kolay bir yolu bulunabilir mi?
Yardımlarınız için şimdiden teşekkürler,

iyi Çalışmalar.

 

[excel41]

=(PARÇAAL(A1;BUL("L:";A1)+2;BUL("cm";A1)-BUL("L:";A1)-2)+0)*(PARÇAAL(A1;BUL("W:";A1)+2;BUL("cm";A1)-BUL("W:";A1)-2)+0)*PARÇAAL(M1;BUL("H:";A1)+2;BUL("cm";A1)-BUL("H:";A1)-2)+0

B1 Hücresine uygulayabilirsiniz

 

[Mdemir63]

Selam
Verileriniz hep verdiğiniz gibi ise
Deneyiniz

=--PARÇAAL(A1;BUL("L:";A1)+2;BUL("cm";A1)-BUL("L:";A1)-2)*PARÇAAL(A1;BUL("W:";A1)+2;BUL("cm";A1;BUL("W:";A1))-BUL("W:";A1)-2)*PARÇAAL(A1;BUL("H:";A1)+2;BUL("cm";A1;BUL("H:";A1))-BUL("H:";A1)-2)

 

[pNouma]

=(PARÇAAL(A1;BUL("L:";A1)+2;BUL("cm";A1)-BUL("L:";A1)-2)+0)*(PARÇAAL(G1;BUL("W:";G1)+2;BUL("cm";G1)-BUL("W:";G1)-2)+0)*PARÇAAL(M1;BUL("H:";M1)+2;BUL("cm";M1)-BUL("H:";M1)-2)+0

B1 Hücresine uygulayabilirsiniz

Hocam ilginize teşekkürler,
Ekli linkte yer alan dosyaya uygulamadım;
yalnız hata verdi,
https://dosya.co/v9y4v78vwo9v/Kitap4.xlsx.html

ayrıca formülde G1 ve M1 hücrelerini anlamadım
iyi çalışmalar.

 

[pNouma]

Selam
Deneyiniz

=--PARÇAAL(A1;BUL("L:";A1)+2;BUL("cm";A1)-BUL("L:";A1)-2)*PARÇAAL(A1;BUL("W:";A1)+2;BUL("cm";A1;BUL("W:";A1))-BUL("W:";A1)-2)*PARÇAAL(A1;BUL("H:";A1)+2;BUL("cm";A1;BUL("H:";A1))-BUL("H:";A1)-2)

Teşekkürler Hocam

 

[excel41]

Hocam ilginize teşekkürler,
Ekli linkte yer alan dosyaya uygulamadım;
yalnız hata verdi,
https://dosya.co/v9y4v78vwo9v/Kitap4.xlsx.html

ayrıca formülde G1 ve M1 hücrelerini anlamadım
iyi çalışmalar.

1 Nolu mesajı güncelledim

 

[antonio]

Kod ile işlem yapmak isterseniz, A1 hücresinde harf-sayı verilerinin olduğu varsayımı ile sonucu B1 hücresine aktarmak için:

Sub sayilariCarp()
Dim reg As Object, Veri As Object, Say As Variant, HCR As String
Dim HESAPLA As Double

Set reg = CreateObject("VBScript.RegExp")
With reg
    .Global = True
    .Pattern = "[\d\,]+"
End With
HCR = Sayfa1.Range("A1").Value
Set Veri = reg.Execute(HCR)
If Veri.Count > 0 Then
    Say = Veri.Count - 1
    For i = 0 To Say
        n = Veri(i) * 1
        If i = 0 Then
            HESAPLA = n
        Else
            HESAPLA = HESAPLA * n
        End If
    Next i
End If

Sayfa1.Range("B1").Value = HESAPLA

End Sub

 

[Muzaffer Ali]

Merhaba.

Alternatif KTF kodu

Function Hacim(hcr As Range) As Double
    Dim Rakamlar As Variant
    Rakamlar = Split(Replace(Replace(Replace(Replace(hcr.Text, "L:", ""), "W:", ""), "H:", ""), " ", ""), "cm")
    Hacim = Rakamlar(0) * Rakamlar(1) * Rakamlar(2)
End Function

Kullanımı Hacim(A1)


Alternatif normal kod.

Sub HacimHesapla()
    Dim Rakamlar As Variant
    Rakamlar = Split(Replace(Replace(Replace(Replace(Range("A1").Text, "L:", ""), "W:", ""), "H:", ""), " ", ""), "cm")
    Range("B1") = Rakamlar(0) * Rakamlar(1) * Rakamlar(2)
End Sub