record data

  1. 11 bulan yang lalu

    mohon bimbingannya masalah record dan looping
    colek @Caton yang nyaris 100% ngajarin saya
    hehe
    pertanyaan terlampir

    Coba mbak @Novi modifikasi kembali baris kode VBA sebelumnya, tepatnya pada blok:

    If Not IsEmpty(xlCell.Value) Then
    ...
    End If

    Selengkapnya menjadi:

    Private Sub pPrintMultipleQty(xlRange As Range)
        Dim xlRows As Range, xlCell As Range
        Dim bValid As Boolean
        
        '+--- Periksa apakah range asal memiliki nilai.
        bValid = (Not xlRange Is Nothing) And (WorksheetFunction.CountA(xlRange) > 0)
        If bValid Then
            '+--- Perulangan untuk setiap baris range.
            For Each xlRows In xlRange.Rows
                '+--- Perulangan untuk setiap sel per baris range.
                For Each xlCell In xlRows.Cells
                    '+--- Proses jika sel memiliki nilai.
                    If Not IsEmpty(xlCell.Value) Then
                        Dim lCharPos As Long
                        
                        '+--- Periksa apakah ada karakter /?
                        lCharPos = InStr(1, xlCell.Value, "/")
                        '+--- Update nilai berat dan jumlah.
                        If (lCharPos > 0 And lCharPos < Len(xlCell.Value)) Then
                            Sheet2.Range("A7").Value = Left$(xlCell.Value, lCharPos - 1)
                            Sheet2.Range("I10").Value = Right$(xlCell.Value, Len(xlCell.Value) - lCharPos)
                        Else
                            Sheet2.Range("A7").Value = xlCell.Value
                            Sheet2.Range("I10").Value = vbNullString
                        End If
                        
                        '+--- Panggil proses cetak.
                        Call Cetak
                    End If
                Next
            Next
        Else
            MsgBox "Tidak ada yang akan dicetak!"
        End If
    End Sub

    Semoga sesuai... ;)

  2. Caton

    2 Nov 2017 Terverifikasi Jawaban Terpilih Indonesia + 11.512 Poin

    Coba mbak @Novi modifikasi kembali baris kode VBA sebelumnya, tepatnya pada blok:

    If Not IsEmpty(xlCell.Value) Then
    ...
    End If

    Selengkapnya menjadi:

    Private Sub pPrintMultipleQty(xlRange As Range)
        Dim xlRows As Range, xlCell As Range
        Dim bValid As Boolean
        
        '+--- Periksa apakah range asal memiliki nilai.
        bValid = (Not xlRange Is Nothing) And (WorksheetFunction.CountA(xlRange) > 0)
        If bValid Then
            '+--- Perulangan untuk setiap baris range.
            For Each xlRows In xlRange.Rows
                '+--- Perulangan untuk setiap sel per baris range.
                For Each xlCell In xlRows.Cells
                    '+--- Proses jika sel memiliki nilai.
                    If Not IsEmpty(xlCell.Value) Then
                        Dim lCharPos As Long
                        
                        '+--- Periksa apakah ada karakter /?
                        lCharPos = InStr(1, xlCell.Value, "/")
                        '+--- Update nilai berat dan jumlah.
                        If (lCharPos > 0 And lCharPos < Len(xlCell.Value)) Then
                            Sheet2.Range("A7").Value = Left$(xlCell.Value, lCharPos - 1)
                            Sheet2.Range("I10").Value = Right$(xlCell.Value, Len(xlCell.Value) - lCharPos)
                        Else
                            Sheet2.Range("A7").Value = xlCell.Value
                            Sheet2.Range("I10").Value = vbNullString
                        End If
                        
                        '+--- Panggil proses cetak.
                        Call Cetak
                    End If
                Next
            Next
        Else
            MsgBox "Tidak ada yang akan dicetak!"
        End If
    End Sub

    Semoga sesuai... ;)

 

atau Mendaftar untuk ikut berdiskusi!