Begini ya Dik Neza,,, (ha ! betapa Aki merasa tuwir sekali, sehingga berani bilang "Dik" pada anda)
Cara menanggapi jawaban itu.. sebaiknya begini:
1. solusi yg diberikan orang *diberi status dulu*:
kabarkan statusnya:
sesuai keinginan atau tidak, benar atau salah, memuaskan atau
menjengkelkan ..dst
status itu tentunya sesuai syarat / batas pertanyaan yg PERNAH diajukan.
jangan memberi status tetapi dengan SYARAT BARU yg belum pernah diajukan
pada email sebelumnya (email yg ditanggapi si penanggap) = "gak
sofan..."
2. kalau ada pertanyaan baru;... misalnya (jika kolom x diberi data tidak
urut, *bgmana*)?
lha mengapa kok tanya ke milis ? apa ndak bisa dicoba sendiri ??
sebaiknya adik COBA dulu isilah kolom x dengan angka yg tidak urut
terus lihat apa yg terjadi di kolom hasil (dlm kasus ini kolom 'LookUp')
apakah masih sesuai keinginan ataukah berantakan ?
jika tidak sesuai keingian, ajukan pertanyaan baru
jika ternyata *"lho kok hasilnya masih benar"* ya jangan repot-repot:
pura-pura tanya (ngeTest) !!
3. begitu juga mengenai *ObjectRange.Currentregion*, apa yg dijangkau ?
( itu bukan event lho, tetapi variable object Range, event SELALU
ditetnukan sbg nama prosedur)
sebelum pertanyaan macem-macem diajukan, lebih baik Adik mencoba sendiri
dulu
secara manual juga bisa
** aktifkan / select Cell o9
** tekan tombol fungsi [F5]
** cari-cari tombol *S*pecial, kalau ada di ceklik (atau dengan kiboard
shortcut Alt+S)
** cari-cari Option CurrentRegion dan PILIH-lah
** Tekan tombol "wooOke", dan lihat apa yg terjadi
[image: Inline image 1]
4. adakan percobaan dengan *menambah / atau mengurangi data di kolom O:P *
ulangi meng-Currentregion-kan O9, lihat apa yg terjadi.
Di sini berlaku syarat:
1. tidak ada data loncat parit : (o10 diisi, *o11 kosong,* o12 diisi
dst...)
2. sekitar tabel O:P (kolom kanan kirinya dan baris atas bawahnya
jangan bergandengan dengan data (cell berisi data) lain
5.* pemilihan EVENT yg memenuhi keinginan, dengan sarat:*
>> " saat nilai telah diisikan pada kolom "D" dan "E" "
adalah *Worksheet_CHANGE*
dengan ada *pembatasan alamat Target*
yaitu kalau:
- nomor kolom Target di atas 3 tapi di bawah 6 (kolom D dan E)
- nomor baris Target di atas (lebih besar daripada) 7 yaitu baris 8 ke
bawah
code lain di dalamnya sama dengan yg sudah ada
Cara Pembatasan Alamat Target sudah sangat sering dicontohkan, dicari cari
dulu lah di milis..
Kalau sudah pusing tapi gak ketemu, kembali ke sini lagi ya Dik... (kalau
sempat)
Saya hanya menunggu status dari Adik mengenai "Cara menanggapi jawaban
butir 1"
Tetapi bagi Adik., *tidak ada kewajiban untuk itu*, karena ini hanya main
"tepo-sliro" saja..
*Semprul..Ki!*
catatan:
Aki sudah mencari-cari si semua posting dari Juli 2007 sampai terakhir
ternyata tidak ada member dengan nikname STDV
jadi Aki mirip dengan siapa dwongngng.. ??
Yang (pernah) ada = member dengan nikname STDEV(i)
( mirip nama Fungsi mencari nilai Standar Deviasi dari variable i )
Kalau dibanding beiauh.. tentunya ada mirip-nya karena dia itu murid Aki,
eh kebalik..
.. Aki itu murid beliauh.. tapi tidak tamat, cuma sampai jurus "tendangan
dari langit"
*'----*
*2012/3/1 neza ibaneza <[email protected]>
*
>
> * *
> *waduh Ki, kayaknya cara menjawab Ki ini saya kenal, mirip dgn STDV....
> (ST level 3)*
> *trus gimana kalaw kolom O tidak berurut? (cara 2) ada g ya?... terus
> evennya yang diinginkan diperoses saat nilai telah diisikan pada*
> kolom "D" dan "E"...atau *Worksheet_SelectionChange *evennya diganti jadi
> apa Ki?
> *karena saya juga melihat even baru : Set TabelRef =
> Range("O9").CurrentRegion apa batasan kolom terbaca terus sesuai
> *
> *batasan kolom tabel yg dibuat? atau klw nambah data pada tabel lookup
> akan terbaca juga?*
> *
> *
> *salam
> *
> *neza
> *
> *
> *
>
> ------------------------------
> *Dari:* Ki Semprul <[email protected]>
> *Dikirim:* Kamis, 1 Maret 2012 12:24
> sebaiknya kita menyebut VBA sebagai VBA jangan VB
> karena VBA bukan VB walaupun masih sodaranya)
>
> problem:
> *>> agar rumus pada kolom lookup tidak terlihat gimana caranya*
>
> *Cara1,*
> Dengan meng-asumsi-kan: tabel di kolom O:P itu data di kolom O nya
> pasti angka urut 1,2,3,... dst
>
> Kelemahan makro ini (bawaan dari ibaneza) bahwa untuk mengotomatiskan
> JALANNYA makro dipakai EVENT WorkSheet_SelectionChange tanpa
> pembatasan Target.
> Sehingga *makro akan terus-menerus dijalankan* setiap anda* memindah kan *
> *cell pointer *KE CELL MANA SAJA di sheet tsb, walaupun hanya memindahkan
> saja.
> (kacian deh komputernya...)
>
> Sebaiknya ibaneza menenetukan keperluannya: kapan hasil ingin didapatkan ?
>
> Private Sub *Worksheet_SelectionChange*(ByVal Target As Range)
> Dim TabelRef As Range
> Dim i As Integer
> Dim a As Double, b As Double
> Dim x As Double, y As Double
> Set TabelRef = Range("O9").CurrentRegion
>
> For i = 8 To 16
> a = Cells(i, 4)
> b = Cells(i, 5)
> x = Cells(i, 3)
> y = a + (b ^ x)
> *Cells(i, 6).Value = y*
> * Cells(i, 7).Value = TabelRef(x, 2*)
> Next i
> End Sub
>
> cara 2 / dan cara lain akan diposted ke milis bila posting ini ada
> tanggapannya
>
> *Semprul..Ki!*
>
>
<<jangkauan currentregion.PNG>>
