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 <[email protected]>
Kepada: [email protected]
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 <[email protected]>
>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
