Mesajı Dakika.Saniye Formunda Göstermek

[baydeniro]

Merhaba Arkadaşlar,
Zaman kayıtlarıyla ilgili bir mesaj oluşturdum. Hücrede Dakika ve Saniye formunda olmasına rağmen zamanı normal sayı gibi gösteriyor.
örneğin 00.45.32 gibi göstermesi için nasıl ayar yapmalıyım !

Sub ZAMAN()
MsgBox ("Lütfen Dakika Saniye Formatında Yazınız") & _
vbCrLf & Sheets("KAYIT").Range("O6")
End Sub

 

[EmrExcel16]

Merhaba bu şekilde deneyiniz..

Sub ZAMAN()
    MsgBox ("Lütfen Dakika Saniye Formatında Yazınız") & _
    vbCrLf & Format(Sheets("KAYIT").Range("O6"), "hh:mm:ss")
End Sub

 

[baydeniro]

Merhaba bu şekilde deneyiniz..

Sub ZAMAN()
    MsgBox ("Lütfen Dakika Saniye Formatında Yazınız") & _
    vbCrLf & Format(Sheets("KAYIT").Range("O6"), "hh:mm:ss")
End Sub

EmrExcel üstadım çok çok teşekkür ediyorum, aklınıza sağlık, sağlıcakla kalın

 

[EmrExcel16]

EmrExcel üstadım çok çok teşekkür ediyorum, aklınıza sağlık, sağlıcakla kalın

Rica ederim , iyi çalışmalar .

 

[baydeniro]

Rica ederim , iyi çalışmalar .

Üstad bir ekleme rica edebilir miyim. Saliseleri göstermek için koda ne eklemem lazım ?

 

[EmrExcel16]

"hh:mm:ss" kismini "hh:mm:ss.000" şeklinde veya "hh:mm:ss.fff" bu şekilde denermisiniz.

 

[baydeniro]

"hh:mm:ss" kismini "hh:mm:ss.000" şeklinde veya "hh:mm:ss.fff" bu şekilde denermisiniz.

Üstad ilgin, alakan için çok teşekkürler. Ancak ikisi de salise kısmını göstermedi.

 

[Muzaffer Ali]

Nokta yerine virgül deneyin.

"hh:mm:ss,000" veya "hh:mm:ss,fff"

 

[baydeniro]

Nokta yerine virgül deneyin.

"hh:mm:ss,000" veya "hh:mm:ss,fff"

Teşekkürler üstad. Nokta, virgül, İki nokta üstüste hepsini denedim olmadı
acaba vbCrLf & Format(Sheets("KAYIT").Range("O6"), "hh:mm:ss") satırındaki Format yerine başla bir şey mi yazılması gerekir mi ?

 

[EmrExcel16]

O zaman beni aşan durumlar var ben farklı bir yöntem bilmiyorum .

 

[Korhan Ayhan]

Deneyiniz.

Sub ZAMAN()
    Dim S1 As Worksheet, Milisaniye As Double
    Set S1 = Sheets("KAYIT")
    Milisaniye = (CDate(S1.Range("O6")) - CDate(Format(S1.Range("O6"), "dd.mm.yyyy hh:mm:ss"))) * 100 * 60 * 60 * 24
    MsgBox ("Lütfen Dakika Saniye Formatında Yazınız") & _
    vbCrLf & Format(S1.Range("O6"), "hh:mm:ss") & "," & Format(Milisaniye, "00")
End Sub

 

[Haluk]

Sub ZAMAN_2()
    MsgBox ("Lütfen Dakika Saniye Formatında Yazınız") & _
    vbCrLf & Format(Sheets("KAYIT").Range("O6"), "hh:mm:ss,ms")
End Sub

.

 

[EmrExcel16]

Haluk hocam birşey daha öğrettin bizlere (en azından bana) teşekkür ederim.

Korhan hocam sizin vermiş olduğunuz kodları denediğimde sonucu "00" olarak çeviriyor acaba nerede yanlış yapıyoruz.

 

[Korhan Ayhan]

Hücreye girdiğim veri ve bende çıkan sonuç.

 

[Korhan Ayhan]

Bu da benim denediğim veride @Haluk beyin önerdiği kodun sonucu.

 

[EmrExcel16]

Anladim hocam hucreye de salise olarak girmek gerekiyormuş , ben hücreye Range("O6") = Now ile tarih girip salisesini almaya çalistim. O yüzden başaramadim. Geri dönüşünüz icin teşekkür ederim.

 

[baydeniro]

Deneyiniz.

Sub ZAMAN()
    Dim S1 As Worksheet, Milisaniye As Double
    Set S1 = Sheets("KAYIT")
    Milisaniye = (CDate(S1.Range("O6")) - CDate(Format(S1.Range("O6"), "dd.mm.yyyy hh:mm:ss"))) * 100 * 60 * 60 * 24
    MsgBox ("Lütfen Dakika Saniye Formatında Yazınız") & _
    vbCrLf & Format(S1.Range("O6"), "hh:mm:ss") & "," & Format(Milisaniye, "00")
End Sub

Üstad çok teşekkürler, iyi ki varsınız. Sağlıcakla kalın

 

[baydeniro]

Sub ZAMAN_2()
    MsgBox ("Lütfen Dakika Saniye Formatında Yazınız") & _
    vbCrLf & Format(Sheets("KAYIT").Range("O6"), "hh:mm:ss,ms")
End Sub

.

Üstad desteğiniz için çok teşekkür ediyorum, sağlıcakla kalın.

 

[Haluk]

Eğer maksat, "ss:dd:nn,000" olarak isteğe bağlı biçimlendirilmiş olan O6 hücresindeki veriyi görüntülemekse, aşağıdaki ufak kod bu işi yapar .....

Ya da, ben konuda bir şeyi kaçırdım, anlamadım ....

Sub ZAMAN_3()
    MsgBox Range("O6").Text
End Sub

.

 

[baydeniro]

Eğer maksat, "ss:dd:nn,000" olarak isteğe bağlı biçimlendirilmiş olan O6 hücresindeki veriyi görüntülemekse, aşağıdaki ufak kod bu işi yapar .....

Ya da, ben konuda bir şeyi kaçırdım, anlamadım ....

Sub ZAMAN_3()
    MsgBox Range("O6").Text
End Sub

Ekli dosyayı görüntüle 212052


.

Haluk üstadım teşekkürler. Sanırım makinaların teknik farklarından olsa gerek, saliseyi normal göstermiyor.