aih... pantes error, ada yang kurang.
Berikut :
Dari :
txtRevenue.text=evaluate("=VLOOKUP(1*" & cdate(txtDate.text) &
",$A$2:$B$17,2)")
diubah menjadi :
txtRevenue.text=evaluate("=VLOOKUP(1*""" & cdate(txtDate.text) & """
,$A$2:$B$17,2)")
Sekalian...
Fungsi Evaluate di VBA digunakan untuk mengkalkulasi ekspresi. Ekspresi
bisa berupa formula maupun nama range.
Pada fungsi Evaluate di atas, yang dievaluasi adalah ekspresi formula yang
berbunyi :
=VLookUp( 1* "suatu teks tanggal" , $A$2:$B$17,2)
1* digunakan untuk mengkonversi data bertipe text menjadi bertipe numerik.
Maaf ya kalau dah bikin bingung...
Wassalam,
Kid.
2013/5/17 Fred <[email protected]>
> **
>
>
> hi mr kid.
>
> saya sdh mencoba tetapi ada error message
> run time error '13'.
>
> mohon bantuannya kembali
>
>
> --- In [email protected], "Fred" <angelo_feather@...> wrote:
> >
> >
> > Terima kasih mr kid. I will try it..
> >
> > --- In [email protected], "Mr. Kid" <mr.nmkid@> wrote:
> > >
> > > Coba pada event click milik tombol fetch diberi script :
> > >
> > > 'asumsi :
> > > '1. txtDate adalah nama textbox tanggal
> > > '2. txt Revenue adalah nama textbox hasil lookup
> > > '3. inputan dalam txtDate bisa menjadi date menurut komputer setempat
> > > txtRevenue.text=evaluate("=VLOOKUP(1*" & cdate(txtDate.text) &
> > > ",$A$2:$B$17,2)")
> > >
> > > Wassalam,
> > > Kid.
> > >
> > >
> > >
> > >
> > > 2013/5/17 freddy heru soermin <angelo_feather@>
> > >
> > > > **
> > > >
> > > >
> > > > Dear Exceler,
> > > > sangat butuh bantuannya untuk coding VB user form berikut.saya ingin
> > > > apabila saya isi tanggal di textbox pertamadan setelah itu saya klik
> > > > Fetch kemudian di text box berikutnya muncul nilaiyang mendekati
> dengan
> > > > tanggal yang saya inginkan (hampir sama fungsinya seperti Vlookup)
> > > > HS.Freddy
> > > >
> > > >
> > > >
> > >
> >
>
>
>
