콤보박스 선택 연도의 월별 자료 구성 - Heeyoung-Ahn/Excel_VBA GitHub Wiki

DB에 월별 자료의 일자가 매월 말일로 기록되어 있는 경우

For i = 1 To 12
    refer_dt = DateAdd("d", -1, DateAdd("m", 1, DateValue(cbo1.Value & "-" & Format(i, "00") & "-01")))
    strSQL = "SELECT a.amt FROM account_report.financial_report_monthly_data a WHERE a.user_id = " & user_id & " AND a.refer_month = " & SText(refer_dt) & ";"
    connectTaskDB
    callDBtoRS "financial_report_refer", "account_report.financial_report_monthly_data", strSQL, Me.Name, "월간재정현황조회"
    If rs.EOF = True Then
        MsgBox "재정현황 월간 자료가 없습니다.", vbInformation, Banner
        Exit Sub
    End If
    .Range("R11").Offset(0, i).CopyFromRecordset rs
    disconnectALL
Next i