aktif sayfa ve hedef hücrelerde saat formatı Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TimeStr As String

On Error GoTo EndMacro
If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
    Exit Sub
End If
If Target.Cells.Count > 1 Then
    Exit Sub
End If
If Target.Value = "" Then
    Exit Sub
End If

Application.EnableEvents = False
With Target
If .HasFormula = False Then
    Select Case Len(.Value)
        Case 1 ' e.g., 1 = 00:01 AM
            TimeStr = "00:0" & .Value
        Case 2 ' e.g., 12 = 00:12 AM
            TimeStr = "00:" & .Value
        Case 3 ' e.g., 735 = 7:35 AM
            TimeStr = Left(.Value, 1) & ":" & _
            Right(.Value, 2)
        Case 4 ' e.g., 1234 = 12:34
            TimeStr = Left(.Value, 2) & ":" & _
            Right(.Value, 2)
        Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
            TimeStr = Left(.Value, 1) & ":" & _
            Mid(.Value, 2, 2) & ":" & Right(.Value, 2)
        Case 6 ' e.g., 123456 = 12:34:56
            TimeStr = Left(.Value, 2) & ":" & _
            Mid(.Value, 3, 2) & ":" & Right(.Value, 2)
        Case Else
            Err.Raise 0
    End Select
    .Value = TimeValue(TimeStr)
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "You did not enter a valid time"
Application.EnableEvents = True
End Sub

Benzer Sonuçlar
No	Makro Adı
1	aktif sayfa ve hedef hücrelerde saat formatı
2	aktif sayfa ve hedef hücrelerde tarih formatı
3	aktif sayfada veri girilen hücrelere veri girildiği tarih ve saati açıklama olarak ekler
4	aktif sayfada yazı yaz tarih ve saat,dakika,saniyesi ile açıklama ekler ve açıklamaları siler
5	aynı makroyla birden çok sayfaya kayıt yapmak
6	aktif sayfada tüm hücrelerde aynı hücreye devamlı rakam yaz, toplasın
7	aktif sayfada sağ fare'de menü
8	sayfa aktif olunca mesaj verme
9	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
10	listbox'tan seçilen hücreyi silmek.
11	a1:c10 arasının aynısını aktif hücreden itibaren yaz
12	aktif sayfada rakama göre zemin rengi verme
13	seçilen hücreler renklenir
14	aktif hücreden aşağıya doğru sayfalara köprü atılır
15	aktif sayfada belli hücrelere girilen sayıların başına çift sıfır ekler
16	aktif sayfa ve hücreden itibaren tüm sayfaların isimlerini yazar ve sayfalara link ekler
17	aktif sayfayı aktif ay adı ve yıl ile kopyalar ve çoğaltır
18	ay adına göre sayfa açar ve aktif sayfayı kopyalar
19	aktif sayfadan modüldeki makroyu çalıştırma
20	aktif sayfayı emaille gönderme

Benzer Sonuçlar

Makro Adı

aktif sayfa ve hedef hücrelerde saat formatı

aktif sayfa ve hedef hücrelerde tarih formatı

aktif sayfada veri girilen hücrelere veri girildiği tarih ve saati açıklama olarak ekler

aktif sayfada yazı yaz tarih ve saat,dakika,saniyesi ile açıklama ekler ve açıklamaları siler

aynı makroyla birden çok sayfaya kayıt yapmak

aktif sayfada tüm hücrelerde aynı hücreye devamlı rakam yaz, toplasın

aktif sayfada sağ fare'de menü

sayfa aktif olunca mesaj verme

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

listbox'tan seçilen hücreyi silmek.