상단에 고정된 위치에서 날짜와 수치를 입력하였을 때, 아래 표에 자동으로 저장되는 방법이 있을까요?

Question

안녕하세요. 유튜브에서만 보면서, 기초를 다지고 있는 초보자 입니다. 필요한걸 찾다가, 순차적으로 배워간게 아니다 보니, 용어가 많이 어려운것 같습니다. 잘 배워서, 다른분들께도 도움이 될 수 있도록 노력하겠습니다.

질문은 제목과 같습니다.

엑셀 시트에서, 날짜별로 이루어진 표와 동일한 형태가 상단에 고정된 형태가 있을 때, 날짜와 함께, 행에 쓰여진 곳에 정수를 입력할 경우, 아래의 표에서 동일한 날짜에 자동입력할 수 있는 방법이 있는지 궁금합니다. 형태가 일부 달라져도 상관없으며, 위에 입력한 내용이 표의 날짜에 자동입력만 가능하면 됩니다. 오빠두 영상중 가계부에서 마지막으로 이동하는 것으로 버튼 누르면 마지막 입력하는 것으로도 만들어보고, 해봤으나, 이용을 어려워 하시더라구요.

50대 후반이신 분들이 오셔서 스스로 적어주셔야 하는데, 1년짜리를 입력하셔야 하다보니, 날짜 위치로 가서 찾는것도 어려워 하시고, 틀 고정을 한다 하여도, 너무 불편해하시는 부분이 있다보니, 입력을 잘 안하시려 하더라구요. 근대 저도, 초보라 영상보면서 열심히 배우고 있는데, 기초가 약하다보니, 검색에도 한계가 있고, 하여, 죄송하지만 요청하게 되었습니다. 개인정보로 인하여, 과일이름으로 변경하여 올렸으며, 올려드린 자료는 1달분량이지만, 365일치 자료를 저장할 계획입니다.

한두분이면, 제가 직접 입력하면 되는데, 제가 이동하며, 지원하는 업무다보니, 누락되는 부분에 신경쓰기가 많이 어렵네요. 고수분들께 잘 부탁드립니다.

라온보리 · Answer

B3:C3 셀에 둘 다 값이 있고, 둘 중 하나라도 내용이 바뀌면, B3 셀 날짜에 해당하는 열에 C3:G3 값 복_붙
* 데이터들이 누적되어야 해서 vba매크로'로 작성합니다.
* 시트 모듈

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngCn As Range, rngFd As Range
    Dim xDate As Double, xDate2 As String

        If Intersect(Target, Me.Range("B3:C3")) Is Nothing Then Exit Sub
    
        If Len(Me.Range("B3").Value) = 0 Or Len(Me.Range("C3").Value) = 0 Then Exit Sub
    
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        On Error GoTo EH
    
        Set rngCn = Me.Range("B7:B37")
    
        If IsDate(Me.Range("B3").Value) Then
            xDate = CDbl(CDate(Me.Range("B3").Value))
            Set rngFd = rngCn.Find(What:=xDate, LookIn:=xlFormulas, LookAt:=xlWhole)
        End If
    
        If rngFd Is Nothing Then
            xDate2 = Format(Me.Range("B3").Value, "mm""월"" dd""일""")
            Set rngFd = rngCn.Find(What:=xDate2, LookIn:=xlValues, LookAt:=xlWhole)
        End If
    
        If Not rngFd Is Nothing Then
            Me.Range("C" & rngFd.Row & ":G" & rngFd.Row).Value = Me.Range("C3:G3").Value
        End If
    
EH:
        Application.EnableEvents = True
    
End Sub