help!! formula untuk update jam, susah di jelaskan suhu...

  1. tahun lalu

    help!!!,,,para master membuat jam "breakdown" di waktu tertulis "BD" dan "RFU", susah menjelaskan, file terlampir para suhu.....

  2. Caton

    14 Agu 2017 Terverifikasi Indonesia + 13.255 Poin

    Jika menggunakan formula, saya yakin tidak bisa pak @Krizto ... Fungsi-fungsi seperti RAND, NOW, TODAY merupakan fungsi volatile yang akan terupdate otomatis saat terjadi kalkulasi pada sebuah sheet dimana fungsi-fungsi di atas berada. Solusinya, menggunakan macro. Sebagai contoh, periksa file terlampir.

  3. @CATON bisakah di kirim untuk makro nya dalam bentuk .txt
    sebelumnya terimakasih.

  4. Caton

    14 Agu 2017 Terverifikasi Indonesia + 13.255 Poin

    Masukkan kode berikut pada modul objek Sheet4 (sheet dimana ada Table2):

    Option Explicit
    
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Me.ListObjects(1).DataBodyRange) Is Nothing Then
            If (Target.Rows.Count = 1 And Target.Columns.Count = 1) Then
                If (InStr(1, "4|6|8|10", Target.Column) > 0) Then
                    If Len(Target.Value) Then
                        If (InStr(1, "BD|RFU", UCase$(Target.Value)) > 0) Then
                            Application.EnableEvents = False
                            Cells(Target.Row, Target.Column) = UCase$(Cells(Target.Row, Target.Column))
                            Cells(Target.Row, Target.Column + 1) = Format$(Now(), "hh:mm:ss")
                            Application.EnableEvents = True
                        End If
                    End If
                End If
            End If
        End If
    End Sub

  5. ok thx booossss, saya coba dulu

 

atau Mendaftar untuk ikut berdiskusi!