Internal Cash Flow dengan Vb.net dan excel

Laporan pengeluaran dan pemasukan keluarga kadang ada yg di catat semua, detail dengan dalih agar lebih terkontrol. Saya pribadi sebenarnya tidakmelakukan itu, tapi istri saya melakukannya. Satu waktu ada seorang teman minta dibuatkan programnya. Agar tidak manual hihhi

Sebenarnya program ini simple saja, hanya laporan di excel hanya dengan menggunakan GUI dari aplikasi buatan dengan VB.net. Dengan tampilan seperti berikut:

hanya mencatat pemasukan dan pengeluaran, dengan adanya summary jumlah yang masuk dan keluar, sehingga lebih terlihat dan mudah di kontrol, baik harian, bulanan, atau tahunan..
Bisa di buat reportnya yang akan menghasilkan laporan dengan file excel..

jika mau coba dan pakai source nya ada di:
Source
Sedangkan untuk yang sudah jadi berupa installer ada di:
Installer
note: saat diinstall harap di arahkan agar di install di folder:
C:\Internal Cash-Flow
Agar program bisa berjalan. jika mau edit dan atau di tambahkan bisa download saja sourcenya..
Didalamnya menggunakan koneksi dengan excel seperti yang pernah saya post di blog ini sebelumnya..




Ma'af jika banyak kekurangan, itu hanya program sederhana, namun akan berarti untuk yang membutuhkan, baik program keseluruhan ataupun contoh syntax nya..
Berikut sedikit potongan syntax nya:

        'xlApp = New Excel.ApplicationClass
        'xlWorkBook = xlApp.Workbooks.Open("C:\Internal Cash-Flow\data.xlsx")
        'xlWorkSheet = xlWorkBook.Worksheets("sheet1")
        'xlWorkBook.Application.Visible = True
        'xlWorkBook.Application.WindowState = Excel.XlWindowState.xlMinimized
        lastrow = xlWorkSheet.UsedRange.Rows.Count
        rng = lastrow

        Dim rang As Excel.Range = xlWorkSheet.Cells(rng + 1, 2)
        Dim row As Excel.Range = rang.EntireRow

        If TextBox1.Text <> "" And TextBox4.Text = "" Then
            row.Insert(Excel.XlInsertShiftDirection.xlShiftDown, False)
            xlWorkSheet.Cells((rng + 1), 2) = rng - 1
            xlWorkSheet.Cells((rng + 1), 3) = DateTimePicker1.Text
            xlWorkSheet.Cells((rng + 1), 4) = TextBox1.Text
            xlWorkSheet.Cells((rng + 1), 5) = TextBox2.Text
            xlWorkSheet.Range("B" & rng + 1 & ":F" & rng + 1).Borders.Weight = 2
        ElseIf TextBox1.Text = "" And TextBox4.Text <> "" Then
            row.Insert(Excel.XlInsertShiftDirection.xlShiftDown, False)
            xlWorkSheet.Cells((rng + 1), 2) = rng - 1
            xlWorkSheet.Cells((rng + 1), 3) = DateTimePicker1.Text
            xlWorkSheet.Cells((rng + 1), 4) = TextBox4.Text
            xlWorkSheet.Cells((rng + 1), 6) = TextBox3.Text
            xlWorkSheet.Range("B" & rng + 1 & ":F" & rng + 1).Borders.Weight = 2
        ElseIf TextBox1.Text <> "" And TextBox4.Text <> "" Then
            row.Insert(Excel.XlInsertShiftDirection.xlShiftDown, False)
            xlWorkSheet.Cells((rng + 1), 2) = rng - 1
            xlWorkSheet.Cells((rng + 1), 3) = DateTimePicker1.Text
            xlWorkSheet.Cells((rng + 1), 4) = TextBox1.Text
            xlWorkSheet.Cells((rng + 1), 5) = TextBox2.Text
            xlWorkSheet.Range("B" & rng + 1 & ":F" & rng + 1).Borders.Weight = 2
            row.Insert(Excel.XlInsertShiftDirection.xlShiftDown, False)
            xlWorkSheet.Cells((rng + 2), 2) = rng
            xlWorkSheet.Cells((rng + 2), 3) = DateTimePicker1.Text
            xlWorkSheet.Cells((rng + 2), 4) = TextBox4.Text
            xlWorkSheet.Cells((rng + 2), 6) = TextBox3.Text
            xlWorkSheet.Range("B" & rng + 2 & ":F" & rng + 2).Borders.Weight = 2
        End If


indah nya berbagi..
Semoga bermanfaat
"No Offence No Heart Feelings"