Cara Menyoroti Barisan Sel Data Ganda dengan Cara Men-Dobel-Klik Sel Excel
Kami akan berbagi tip yang merupakan cara yang sangat tepat untuk memilih atau menyoroti suatu barisan sel dengan data ganda di dalam kolom ganda.
Seperti yang ditunjukkan pada gambar di bawah ini sebuah contoh worksheet dengan daftar yang telah diurutkan berdasarkan kolom A.
Jadi ketika Anda men-dobel-klik sel mana saja di dalam tabel tersebut, maka baris-baris data yang sama pada kolom A secara langsung akan tersorot.
Dan jika Anda amati baik-baik, baris dalam tabel yang terpilih tersebut akan menampilkan info berupa hasil-hasil perhitungan seperti rata-rata (Average), jumlah data (Count), dan jumlah angka (Sum) yang ditampilkan tepat pada status bar yang terletak di sudut paling bawah jendela Excel.
Untuk menyusun kode macro, silakan Anda ikuti langkah demi langkah sebagai berikut:
1. Contoh macro ini menggunakan prosedur event Worksheet_BeforeDoubleClick, maka dari itu kode ini dibuat pada module worksheet, langkah pertama adalah siapkan worksheet yang berisi data ganda, Anda bisa menyalin data contoh seperti pada gambar, kemudian klik kanan tab sheet-nya.
2. Pilih View Code.
3. Pada kotak pilihan Object (General) di atas module worksheet klik tanda panah di ujungnya.
4. Pilih Worksheet.
5. Pada kotak pilihan Procedure (Declarations) di atas module worksheet, klik tanda panah di ujungnya.
6. Pilih event BeforeDoubleClick.
7. Ketik kode berikut tepat dibawah Private Sub Worksheet_BeforeDoubleClick dan program hanya pada baris-baris dalam daftar, kecuali baris pertama:
If Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then Exit Sub
Cancel = True
8. Tetapkan variabel-variabel contohnya:
Dim t1 As Long, t2 As Long
Dim b As Long, bt As Long
9. Tetapkan masing-masing variabel berikut:
bt = Cells(Rows.Count, 1).End(xlUp).Row
k = _
Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
t1 = Columns(1).Find(What:=v, LookIn:=xlValues, LookAt:=xlWhole).Row
b = t1
10. Kenali barisan sel dari baris-baris yang memiliki nilai yang sama di kolom A:
If Cells(b + 1, 1).Value <> v Then
t2 = b + 1
Exit Do
Else
b = b + 1
End If
Loop Until b = bt
t2 = b
11. Pilih dengan parameter Select baris data yang memiliki nilai yang sama di kolom A.
Range(Cells(t1, 1), Cells(t2, k)).Select
12. Berikut ini susunan lengkap kode macro tersebut:
If Target.Row = 1 Then Exit Sub
If Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then Exit Sub
Cancel = True
Dim v As String, k As Long
Dim t1 As Long, t2 As Long
Dim b As Long, bt As Long
v = Cells(Target.Row, 1).Value
bt = Cells(Rows.Count, 1).End(xlUp).Row
k = _
Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
t1 = Columns(1).Find(What:=v, LookIn:=xlValues, LookAt:=xlWhole).Row
b = t1
Do
If Cells(b + 1, 1).Value <> v Then
t2 = b + 1
Exit Do
Else
b = b + 1
End If
Loop Until b = bt
t2 = b
Range(Cells(t1, 1), Cells(t2, k)).Select
End Sub
13. Buka kembali worksheet dengan menekan Alt+Q
14. Dobel-klik sel mana saja di dalam tabel.
Itulah penjelasan tentang cara yang sangat cepat dan tepat untuk menyoroti suatu barisan sel dengan data ganda dalam kolom ganda dengan cara dobel-klik sel mana saja dalam tabel data.
Selamat mencoba dan semoga postingan ini bermanfaat.