Cara Melakukan Berbagai Hal
Selamat Datang Di Blog Cara-Viz
Terima kasih atas kunjungan Anda di blog Cara-Viz,
semoga apa yang saya share di sini bisa bermanfaat dan memberikan pengetahuan baru pada kita semua
untuk terus berkarya dan berbuat sesuatu yang bisa berguna untuk orang banyak.

Cara Cepat Menggeser Posisi Kolom atau Baris Menggunakan Fitur Macros

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

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)
Enter your email address to get update from Cara-Viz.
Print PDF
Next
« Prev Post
Previous
Next Post »

Copyright © 2013. Cara-Viz - All Rights Reserved | Template Created by Kompi Ajaib Proudly powered by Blogger