Dear Rahmad,
saya copy rumus anda.
Option Explicit
Function Prod(a As String) As Date
Prod = DateSerial(Application.WorksheetFunction.VLookup(Mid(a, 1, 1), _
Range("_year"), 2, False), Application.WorksheetFunction.VLookup(Mid(a, 2,
1), _
Range("_Month"), 2, False), Application.WorksheetFunction.VLookup(Mid(a, 3,
1), _
Range("_date"), 2, False))
End Function
salam
2015-09-01 10:06 GMT+07:00 'Rakhmad' [email protected]
[belajar-excel] <[email protected]>:
>
>
> Dear Pakar Excel,
>
>
>
> Mohon pencerahan bagaimana cara membuat fungsi sendiri menggunakan VBA,
>
> VBA bisa digunakan untuk membuat Fungsi sendiri sesuai kondisi, dalam
> perhitungan
>
> pembacaan kode batch dapat terdiri dari Huruf dan Angka tahun misal A =
> 2010, B=2011 C= 2012 dst.
>
> Angka Bulan A=1, B=2, C=3 dst. Angka tanggal a=1, b=2, c=dan seterusnya.
> (digit pertama = Tahun, digit kedua=Bulan, digit ketiga=Tanggal).
>
> Apakah case yang saya lampirkan bisa diselesaikan dengan fungsi yang
> dibuat sendiri.
>
> Misal; Prod($A5) dsb. Atas bantuannya kami ucapkan terima kasih.
>
>
>
> Terima kasih,
>
>
>
> Rakhmad
>
>
>
>
>
>
>
>
>
>
>
