Excel을 사용하여 복권 번호의 이중 숫자를 계산하는 방법입니다. (복수 : 전호와 같은 번호, 옆번호 : 전호와 인접한 번호)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

오류 발생 시 다음 재개

Dim endrow1 As Long, endrow2 As Long, i As Long, j As Long

endrow1 = [b65536].End(3).Row

endrow2 = [h65536].End(3).Row

For i = 2 To endrow2

For j = 2 To endrow1

If Cells(i, 8).Value amp; Cells(i, 9).Value Cells(i, 10).Value amp; 셀(i, 11).값 _

셀(i, 12).값 = 셀(j, 2).값 셀(j, 3).값 amp; (j, 4).값 _

& 셀(j, 5).값 & 셀(j, 6).값 그러면

셀(i, 13). "열림"

GoTo 줄

Else

Cells(i, 13).Value = "열리지 않음"

End If

다음

line:

다음

End Sub

매크로 코드를 사용하여 했습니다.

엑셀을 연 후. Alt F11을 누른 후 VBE를 엽니다. ctrl r을 눌러 프로젝트 탐색기를 엽니다. . 내역번호가 시트1에 있으면 관리자의 시트1을 더블클릭하고, 시트2에 있으면 관리자의 시트2를 더블클릭하세요. 위에 코드를 붙여넣고 끄시면 됩니다. . . 코드가 복사되었습니다. .

코드는 전적으로 테이블의 위치를 ​​기반으로 합니다. 코드의 내용을 변경할 필요가 없으며 직접 입력하면 됩니다.

귀하의 숫자는 다음에서 가져온 것입니다. 작은 것부터 큰 것까지. 하면서 그냥 번호를 적었습니다. . 가장 작은 것부터 가장 큰 것 순으로 정렬되지 않으며 영향을 미치지 않습니다.