Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

Cara-viz.blogspot.com :: Jika saat membuat tabel pada Excel Anda pernah membuat kesalahan dalam menempatkan posisi kolom atau baris, apakah yang akan Anda lakukan? Apakah Anda akan melakukan cut terhadap kolom atau baris tersebut, dan memindahkannya secara manual? Padahal ada cara yang lebih mudah, yaitu dengan menekan tombol shortcut pada keyboard Anda untuk menggeser posisi kolom atau baris tersebut.

Dan untuk membuat tombol shortcut tersebut Anda perlu menggunakan fitur Macros yang ada di Excel. Dan tenang, Anda tidak perlu repot-repot untuk membuat script macros tersebut, karena pada artikel kali ini akan saya share script macros untuk menggeser posisi kolom atau baris dengan cepat.

Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

Pertama yang perlu Anda lakukan adalah memasukan script dibawah ini pada fitur Macros. Caranya buka tab Developer > Visual Basic



Setelah itu pilih menu Insert > Module

Setelah itu paste-kan script di bawah ini

Sub FlipColumns()
 Dim vTop As Variant
 Dim vEnd As Variant
 Dim iStart As Integer
 Dim iEnd As Integer
 Application.ScreenUpdating = False
 iStart = 1
 iEnd = Selection.Columns.Count
 Do While iStart < iEnd
 vTop = Selection.Columns(iStart)
 vEnd = Selection.Columns(iEnd)
 Selection.Columns(iEnd) = vTop
 Selection.Columns(iStart) = vEnd
 iStart = iStart + 1
 iEnd = iEnd - 1
 Loop
 Application.ScreenUpdating = True
End Sub

Buat Module lagi (Insert > Module) dan paste-kan script dibawah ini

Sub FlipRows()
 Dim vTop As Variant
 Dim vEnd As Variant
 Dim iStart As Integer
 Dim iEnd As Integer
 Application.ScreenUpdating = False
 iStart = 1
 iEnd = Selection.Rows.Count
 Do While iStart < iEnd
 vTop = Selection.Rows(iStart)
 vEnd = Selection.Rows(iEnd)
 Selection.Rows(iEnd) = vTop
 Selection.Rows(iStart) = vEnd
 iStart = iStart + 1
 iEnd = iEnd - 1
 Loop
 Application.ScreenUpdating = True
End Sub

Jika sudah tutup jendela Visual Basic tersebut.

Setelah itu, Anda harus menambahkan shortcut pada script yang telah Anda tambahkan sebelumnya. Caranya, buka tab View > Macros > View Macros...



Lalu Anda akan melihat dua script FlipColumns dan FlipRows, pilih salah satu terlebih dahulu, pada Macroskemudian klik pada menu Options.

Pada Shortcut key isikan dengan tombol shortcut yang Anda inginkan. Dan lakukan hal yang sama pada script yang satunya.

Untuk menggunakan script tersebut, cukup blok kolom atau baris yang ingin Anda geser, lalu tekan tombol shortcut yang telah Anda buat sebelumnya.

 

NOTE!

FlipColumns � untuk menggeser kolom (yang memanjang kebawah)

FlipRows � untuk menggeser baris (yang memanjang kekanan)