VBA Excel : Berpindah Antar Sheet Secara Mudah

Sebagian dari kita pasti pernah bekerja dalam excel dengan banyak sheet, bahkan mungkin sudah menjadi suatu bagian dari pekerjaan. Jika hanya beberapa sheet mungkin tidak bermasalah bagi kita untuk berpindah antar sheet, tetapi karena terbatasnya space tab sheet pada excel, maka sheet yang jumlahnya puluhan menjadi suatu masalah tersendiri saat akan berpindah antar sheet.
berikut ini akan dibahas cara membuat aplikasi sederhana untuk memudahkan kita berpindah antar sheet.

Langkah-langkah :

1. Buatlah sebuah form dengan beberapa kontrol utama berupa : Label, Combobox dan Command Button dan set properties yang diperlukan;
2. Buatlah sebuah modul;
3. Tambahkan kode dalam User Form;
4. Tambahkan kode dalam modul;
5. 
6. Tambahkan kode dalam workbook untuk membuat shortcut;

Kode selengkapnya adalah sebagai berikut :

Kode pada User Form :

Private Sub ComboBox1_Click()
On Error Resume Next
Worksheets(ComboBox1.Text).Activate
End Sub

Private Sub CommandButton1_Click()
End

End Sub

Private Sub UserForm_Activate()
Dim x, i
x = ActiveWorkbook.Worksheets.Count

ComboBox1.Text = ActiveWorkbook.ActiveSheet.Name

For i = 1 To x

ComboBox1.AddItem Worksheets(i).Name

Next


End Sub

Kode pada Modul :

Sub Macro1()
Call UserForm1.Show

End Sub

Kode pada Workbook:

Private Sub Workbook_Open()
'Keyboard Shortcut Ctrl+Shift+C, silahkan pilih kombinasi shortcut anda sendiri

Application.OnKey "+^{S}", "Module1.Macro1"

End Sub

Menjadikan sebagai Add-Ins :

Agar aplikasi ini dapat digunakan setiap saat, sebaiknya dijadikan sebagai Add-Ins dengan cara menyimpannya dengan type *.xla. Kemudian pasangkan file Add-Ins tersebut ke dalam aplikasi MS-Excel anda.

Cara mengoperasikan :

Tekan kombinasi tombol Ctrl+Shift+C atau kombinasi tombol yang telah anda tentukan sendiri.