・タイムレコーダー・簡易家計簿の構築を行う

現在とある学生として簿記と情報処理を勉強している人がタイムレコーダーと簡易家計簿を構築してみました。初めての投稿なのでご容赦くださいｗ

構築の手順

①機能の実装

タイムレコーダ

・出勤時間記録

・退勤時間記録

・休暇機能

・時給計算機能

・グラフ機能←今回実装せず

・集計機能

簡易家計簿

・現金~その他勘定までの入力（・収入・費用　を分ける）

・総資産の記録

・取り消し機能

・口座残高機能

・Ｔ勘定とグラフの表示←今回実装せず

・集計機能

②タイムレコーダーの構築

出勤日にはtoday()関数を利用しています。
出勤日
=today()

タイムカードを押すと

・出勤・退勤を押すと隣のデータベース（Ｅｘｃｅｌのセルに書き込みを行います）

UserForm1.vba

Private Sub CommandButton1_Click()

Dim syu As String

syu = Range("L3")

Cells(syu, 2) = Format(Time, "hh:mm:ss")

End Sub

Private Sub CommandButton2_Click()


Dim syu As String

syu = Range("L3")

Cells(syu, 4) = Format(Time, "hh:mm:ss")



End Sub

Private Sub CommandButton3_Click()

End





End Sub


Private Sub UserForm_Activate()
Dim myTime As Date

    myTime = Format(Time, "hh:mm:ss")

    Label1.Caption = myTime

End Sub

L3.セル

=ADDRESS(MATCH(J5,A:A,0),MATCH(J4,2:2,0),1)

L4.セル

=VALUE(RIGHT(L34,2))

現在は(RIGHT(L2,2))２になっているがこれから先値が大きくなるとここがエラーを吐くのでこれからif文をつかってコードの変更が必要になる。

・休暇コード・集計表もおんなじように構築をしている。
コードだけ載せておきます。

UserForm2.vba

Private Sub CommandButton1_Click()

Dim kilyu, bi As String

kilyu = "休暇"


syu = Range("L3")
bi = Range("J18")


Cells(syu, 2) = kilyu
Cells(syu, 4) = kilyu

Cells(syu, 9) = bi
End Sub

Private Sub CommandButton3_Click()
End
End Sub

Private Sub CommandButton4_Click()




syu = Range("L3")
bi = Range("J18")


Cells(syu, 2) = ""
Cells(syu, 4) = ""

Cells(syu, 9) = ""

End Sub

集計にはモジュールに記入しています。自分はjavaでいうところのmainみたいな書き方をしています。

module1.vba

Sub ボタン68_Click()
UserForm1.Show vbModeless
End Sub

Sub ボタン69_Click()
UserForm2.Show vbModeless
End Sub
Sub ボタン70_Click()

Dim hzi, owa As Integer
Dim susum As Integer

Dim hazime, owari As String



hazi = Range("L35")
owa = Range("L40")


susum = WorksheetFunction.Sum(Range(Cells(hazi, 8), Cells(owa, 8)))


MsgBox (susum)


    Range("L48") = susum

End Sub

Sub ボタン2_Click()
UserForm4.Show vbModeless
End Sub
Sub ボタン3_Click()
UserForm5.Show vbModeless
End Sub

こんな感じでコードを書いています。

③簡易家計簿構築

基本的にはタイムレコーダ機能と同じような書き方でエクセルの関数は動いています。

=日付!B8224

基本的に口座残高も同じような感じで構築しています。

ちなみにここの・外観・機能は
最も入力が簡単な無料家計簿・家計簿アプリ[ドクターウォレット]
ここのサイトを参考に作らせていただきました。
ありがとうございました。

一応コードだけ載せさせていただきます。

UserForm4.vba

Private Sub CommandButton1_Click()

Dim syu, test, test1 As String


syu = Range("F15")


If Worksheets("入力フォーム").Range("B17") <> "" Or Worksheets("入力フォーム").Range("C17") <> "" Or Worksheets("入力フォーム").Range("D17") <> "" Or Worksheets("入力フォーム").Range("E17") <> "" And Worksheets("入力フォーム").Range("B18") = "" And Worksheets("入力フォーム").Range("C18") = "" And Worksheets("入力フォーム").Range("D18") = "" And Worksheets("入力フォーム").Range("E18") = "" Then

    Worksheets("日付").Cells(syu, 5) = Worksheets("入力フォーム").Range("B17") + Worksheets("日付").Cells(syu, 5)
     Worksheets("日付").Cells(syu, 6) = Worksheets("入力フォーム").Range("C17") + Worksheets("日付").Cells(syu, 6)
 Worksheets("日付").Cells(syu, 7) = Worksheets("入力フォーム").Range("D17") + Worksheets("日付").Cells(syu, 7)
   Worksheets("日付").Cells(syu, 8) = Worksheets("入力フォーム").Range("E17") + Worksheets("日付").Cells(syu, 8)

   ElseIf Worksheets("入力フォーム").Range("B17") = "" Or Worksheets("入力フォーム").Range("C17") = "" Or Worksheets("入力フォーム").Range("D17") = "" Or Worksheets("入力フォーム").Range("E17") = "" And Worksheets("入力フォーム").Range("B18") <> "" Or Worksheets("入力フォーム").Range("C18") <> "" Or Worksheets("入力フォーム").Range("D18") <> "" Or Worksheets("入力フォーム").Range("E18") <> "" Then

   Worksheets("日付").Cells(syu, 5) = Worksheets("日付").Cells(syu, 5) - Worksheets("入力フォーム").Range("B18")
    Worksheets("日付").Cells(syu, 6) = Worksheets("日付").Cells(syu, 6) - Worksheets("入力フォーム").Range("C18")
        Worksheets("日付").Cells(syu, 7) = Worksheets("日付").Cells(syu, 7) - Worksheets("入力フォーム").Range("D18")
            Worksheets("日付").Cells(syu, 8) = Worksheets("日付").Cells(syu, 8) - Worksheets("入力フォーム").Range("E18")

   Else

    Worksheets("日付").Cells(syu, 5) = Worksheets("入力フォーム").Range("B17") + Worksheets("日付").Cells(syu, 5) - Worksheets("入力フォーム").Range("B18")
        Worksheets("日付").Cells(syu, 6) = Worksheets("入力フォーム").Range("C17") + Worksheets("日付").Cells(syu, 6) - Worksheets("入力フォーム").Range("C18")
            Worksheets("日付").Cells(syu, 7) = Worksheets("入力フォーム").Range("D17") + Worksheets("日付").Cells(syu, 7) - Worksheets("入力フォーム").Range("D18")
                Worksheets("日付").Cells(syu, 8) = Worksheets("入力フォーム").Range("E17") + Worksheets("日付").Cells(syu, 8) - Worksheets("入力フォーム").Range("E18")



End If


   test = Worksheets("日付").Cells(syu, 3)

   Worksheets("日付").Cells(syu, 3) = test + Worksheets("入力フォーム").Range("B17") '収益

   test1 = Worksheets("日付").Cells(syu, 4)


   Worksheets("日付").Cells(syu, 4) = test + Worksheets("入力フォーム").Range("C17") '費用




End Sub


Private Sub CommandButton2_Click()
End
End Sub

UserForm5.vba

Private Sub CommandButton1_Click()
syu = Range("F15")

Worksheets("日付").Cells(syu, 5) = ""
Worksheets("日付").Cells(syu, 6) = ""
Worksheets("日付").Cells(syu, 7) = ""
Worksheets("日付").Cells(syu, 8) = ""

Range("B17") = ""
Range("C17") = ""
Range("D17") = ""
Range("E17") = ""

Range("B18") = ""
Range("C18") = ""
Range("D18") = ""
Range("E18") = ""


End Sub

Private Sub CommandButton2_Click()
End
End Sub

今回は以上になります。お粗末なコードそして関数を失礼いたしました。
今後はグラフ機能や帳簿機能を充実させwebで動くようにクローンしていく予定です。何か改善点やアドバイス、等々あればコメントでお願いします。
ではありがとうございました。

このコード、システムを使ってのエラー等々の責任は自己責任でお願いします
このシステムを作るうえで参考にさせてもらったサイト等々のみなさんありがとうございました。