Meskipun Tutorial ini sudah banyak di blog lain. tapi nggak
ada salah nya saya membagikannya lagi,
Meskipun coding nya sederhana, tetapi bagi orang pemula
yang pengen mempelajari coding tentang vba di microsoft excel ini sangatlah sulit.
kususnya bagi orang yang ingin membuat aplikasi penjualan, untuk menampilkan nomor faktur secara otomatis di tabel transaksi penjualan sangat dibutuhkan.
kususnya bagi orang yang ingin membuat aplikasi penjualan, untuk menampilkan nomor faktur secara otomatis di tabel transaksi penjualan sangat dibutuhkan.
Nggak Usah berlama Langsung aja dech ke TKP.....hehehe
6. Doubel klik pada Module1 dan ketikan coding berikut ini.
Sub NotaPenjualan()
Dim i As Long
Dim c As Long
Dim no As String
For i = 1 To 1048576
c = Sheet2.Range("A:A").Cells(i, 1)
If c = 0 Then
no = "PJ/" & Day(Now) & Month(Now) & Year(Now) & i
Sheet1.Range("G5").Value = no
Sheet1.Range("G6").Value = no
Sheet1.Range("A:A").Cells(i, 1) = i
Exit For
End If
Next i
End Sub
7. Kemudian Kembali ke Tabel Transaksi Penjualan, Klik
Insert-Shapes-Rectangle rubahlah namanya Nomor atau boleh saja sesuka Kamu
Catatan:
Menambahkan icon Button nggak harus nya di shapes, di Tab Developer juga tersedia Button dan CommanButton
Selamat Mencoba Semoga berhasil.Menambahkan icon Button nggak harus nya di shapes, di Tab Developer juga tersedia Button dan CommanButton
Share This :
0 komentar