cara lain:
dengan memasukkan tanggal variable tsb ke sebuah *CELL tertentu
*cell itulah yg di-ubah ubah sesuai keperluan
didalam procedure nya  cell tsb dirujuk sebagai date

cara lain lagi
bisa juga cell (harus tgl) tsb dimasukkan sebagai *argument *pada prosedur
sub

Sub NamaProcedur(VarDate as Range)
   '--- isi  program
   '--- di mana kita bisa menggunakan VarDate yg
   '--- tentu bernilai tanggal yg ada di cell tertentu tsb
End Sub

program harus dijalankan melalui instruksi /  prosedur lain

Sub JalankanProgram()
  call NamaProsedur(Sheet13.Range("F16"))
End Sub



2009/1/30 siti Vi <[email protected]>

> ANDA SEBENARNYA TELAH MENEMUKAN salah satu TRICKNYA
> yaitu di awal program kita tampilkan *inputbox *meminta user mengisikan
> data tanggal
>
> jika di VB (VB6) , siti tahunya hanya ada *fungsi *InputBox yg hanya bisa
> menerima masukan
> dan akan dianggap string.
> oleh karena itu String inputan kemudian harus di konversi menjadi data DATE
>
> misal
>
> Dim NewDate As Date
> NewDate = *CDate(*InputBox("masukkan data tgl (mm/dd/yyyy):", "Input data
> tanggal")*)*
>
> Fungsi InputBox akan menayangkan kotak input dimana user diberi kesempatan
> mengisi
> suatu data.
>
> Selanjutnya ..
> variable *NewDate *dapat anda pergunakan sesuai program anda
>
> note:
> di *VBA/Excel *selain *fungsi* InputBox ada pula *method *InputBox (member
> dari Application)
> yg mempunyai parameter Type, dimana kita dapat langsung menerima masukan
> dlm
> *type data* tertentu termasuk Object Range, ErrorValue dsb
>
>
>
> 2009/1/29 CHANDRA POLIM <[email protected]>
> Dengan hormat,
> kepada para suhu excel.
> saya membuat program vb yang mana hanya berlaku untuk satu tanggal saja.
> pertanyaannya , bagaimana agar tanggal ini bisa dimasukkan
> sebagai variabel,
> sehingga tidak perlu mengubah pengkodean vb di program.
> Maksudnya keluar semacam input box untuk memasukkan data tanggal.
> Terimakasih
> yang sedang belajar excel,
> chandra
>
>

Kirim email ke