・타임 레코더 ・간이 가계부의 구축을 실시한다

현재 어느 학생으로서 부기와 정보 처리를 공부하고 있는 사람이 타임 레코더와 간이 가계부를 구축해 보았습니다. 첫 게시물이므로 용서해주십시오.

구축 절차



①기능 구현



타임 레코더



・출근시간 기록
・퇴근 시간 기록
・휴가 기능
・시급 계산 기능
・그래프 기능←이번 실장하지 않고
· 집계 기능

간이 가계부


・현금~그 외 계정까지의 입력(・수입・비용을 나누는)
· 총 자산 기록
· 취소 기능
・계좌 잔고 기능
・T계정과 그래프의 표시←이번 실장하지 않고
· 집계 기능

② 타임 레코더 구축





출근일에는 today() 함수를 이용하고 있습니다.出勤日
=today()
타임카드를 누르면


・출근・퇴근을 누르면 옆의 데이타베이스(Excel의 셀에 기입을 실시합니다)

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))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로 움직이도록(듯이) 클론해 갈 예정입니다. 뭔가 개선점이나 어드바이스, 등등 있으면 코멘트로 부탁합니다.
그럼 감사합니다.

이 코드, 시스템을 사용한 오류 등의 책임은 자기 책임으로 부탁드립니다
이 시스템을 만드는 데 도움이되는 사이트 등 여러분에게 감사드립니다.

좋은 웹페이지 즐겨찾기