Bagaimana cara menambahkan baris dengan isi sel=0

  1. tahun lalu
    Di sunting tahun lalu oleh gempur

    Permisi agan2 sekalian
    Baru belajar VBA
    Mohon pencerahannya mengenai cara menambahkan baris/kolom diantara baris/kolom yang disorot
    sepeti berikut :
    -image-
    fhf.png

    Misal saya mengeblok kolom ABC dan baris 2-6
    dan mau menambahkan sejumlah baris diantara 2-6 dan setiap sel nya berisi angka 0 (nol) atau angka tertentu

    Ada yang bisa membantu?
    terima kasih

    Segala bentuk bantuan sangat diapresiasi

  2. Caton

    30 Agu 2017 Terverifikasi Indonesia + 12.596 Poin

    Coba mas @Gempur buat sebuah modul (Standard Module), kemudian masukkan baris kode berikut:

    Option Explicit
    
    Sub SisipkanBaris()
        Dim xlSelection As Range, xlTargetRange As Range
        Dim lRow As Long, lRows As Long
        
        On Error GoTo errHandler
        '+-- Siapkan variabel seleksi dan target.
        Set xlSelection = Sheet1.Application.Selection
        Set xlTargetRange = Sheet1.Range("B2:D2")
        '+-- Pastikan seleksi berada dalam target area.
        If Not Intersect(xlSelection, xlTargetRange.CurrentRegion) Is Nothing Then
            '+-- Hitung jumlah baris.
            lRows = xlSelection.Rows.Count
            For lRow = 1 To lRows
                '+-- Buat dan isi baris baru sebanyak baris yang dipilih.
                xlTargetRange.Offset(lRow * 2, 0).Insert Shift:=xlShiftDown
                xlTargetRange.Offset(lRow * 2, 0).Value = 0
            Next
        End If
    
    errHandler:
        Err.Clear
        On Error GoTo 0
    End Sub

    Kode tersebut di atas hanya berlaku untuk proses seleksi pada Sheet1 saja. Sesuaikan saja nama sheet pada baris kode di atas dengan nama sheet yang diinginkan. Perhatikan, nama Sheet1 di atas merupakan nama Sheet Object pada VBA untuk Sheet1 (bukan nama tab sheet).

    Untuk memanggil prosedur SisipkanBaris di atas, bisa menggunakan tombol dengan menetapkan (assign) macro ke prosedur tersebut, atau dengan menjalankan macronya melalui menu Macro pada tab Developer... ;)

  3. Thanks Gan Katon.
    Saya coba dulu, kalau ada pertanyaan saya pasti komen lagi :)

 

atau Mendaftar untuk ikut berdiskusi!