Cara Memindahkan Posisi Kolom / Baris di Excel via Macros

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

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

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

Setelah itu pilih menu Insert > Module

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

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
Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

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
Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

Jika sudah tutup jendela Visual Basic tersebut.

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

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

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

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

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

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

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

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

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros 

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

NOTE!
FlipColumns � untuk menggeser kolom (yang memanjang kebawah)
FlipRows � untuk menggeser baris (yang memanjang kekanan)

Demikian artikel tentang Cara Memindahkan Posisi Kolom / Baris di Excel via Macros, semoga bermanfaat.

0 Response to "Cara Memindahkan Posisi Kolom / Baris di Excel via Macros"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel