Fw: [belajar-excel] belajar VB1

[hendrik karnadi]

Sedikit nimbrung walaupun OOT.

Mengutip catatan Aki pada bagian akhir ..jurus tendangan dari langit.....

Untuk dapat menendang saja (walaupun kuda2 masih sempoyongan) perlu waktu cukup lama apalagi belajar VBA.

Memang betul petuah Aki bahwa kita harus rajin2 mencoba sendiri (ubah, gagal, coba lagi...dstnya) sampai kita menemukan Eureka (kata tokoh jaman dulu).

Pada saat itulah kita dapat bermain-main dengan VBA dan memecahkan masalah2 yang sebelumnya tidak pernah terpikirkan (koq bisa ya ....).

Salam,

Hendrik Karnadi

----- Forwarded Message -----
From: Ki Semprul <semprul...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 1 March 2012, 14:32
Subject: Re: [belajar-excel] belajar VB1

 

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 Special, 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

   

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 <nezaiban...@yahoo.co.id>

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 <semprul...@gmail.com>
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!