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_SelectionChangeevennya 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>
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Kamis, 1 Maret 2012 12:24
Judul: Re: [belajar-excel] belajar VB1
 

  


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!



2012/3/1 neza ibaneza <nezaiban...@yahoo.co.id>

 
>dear be-excel
>saya lagi coba buat program belajar dasar VB, tetapi saya coba agar rumus pada 
>kolom lookup tidak terlihat gimana caranya
>supaya seperti pada kolom Y' secara otomatis.
>salam
>neza


Kirim email ke