Metin Olarak Yazılmış Zaman İfadelerini Sayıya Dönüştürme

[ektr]

Merhaba,
Bir sütundaki hücrelerde ... saat ... dakika .... saniye şeklinde verilerin olduğu bir data dosyası var. Ben bu verilerin toplamını almak için hücrelerde metin olarak yazılmış bu ifadeleri ss:dd:nn formatına dönüştürmek istiyorum. Ekte örnek veri dosyası var. Amacım görüntülenme sürelerinin toplamını hesaplamak. Bunu yapabileceğim kolay bir yöntem var mı acaba?

 

[YUSUF44]

Aşağıdaki kullanıcı tanımlı fonksiyonu deneyiniz. Kodları bir modüle kopyalayın. Dosyada kullanım şekli:

=sure(E2)

şeklindedir:

Function sure(hucre As Range)
If hucre <> "" Then
    alan = Split(Trim(hucre), " ")
    saat = 0
    dakika = 0
    saniye = 0
    For i = 0 To UBound(alan)
        If alan(i) = "saat" Then saat = saat + alan(i - 1)
        If alan(i) = "dakika" Then dakika = dakika + alan(i - 1)
        If alan(i) = "saniye" Then saniye = saniye + alan(i - 1)
    Next
    sure = TimeSerial(saat, dakika, saniye)
End If
End Function

 

[ektr]

Aşağıdaki kullanıcı tanımlı fonksiyonu deneyiniz. Kodları bir modüle kopyalayın. Dosyada kullanım şekli:

=sure(E2)

şeklindedir:

Function sure(hucre As Range)
If hucre <> "" Then
    alan = Split(Trim(hucre), " ")
    saat = 0
    dakika = 0
    saniye = 0
    For i = 0 To UBound(alan)
        If alan(i) = "saat" Then saat = saat + alan(i - 1)
        If alan(i) = "dakika" Then dakika = dakika + alan(i - 1)
        If alan(i) = "saniye" Then saniye = saniye + alan(i - 1)
    Next
    sure = TimeSerial(saat, dakika, saniye)
End If
End Function

Yanıtınız için teşekkür ederim ama ben bu fonksiyonu nasıl ve nereye ekleyeceğimi hiç bilmiyorum

 

[YUSUF44]

• Kodları kopyalayın
• Excel dosyanıza geçin
• Alt+F11 yapın ya da sayfa adına sağ tıklayıp Kod görüntüle deyin (VBA kısmı açılacak)
• Açılan programda Insert menüsünden Module'yi seçin
• Açılan boş sayfaya kodları yapıştırın
• Excel sayfanıza geçin
• Örneğin F2 hücresine verdiğim formülü yazın ve sonucu inceleyin
• =sure(E2)
• Dosyanızı Marko içerebilen Excel Dosyası olarak kaydetmeyi unutmayın (uzantısı xlsm olacak)

 

[ektr]

• Kodları kopyalayın
• Excel dosyanıza geçin
• Alt+F11 yapın ya da sayfa adına sağ tıklayıp Kod görüntüle deyin (VBA kısmı açılacak)
• Açılan programda Insert menüsünden Module'yi seçin
• Açılan boş sayfaya kodları yapıştırın
• Excel sayfanıza geçin
• Örneğin F2 hücresine verdiğim formülü yazın ve sonucu inceleyin
• =sure(E2)
• Dosyanızı Marko içerebilen Excel Dosyası olarak kaydetmeyi unutmayın (uzantısı xlsm olacak)

Sayenizde hallettim, çok teşekkür ederim, sağ olun var olun