Untuk mengisi kolom kosong yang berada di bawah tulisan cell excel, maka begini caranya.
Pertama Anda harus mengerti apa itu Excel VBA, jika sudah pernah dan mungkin sedikit paham, maka anda bisa mengikuti langkah berikut ini:
Klik:
Ø
DEVELOPER
Ø
VISUAL BASIC
Ø
INSERT
Ø
MODULE
CTRL+V dan SAVE
command di bawah ini:
--------------------------------------------------------------------------
Sub ABBAUTOFILL()
Dim sel As Range
--------------------------------------------------------------------------
Sub ABBAUTOFILL()
Dim sel As Range
For Each sel In Selection
If sel = "" Then sel = sel.Offset(-1, 0)
'by ABB autofill blank cell’
Next
End Sub
----------------------------------------------------------------------------
----------------------------------------------------------------------------
Kemudian buka file excel tersebut, dan select kolom yang kosong:
Klik:
Ø
DEVELOPER
Ø
MACRO
Ø
ABBAUTOFILL
Ø
RUN
Atau buatlah tombol otomatis untuk memudahkan RUN, sebagai
berikut:
Klik:
Ø Developer
Ø
Insert
Ø
Button (Form Control)
Ø
Pilih dan klik ‘ABBAUTOFILL’
Ø
Klik OK, dan rename tombol tersebut
sesuai keinginan
Anda harus menyimpannya dengan format macro/vba:
> Klik Save As
> Di menu File name, isi nama file excel tersebut sesuai dengan keinginan Anda,
> Di menu Save as type, Pilih Excel Macro-Enable Workbook,
> Klik Save.
