Çözüldü Sin(x)° değiştir x,xxx

[k0081]

Merhaba arkadaşlar;

((1,25+1,75)/2)*1*2+(1+(1/SİN(63)))*45,66 bu şekilde bir formülüm var. Excelin default olarak açı cinsi radyan.

yapmak istediğim ; SİN(63) değerini derece olarak hesaplatıp yazdırmak.- değiştirmek

yani istenen sonuç :

((1,25+1,75)/2)*1*2+(1+(1/0,891006524))*45,66

bunu bir fonksiyon kullanarak , yapsakta sonuçta tetikleme replace komutu ile olmalıdır. ( yazmış olduğum vba kodunu bozmamak için... )


Yardımcı arkadaşa şimdiden teşekkürler...

 

[ÖmerBey]

Merhaba,
Kullandığınız formülde SİN(63) ifadesini SİN(RADYAN(63)) şeklinde değiştiremez misiniz?

 

[Haluk]

Sözkonusu ifade eğer A1 hücresindeyse, aşağıdaki "REGEXP" kodu işinizi görecektir;

Sub Test()
    'Haluk - 20/01/2024
    Dim objRegEx As Object, RetVal As Object, temp As String, myStr As String
  
    Set objRegEx = CreateObject("VBscript.RegExp")
    objRegEx.Global = True
    objRegEx.Pattern = "\SİN\((.+)\)\)\)"
  
    myStr = Range("A1").Text
  
    If objRegEx.Test(myStr) Then
        Set RetVal = objRegEx.Execute(myStr)
      
        myAngle = RetVal(0).submatches(0)
      
        temp = Sin(myAngle * Application.Pi / 180)
      
        objRegEx.Pattern = "\SİN\(" & myAngle & "\)"
      
        myStr = objRegEx.Replace(myStr, temp)
        
        Range("A1") = myStr
        myStr = Empty
    End If
      
    Set objRegEx = Nothing
End Sub

.

 

[k0081]

@ÖmerBey

Hayır. değiştiremem. Formül uzar., uzamasından ziyade, formülü okuyan anlamayabilir...

 

[k0081]

@Haluk

göndermiş olduğunuz koda bakacağım., ancak bu kodu şu altta vermiş olduğum satıra eklememiz gerekiyor...

formul = Replace(Replace(Replace(Replace(Replace(Replace(Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0), "m³", ""), "m²", ""), "m", ""), "ort", ""), " ", ""), ",", ".")

 

[Haluk]

Bahsettiğiniz "formul" degiskeninden elde edilen sonuc, sizin ilk mesajınızdaki ifadeyse eğer, o zaman benim kodun başında;

myStr = Range("A1").Text

yerine;

myStr = formul

yazarsınız, sonucu da yine A1 hücresine yazdırır veya ne yapmak istiyorsanız onu yaparsınız. Örneğin, bu işlemin sonucu;

        MsgBox Evaluate(Replace(myStr, ",", "."))

.

 

[k0081]

Anladım söylediğinizi de, benim kodlarda bir düzenleme yapmam gerekiyor.

* bu desen ; objRegEx.Pattern = "\SİN\((.+)\)\)\)"

İlk mesaja göre oluyor. çalışıyor. Ancak bazen açıklamada yazabiliyorum . Bu durumda deseni nasıl değiştirmeliyim?

açıklama dediğim ; Temel betonu : ((1,25+1,75)/2)*1*2+(1+(1/SİN(63)))*45,66 = gibi

 

[Haluk]

Dediğiniz ifadeyi;

Temel betonu : ((1,25+1,75)/2)*1*2+(1+(1/SİN(63)))*45,66 =

olduğu gibi, A1 hücresine koydum ve kodu çalıştırdım. Beklendiği gibi, A1 hücresine aşağıdakini yazdı;

Temel betonu : ((1,25+1,75)/2)*1*2+(1+(1/0,891006524188368))*45,66 =

Yani, bende bir sorun olmadı...

.

 

[k0081]

Tekrar deniyorum
*************************

Sin küçük yazmışım. o yüzden olmamış. Tamamdır çalışıyor.

Çok teşekkür ediyorum. Hocam. Şimdi ekleme kısmına geçebilirim.
***********************************

Ekledim. Çok Teşekkürler Hocam tekrardan @Haluk

 

[Haluk]

Sin küçük yazmışım. o yüzden olmamış. Tamamdır çalışıyor.

Küçük/Büyük harf problemini halletmek için, aşağıdaki kırmızı ile belirttiğim flag'i kullanabilirsiniz....

objRegEx.Global = True
objRegEx.Pattern = "\SİN\((.+)\)\)\)"
objRegEx.IgnoreCase = True

.

 

[k0081]

Kod içinden değiştirmiştim bende. Tamam bunu kullanayım. Teşekkür ederim hocam.