Hücredeki değeri zaman (saniye olarak) çevirmek

[udentr2002]

Merhaba arkadaşlar ekli dosyada da anlatmaya çaılıştım hücredeki 2,20 gibi değeri 2 dakika 20 saniye olduğunu düşünürsek bu değeri 120 saniye olarak bir hücreye yazdırabilmek için ne yapabilirim.

2,20=2*60+20=140 saniye demek kısaca

yardımcı olan arkadaşlarıma şimdiden teşekkür ederim

 

[Zeki Gürsoy]

[a1] = Fix(2.2) * 60

 

[udentr2002]

anemos hocam çok teşekkür ederim sağ olun kıscık kodla iş tamam diyorsunuz yani

 

[udentr2002]

anemos hocam sanırım yanlış anladın beni
hücre değeri diyelimki 2,10 bu rakamın virgülden önceki rakamını ayırıp yani 2 yi 60 dğeri ile çarpacak sonra 2,10 rakamının bu defa virgülden sonraki tüm kısmını ayırıp yani (20) değerini bu değeride yukarıda 60 ile çarptığı değer ile toplayacak yani:

2,10=2*60+10=130 olmalı

başka bir örnek daha verirsem

1,75=1*60+75=135 olmalı

3,50=3*60+50=230 olmalı inşallah anlatabilmişimdir

 

[Erdal]

merhaba
sayınızın A1 hücresinde olduğunu düşünürsek
=(TAMSAYI(A1)*60)+100*(A1-TAMSAYI(A1))
formülünü kullanabilirsiniz. İyi çalışmalar

 

[udentr2002]

demek istediğim tam olarak buydu hocam çok teşekkür ederimm

 

[Erdal]

rica ederim iyi çalışmalar

 

[udentr2002]

hocam bu formülü makro ile belli bir aralık için yapabilrmiyiz mesala a1:d10 a kadar olan hücrelere bu formülü uygulayan bir kod yazabilrmiyiz acaba

 

[Erdal]

sayın udentr2002
kod bilgim fazla olmadığı için malesef yardımcı olamayacağım ama forumdaki sayın hocalarımız herhalde yardımcı olabilirler.
İyi çalışmalar

 

[Zeki Gürsoy]

Hücrenin kendisini sn. değiştirmek istersek,

Sub Cevir()
Dim r As Range, Rg As Range
 
Set Rg = [a1:d10]
 
For Each r In Rg
    r = (Fix(r.Value) * 60) + _
        (r.Value - Fix(r.Value)) * 100
Next
 
Set Rg = Nothing
End Sub

 

[udentr2002]

Sayın Anemos ve Zeki Hocam ilginiz ve alakanız için çok teşekkür ederimm ellerinize sağlık her ikinizinde

 

[udentr2002]

Sayın Anemos ve Somer kardeşim diyecektim yanlış yazmışım kusura bakmayın her ikinizinde ellerine sağlıkk )