Hi everyone! π
This time weβre sharing an Excel template designed to help you input and manage your sales data easily. The template also includes a Pivot Chart and a Pivot Table for visual analysis.
This time weβre sharing an Excel template designed to help you input and manage your sales data easily. The template also includes a Pivot Chart and a Pivot Table for visual analysis.
We built it using Excel, with a bit of VB (Visual Basic) to handle the data entry form.
If you're interested, this Excel template is available for only Rp 50,000.
Or, you can create it yourself by following these simple steps:
If you're interested, this Excel template is available for only Rp 50,000.
Or, you can create it yourself by following these simple steps:
1. Create a table containing the following fields:
Product ID, Product Name, Category, Qty, Price ($), and Income,
then convert it into a structured table (use Ctrl + T in Excel).
Product ID, Product Name, Category, Qty, Price ($), and Income,
then convert it into a structured table (use Ctrl + T in Excel).
2. Create an Input Form using VBA and attach the following code to your button:
Private Sub cmdAdd_Click()
Dim ws As Worksheet
Dim tbl As ListObject
Dim newRow As ListRow
Set ws = ThisWorkbook.Sheets("Database")
Set tbl = ws.ListObjects("tblSeller") ' Change according to your table name
' Add new row to the table
Set newRow = tbl.ListRows.Add
With newRow
.Range(1, 1).Value = Now()
.Range(1, 2).Value = Me.txtProductName.Value
.Range(1, 3).Value = Me.txtCategory.Value
.Range(1, 4).Value = Me.txtQty.Value
.Range(1, 5).Value = Me.txtPrice.Value
.Range(1, 6).Value = Me.txtQty.Value * Me.txtPrice.Value
End With
MsgBox "Data added successfully!", vbInformation
' Clear the form
Call cmdClear_Click
End Sub
3. Finally, create a Pivot Table and Pivot Chart
to summarize and visualize your sales performance easily.
In Bahasa Indonesia:
Hi rekan rekan kali ini kami menyediakan template excel untuk melakukan input list untuk memanage data penjualan anda, dan juga disertai dengan plot pivot chart dan juga table chart. Kami membuatnya dengan menggunakan excel dengan sedikit bantuan dari VB untuk melakukan input data. Bagi rekan rekan yang berminat excel ini kami jual dengan harga Rp 50.000 saja. Atau rekan rekan bisa membuatnya sendiri dengan cara:
1. Membuat table yang berisikan field : Product ID, Product Name, Category, Qty, Price ($), Income lalu membuatnya menjadi structured table.
2. Buat Form inputnya mengunakan Form lalu meletakan dibutton action:
Private Sub cmdAdd_Click()
Dim ws As Worksheet
Dim tbl As ListObject
Dim newRow As ListRow
Set ws = ThisWorkbook.Sheets("Database")
Set tbl = ws.ListObjects("tblSelller") ' Ganti sesuai nama sheet kamu
' Cari baris kosong terakhir
Set newRow = tbl.ListRows.Add
With newRow
.Range(1, 1).Value = Now()
.Range(1, 2).Value = Me.txtProductName.Value
.Range(1, 3).Value = Me.txtCategory.Value
.Range(1, 4).Value = Me.txtQty.Value
.Range(1, 5).Value = Me.txtPrice.Value
.Range(1, 6).Value = Me.txtQty.Value * Me.txtPrice.Value
End With
MsgBox "Data added successfully!", vbInformation
' Kosongkan form
Call cmdClear_Click
End Sub
3. Lalu membuat Chart Pivot dan Table Pivot
Hi rekan rekan kali ini kami menyediakan template excel untuk melakukan input list untuk memanage data penjualan anda, dan juga disertai dengan plot pivot chart dan juga table chart. Kami membuatnya dengan menggunakan excel dengan sedikit bantuan dari VB untuk melakukan input data. Bagi rekan rekan yang berminat excel ini kami jual dengan harga Rp 50.000 saja. Atau rekan rekan bisa membuatnya sendiri dengan cara:
1. Membuat table yang berisikan field : Product ID, Product Name, Category, Qty, Price ($), Income lalu membuatnya menjadi structured table.
2. Buat Form inputnya mengunakan Form lalu meletakan dibutton action:
Private Sub cmdAdd_Click()
Dim ws As Worksheet
Dim tbl As ListObject
Dim newRow As ListRow
Set ws = ThisWorkbook.Sheets("Database")
Set tbl = ws.ListObjects("tblSelller") ' Ganti sesuai nama sheet kamu
' Cari baris kosong terakhir
Set newRow = tbl.ListRows.Add
With newRow
.Range(1, 1).Value = Now()
.Range(1, 2).Value = Me.txtProductName.Value
.Range(1, 3).Value = Me.txtCategory.Value
.Range(1, 4).Value = Me.txtQty.Value
.Range(1, 5).Value = Me.txtPrice.Value
.Range(1, 6).Value = Me.txtQty.Value * Me.txtPrice.Value
End With
MsgBox "Data added successfully!", vbInformation
' Kosongkan form
Call cmdClear_Click
End Sub
3. Lalu membuat Chart Pivot dan Table Pivot