cara alternatif : ' Deklarasi Win API yg akan digunakan , istilah mudahnya
'Daftarkan'Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As
Long) As Integer' konstata untuk nilai balik saat penekanan [Ctrl]
Private Const VK_CONTROL As Long = &H11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If GetKeyState(VK_CONTROL) >= 0 Then GoTo lab_lompati
'buat dgn format pembatas ","
strdaerah = ""
For Each sel In Target
strdaerah = strdaerah & "," & sel.Address
Next
strdaerah = Mid(strdaerah, 2)
' cari koma terakhir
revdaerah = StrReverse(strdaerah)
posisikomaterakhir = InStr(1, revdaerah, ",", vbTextCompare)
If posisikomaterakhir <= 1 Then GoTo lab_lompati
' daerah yang terakhir dipilih
daerahterakhir = StrReverse(Mid(revdaerah, 1, posisikomaterakhir - 1))
posisikomaterakhir = Len(strdaerah) - Len(daerahterakhir)
' ganti mudah mengganti/menghilangkan
ganti = "," & daerahterakhir' jika penambahan sel sudah ada berakhir
unselect
' penambahan sel belum ada berarti select
If InStr(1, strdaerah, daerahterakhir, vbTextCompare) < posisikomaterakhir
Then
'jika diposisi awal maka di tambahkan ","
strmodif = "," & strdaerah
strdaerah = WorksheetFunction.Substitute(Arg1:=strmodif, arg2:=ganti,
arg3:="")
End If
' jika ada "," pada awal
If Left(strdaerah, 1) = "," Then
strdaerah = Mid(strdaerah, 2)
End If
' pilih ulang
Range(strdaerah).Select
Range(strdaerah).Activate
lab_lompati:End Sub
======================================
mods note:
maaf posting ini masuk ke folder spamm
======================================
To: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 07:23:33 +0700
Mr kid VBA nya keren dan hasilnya pun
menakjubkan
namun ketika yang ingin di unselect itu kolom B,
kok yang ter Unselect kolom A ya??
Terimakasih
Best
Regard
<>.<>.<>.<>.<>.<>.
Sidoel
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Thursday, November 24, 2011 2:24 AM
Ada yang gak pas di workbook open. Jadi, file yang lalu diabaikan
saja.
Coba file terlampir yang baru ini saja ya.
Select seperti
biasa, bisa manfaatkan Shift unuk membuat sebuah area terselect, bisa
menggunakan Ctrl untuk membentuk area baru terselect.
Untuk unselect, tekan
tombol Ctrl dan klik sebuah cell yang sudah terselect.
Dicoba untuk
jumlah cells terselect yang buanyak, siapa tahu muncul bug nya.
Jika
bertemu bug, mohon kerjasama untuk laporan
bugnya.
Wassalam,
Kid.
