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

  1. 2 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.519 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.519 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!