・타임 레코더 ・간이 가계부의 구축을 실시한다
구축 절차
①기능 구현
타임 레코더
・출근시간 기록
・퇴근 시간 기록
・휴가 기능
・시급 계산 기능
・그래프 기능←이번 실장하지 않고
· 집계 기능
간이 가계부
・현금~그 외 계정까지의 입력(・수입・비용을 나누는)
· 총 자산 기록
· 취소 기능
・계좌 잔고 기능
・T계정과 그래프의 표시←이번 실장하지 않고
· 집계 기능
② 타임 레코더 구축
출근일에는 today() 함수를 이용하고 있습니다.出勤日
=today()
타임카드를 누르면
・출근・퇴근을 누르면 옆의 데이타베이스(Excel의 셀에 기입을 실시합니다)
UserForm1.vbaPrivate 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.vbaPrivate 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.vbaPrivate 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.vbaPrivate 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로 움직이도록(듯이) 클론해 갈 예정입니다. 뭔가 개선점이나 어드바이스, 등등 있으면 코멘트로 부탁합니다.
그럼 감사합니다.
이 코드, 시스템을 사용한 오류 등의 책임은 자기 책임으로 부탁드립니다
이 시스템을 만드는 데 도움이되는 사이트 등 여러분에게 감사드립니다.
Reference
이 문제에 관하여(・타임 레코더 ・간이 가계부의 구축을 실시한다), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/hawksharo07/items/8cdb507f09af7b10425c
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
타임 레코더
・출근시간 기록
・퇴근 시간 기록
・휴가 기능
・시급 계산 기능
・그래프 기능←이번 실장하지 않고
· 집계 기능
간이 가계부
・현금~그 외 계정까지의 입력(・수입・비용을 나누는)
· 총 자산 기록
· 취소 기능
・계좌 잔고 기능
・T계정과 그래프의 표시←이번 실장하지 않고
· 집계 기능
② 타임 레코더 구축
출근일에는 today() 함수를 이용하고 있습니다.出勤日
=today()
타임카드를 누르면
・출근・퇴근을 누르면 옆의 데이타베이스(Excel의 셀에 기입을 실시합니다)
UserForm1.vbaPrivate 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.vbaPrivate 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.vbaPrivate 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.vbaPrivate 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로 움직이도록(듯이) 클론해 갈 예정입니다. 뭔가 개선점이나 어드바이스, 등등 있으면 코멘트로 부탁합니다.
그럼 감사합니다.
이 코드, 시스템을 사용한 오류 등의 책임은 자기 책임으로 부탁드립니다
이 시스템을 만드는 데 도움이되는 사이트 등 여러분에게 감사드립니다.
Reference
이 문제에 관하여(・타임 레코더 ・간이 가계부의 구축을 실시한다), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/hawksharo07/items/8cdb507f09af7b10425c
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
=today()
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
=ADDRESS(MATCH(J5,A:A,0),MATCH(J4,2:2,0),1)
=VALUE(RIGHT(L34,2))
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
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로 움직이도록(듯이) 클론해 갈 예정입니다. 뭔가 개선점이나 어드바이스, 등등 있으면 코멘트로 부탁합니다.
그럼 감사합니다.
이 코드, 시스템을 사용한 오류 등의 책임은 자기 책임으로 부탁드립니다
이 시스템을 만드는 데 도움이되는 사이트 등 여러분에게 감사드립니다.
Reference
이 문제에 관하여(・타임 레코더 ・간이 가계부의 구축을 실시한다), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/hawksharo07/items/8cdb507f09af7b10425c텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)