1164회 로또 당첨결과 1등 13명 – ChatGPT를 이용한 로또645 당첨 횟수 보기

by


1164회 로또 당첨결과 1등 13명 – ChatGPT를 이용한 로또645 당첨 횟수 보기 2025년 3월 22일 추첨한 1164회차에서 1등 13명 약 21억원씩 당첨 되었습니다. 1164회 로또 당첨결과 ChatGPT로 쉽게 엑셀 매크로를 만들 수 있습니다. 가장 많이 당첨된 숫자는 5회차, 10회차, 20회차에서 학인하여 보셔요.

1164회 로또 당첨결과 (2025년 3월 22일 추첨)

이번 1164회 로또 추첨 결과는 다음과 같습니다.

당첨번호

17, 18, 23, 25, 38, 39
보너스 번호: 22

1164회 로또 당첨결과
1164회 로또 당첨결과 (25. 3.22 추첨)

1등 당첨 판매점 입니다

1 도곡 행운로또방 자동 서울 강남구 도곡로4길 11 102호
2 그린슈퍼 반자동 서울 동대문구 왕산로 138
3 비에이치(BH)복권 자동 부산 남구 석포로 95
4 대영당안경원 수동 부산 동래구 충렬대로237번길 9
5 프로토베팅샵 자동 부산 중구 국제시장2길 5 4호
6 제일복권 수동 인천 서구 율도로 45
7 알리바이 자동 광주 광산구 수등로 253 1층 알리바이
8 행복한사람들 (흥부네) 자동 경기 광주시 경충대로 763
9 종합복권슈퍼 자동 경기 시흥시 마유로 336 정일빌딩104
10 복권판매점(행복드림) 자동 경기 양평군 강남로 1016 나동 4호
11 황금복권방 자동 강원 원주시 봉화로 74 삼익아파트 상가 105호
12 베스트올수성점 자동 전북 정읍시 수성2로 28
13 경이네복권마트 자동 경북 포항시 북구 장량중앙로 81 431동117호,삼구트리니엔4차상가

ChatGPT에서 작성한 당첨 횟수 엑셀 매크로입니다.

1164회 로또 당첨결과(25. 3.22 추첨)
1164회 로또 당첨결과(25. 3.22 추첨)

Sub CountWinningNumbers()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' Sheet1에 기록

Dim i As Integer, j As Integer
Dim lastRow As Long
Dim counts(1 To 45) As Integer
Dim counts10(1 To 45) As Integer
Dim counts20(1 To 45) As Integer
Dim counts5(1 To 45) As Integer

' 당첨번호가 있는 열 (D~H열)
Dim numberCols As Variant
numberCols = Array(4, 5, 6, 7, 8, 9) ' D~H열

' 데이터가 어디까지 있는지 확인 (회차 기준)
lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row

' 1~45 번호 입력 (M열)
ws.Cells(3, 13).Value = "번호"
ws.Cells(3, 14).Value = "5회중 횟수"
ws.Cells(3, 15).Value = "10회중 횟수"
ws.Cells(3, 16).Value = "20회중 횟수"

For i = 1 To 45
    ws.Cells(3 + i, 13).Value = i
    counts(i) = 0
    counts10(i) = 0
    counts20(i) = 0
    counts5(i) = 0
Next i

' 최근 20회까지 카운트
For i = 4 To 4 + 20 - 1 ' 최근 20회
    For j = LBound(numberCols) To UBound(numberCols)
        Dim num As Integer
        num = ws.Cells(i, numberCols(j)).Value
        If num >= 1 And num <= 45 Then
            counts20(num) = counts20(num) + 1
            If i <= 4 + 10 - 1 Then counts10(num) = counts10(num) + 1
            If i <= 4 + 5 - 1 Then counts5(num) = counts5(num) + 1
        End If
    Next j
Next i

' 결과 Sheet1에 출력 (M열부터)
For i = 1 To 45
    ws.Cells(3 + i, 14).Value = counts5(i)   ' N열 = 5회
    ws.Cells(3 + i, 15).Value = counts10(i)  ' O열 = 10회
    ws.Cells(3 + i, 16).Value = counts20(i)  ' P열 = 20회
Next i

MsgBox "Sheet1에 카운트가 기록되었습니다!"

End Sub

당첨 번호를 보기 편하게 눈으로 골라 보셔요

1164회 로또 당첨번호(25. 3.22 추첨)
1164회 로또 당첨번호(25. 3.22 추첨)

ChatGPT에서 작성한 당첨 숫자 색칠하는 엑셀 매크로입니다.

Sub Highlight_With_Bonus_Matching_All()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

Dim lastRow As Long
Dim r As Long, c As Long, rr As Long, cc As Long
Dim targetNum As Integer
Dim targetBonus As Integer

' 마지막 회차 행 찾기 (B열)
lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row

' 색상 초기화
ws.Range(ws.Cells(4, 4), ws.Cells(lastRow, 10)).Interior.ColorIndex = xlNone

' D4부터 J[lastRow]까지 순차적으로 진행
For r = 4 To lastRow - 1
    For c = 4 To 10 ' D~J
        targetNum = ws.Cells(r, c).Value
        targetBonus = ws.Cells(r, 10).Value ' J열 보너스

        If IsNumeric(targetNum) Then
            ' 아래 회차부터 마지막 회차까지 스캔
            For rr = r + 1 To lastRow
                For cc = 4 To 10
                    ' 보너스 번호 일치 시 연한 녹색
                    If ws.Cells(rr, cc).Value = targetBonus Then
                        ws.Cells(rr, cc).Interior.Color = RGB(180, 238, 180) ' 연한 녹색
                    ' 나머지는 기존 연회색
                    ElseIf ws.Cells(rr, cc).Value = targetNum Then
                        ws.Cells(rr, cc).Interior.Color = RGB(200, 200, 200) ' 연회색
                    End If
                Next cc
            Next rr
        End If
    Next c
Next r

MsgBox "보너스와 일반번호 각각 맞춤 색상으로 마킹 완료!"

End Sub

본 포스팅은 동행복권 홈페이지와 ChatGPT AI 검색 데이터를 바탕으로 작성되었습니다.

Leave a Comment