Sedikit tambahan aja si. Kalo misalnya ingin menghasilkan suatu nomor yang berawalan angka 0 (nol), jgn lupa untuk selalu menggunakan text. Karena pada excel, apabila ada penulisan angka 0 (nol) pada suatu kata, maka saat akan disimpan di sheet excel, format tersebut berubah menjadi general. Kalau ga salah begitu si penjelasannya, klo masih ada yg salah, tolong diluruskan ya.
Sedikit kombinasi dari rumus : Alur -> Kolom A diprotect, karena ini adalah penomoran invoice otomatis dan kolom yang lainnya bisa diinput. Pada baris 1, kita isikan nomor invoicenya. Misal (0001/INV/IMG/2013) -> rumus untuk CELL A2: =IF(B2="","",TEXT((MID(A1,4,1)+1),"000#") & "/INV/IMG/" & YEAR(NOW())) *Penjelasan : Jika cell B2 kosong, maka cell A2 kosong Valuenya. Jika cell B2 terisi, maka cell A2 akan mengambil value A1 dari angka keempat dari depan dan ditambahkan 1, lalu setelah ditambahkan diconvert ke TEXT untuk menjadikan "0002". Dan Tahun saya buatkan otomatis, karena surat invoice ini akan berjalan dari tahun ke tahun. Jadi secara otomatis tahun tersebut akan berubah apabila tahun sudah menjadi 2014. #Mohon untuk dikoreksi para BeExcel apabila penjelasannya ada yg tidak sesuai. Terima kasih. Best Regards, -ajisuse- --- In [email protected], lapendosol opik <lapendosol@...> wrote: > > Terimakasih Mas DP, > Tadinya pengen di format kaya gini tapi gagal terus hehehe > > Trimakasih pak HP, > Cara ini juga sangat membantu > =TEXT(LEFT(A2,4)+1,"0000")&"/INV/IMG/2013" > > Trimakasih Pak HK, > Cara ini bisa digunakan dengan bantuan semacam nomer urut disamping invoice, > jadi RIGHTnya merujuk ke nomer urutnya. > > Ketiga solusi dari rekan-rekan sangat membantu sekali. > Trimakasih semuanya. > Wassalam, > > > > > ________________________________ > From: hendrik karnadi <hendrikkarnadi@...> > To: "[email protected]" <[email protected]> > Sent: Thursday, July 4, 2013 1:58 PM > Subject: Re: [belajar-excel] Membuat nomer urut invoice > > > Mas Opik, > Jika Range("A1") diisi angka 1 (satu) maka pada nomor inv bisa ditulis > =RIGHT("0000"&A1,4)&"/INV/IMG/2013" > > Hasilnya > 0001/INV/IMG/2013 > > Selanjutnya tinggal ganti angka pada Range("A1"), mis menjadi 2 (dua), dst. > > Kalau Invoicenya berupa template untuk mencetak banyak invoice yang datanya > diambil dari database maka penambahan angka pada Range("A1") dan > pengambilan datanya dari database bisa dibuat otomatis dengan macro. > > Salam, > HK > > ________________________________ > From: Heri Pamungkas ( Gmail ) <ghery.dharma@...> > To: [email protected] > Sent: Thursday, July 4, 2013 2:09 PM > Subject: Re: [belajar-excel] Membuat nomer urut invoice > > > Semangat pagi, > > Mungkin =LEFT(A1,4)+1&"/INV/IMG/2013" bisa ditambahkan format TEXT menjadi > =TEXT(LEFT(A1,4)+1;"0000")&"/INV/IMG/2013" > > ________________________________ > From: De Premor <de@...> > To: [email protected] > Sent: Thursday, July 4, 2013 1:42 PM > Subject: Re: [belajar-excel] Membuat nomer urut invoice > > > >  > Pakai Custom formating seperti terlampir boleh nda ? > > > > Pada 04/07/2013 13:32, lapendosol opik menulis: > >  > >Dear Be-Excel, > >Mohon bantuannya atas masalah yg saya hadapi > >Ceritanya saya membuat semacam Invoice, dimana dalam invoice terdapat nomer > >invoice > >Contoh format penulisan nomer invoice: > >0001/INV/IMG/2013 > >0002/INV/IMG/2013 > >dst > > > > > >Saya belum ada ide bagaimana cara penomoran otomatis invoice tersebut, kalo > >rekan-rekan Be-Excel ada ide mohon sarannya cara penomoran otomatisnya. > > > >Sementara sambil nunggu para rekan-rekan kasih ide, cara yang terlintas > >dipikiran saya dengan membuatkan sheet bantuan untuk menghasilkan nomer > >otomatis kemudian di copy ke sheet Invoicenya. Misalnya: > >0001/INV/IMG/2013 ada di cell A1 > >cell A2 saya beri =LEFT(A1,4)+1&"/INV/IMG/2013" > >Tapi hasilnya jadi 2/INV/IMG/2013 > >Sudah saya coba ganti dengan CONCATENATE tetep sama hasilnya 2/INV/IMG/2013, > >padahal hasil yang diinginkan 0002/INV/IMG/2013. Kemudian diganti format > >cellnya juga sama (atau format cellnya yg salah kali). > >Mohon bantuannya rekan-rekan Be-Excel gimana caranya agar A2 menghasilkan > >0002/INV/IMG/2013 > > > > > >Terimakasih banyak sebelum dan sesudahnya > >Wassalam, > > >
