Jika nomornya perlu enam digit, tinggal ganti RIGHT("0000"&N(AQ1)+1,4) menjadi
RIGHT("000000"&N(AQ1)+1,6)Salam, HK On Tuesday, 19 August 2014, 13:12, "hendrik karnadi [email protected] [belajar-excel]" <[email protected]> wrote: Coba juga: ="SL/MB-SBY-008/"&RIGHT("00"&YEAR(AG5),2)&"/"&RIGHT("00"&MONTH(AG5),2)&"/"&RIGHT("0000"&N(AQ1)+1,4) Macronya: Private Sub Print_Out_Click() Sheets("INVOICE").Select Range("Print_Area").PrintPreview [AQ1] = [AQ1] + 1 End Sub Untuk menjalankan pertama kali, sel AQ1 harus dikosongkan. Salam, HK On Tuesday, 19 August 2014, 12:40, "Nang Agus [email protected] [belajar-excel]" <[email protected]> wrote: Dear Nanang! Asalamualaikum warahmatullah. Coba di AG3 diketik Rumus ="SL/MB-SBY-008/"&RIGHT(YEAR(TODAY());2)&"/"&TEXT(MONTH(TODAY());"00")&"/"&TEXT(AQ1;"000000") sedangkan di macro Print out tambahkan cekrip: Dim a As Integer a = Range("AQ1").Value a = a + 1 Range("AQ1").Value = a Wasalam Nang Agus 2014-08-19 11:47 GMT+07:00 Flow Nanank [email protected] [belajar-excel] <[email protected]>: > >Dear Para master Excel, > > >Mohon bantuan dan solusinya bagaimana membuat No. Invoice otomatis, >contoh : SL/MB-SBY-008/14/08/0001 >Ket. : >SL/MB-SBY-008/ : itu adalah kode baku, >14 = 2 angka akhir tahun >08 = bulan sekarang >0001 = no urut Invoice, >maksud saya adalah ketika kita klik tombol Print Out makan No. Invoice akan >otomatis berubah urutan menjadi 0002 dst. > > >terlampir contoh Invoice yg saya buat > > >atas bantuannya saya ucapkan Terimakasih.
Sol INVOICE MANUAL.xls
Description: MS-Excel spreadsheet
