Cara Termudah Menambahkan Baris Pada Cell
12:30 PM
Cara kali ini tidak kalah serunya dalam hal bekerja dengan Excel. Kamu bisa menambahkan baris baru di antara cell cukup dengan mengetikkan jumlah baris yang kamu inginkan dan macro ini akan melaksanakannya. Masuk ke Visual Basic Editor (Alt+F11) dan ketikkan kode di bawah ini:
Sub InsertRowsBelowActiveCell()
Dim CountInsertRows As String
CountInsertRows = InputBox( _
"How many rows? ", _
"Insert Rows")
If CountInsertRows = ""
Or Val(CountInsertRows) < 1 Then Exit Sub
Rows(ActiveCell.Row +
1).Resize(Val(CountInsertRows)).Insert
End Sub
Dengan mengaktifkan macro ini akan memunculkan sebuah kotak dialog, menunggu input kamu:
 |
| Masukkan jumlah baris yang kamu inginkan |
 |
| Baris baru akan ditambahkan sesuai instruksi kamu |
Mudah dan sederhana bukan? Share jika bermanfaat :)
0 comments