マクロ：「ヒットアンドボール」

↓次の行からね。

Option Explicit
Option Base 1
Public Pubrange As Range
Public Pubflag As Boolean
Dim Number As Integer
Dim Num(4) As Integer
Dim InNumber As Variant
Dim InNum(4) As Integer
Dim Hit As Integer
Dim Ball As Integer
Dim i As Integer
Dim Kaime As Integer
Dim MyRange As Range
Dim Inpt As Variant
Dim Flag1 As Boolean
Dim Res As Integer
Sub ヒットアンドボール()
Kotaekime '''''
Cells.Clear
Set MyRange = ActiveCell
MyRange.Offset(0, 0).Value = ""
MyRange.Offset(0, 1).Value = "入力数字"
MyRange.Offset(0, 2).Value = "ヒット"
MyRange.Offset(0, 3).Value = "ボール"
With Range(MyRange, MyRange.Offset(0, 3))
.Interior.ColorIndex = 35
.HorizontalAlignment = xlCenter
Dim Flg99 As Boolean
For i = 7 To 12
Flg99 = True
If .Rows.Count = 1 And i = 12 Then Flg99 = False
If .Columns.Count = 1 And i = 11 Then Flg99 = False
If Flg99 Then
With .Borders(i)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next i
End With
For Kaime = 1 To 10
'一行分の書式設定
With Range(MyRange.Offset(Kaime, 0), MyRange.Offset(Kaime, 3))
.HorizontalAlignment = xlCenter
For i = 7 To 12 '罫線上下左右縦横fornext
Flg99 = True
If .Rows.Count = 1 And i = 12 Then Flg99 = False
If .Columns.Count = 1 And i = 11 Then Flg99 = False
If Flg99 Then
With .Borders(i)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next i
End With
MyRange.Offset(Kaime, 0).Value = Kaime
Flag1 = False
Do Until Flag1
InNumber = InputBox(prompt:="数字を入力")
If InNumber = "" Then
Res = MsgBox(prompt:="やめますか?", Buttons:=vbYesNo)
If Res = vbYes Then Exit Sub
End If
HBhantei '''''
Loop
MyRange.Offset(Kaime, 1).Value = InNumber
MyRange.Offset(Kaime, 2).Value = Hit
MyRange.Offset(Kaime, 3).Value = Ball
If Hit = 4 Then
MyRange.Offset(Kaime + 1, 1).Value = "当たり!"
Exit Sub
End If
Next Kaime
MyRange.Offset(Kaime, 1).Value = Number
MyRange.Offset(Kaime, 2).Value = "残念!"
End Sub
Sub Kotaekime()
Dim Flag As Boolean
Randomize
Do Until Flag
Number = Int(Rnd * 10000) '0000 to 9999
Num(1) = Int((Number Mod 10000) / 1000)
Num(2) = Int((Number Mod 1000) / 100)
Num(3) = Int((Number Mod 100) / 10)
Num(4) = Int((Number Mod 10) / 1)
If _
Num(1) <> Num(2) And _
Num(1) <> Num(3) And _
Num(1) <> Num(4) And _
Num(2) <> Num(3) And _
Num(2) <> Num(4) And _
Num(3) <> Num(4) _
And Num(1) <> 0 And Num(2) <> 0 And Num(3) <> 0 And Num(4) <> 0 _
Then Flag = True
Loop
End Sub
Sub HBhantei()
If Application.WorksheetFunction.IsNumber(InNumber) _
Or InNumber > 9999 Or InNumber < 0 _
Then
Res = MsgBox(Buttons:=2 ^ 20, _
prompt:="4ケタの整数")
Exit Sub
End If
'ダブりの禁止
InNum(1) = Int((InNumber Mod 10000) / 1000)
InNum(2) = Int((InNumber Mod 1000) / 100)
InNum(3) = Int((InNumber Mod 100) / 10)
InNum(4) = Int((InNumber Mod 10) / 1)
If _
InNum(1) <> InNum(2) And _
InNum(1) <> InNum(3) And _
InNum(1) <> InNum(4) And _
InNum(2) <> InNum(3) And _
InNum(2) <> InNum(4) And _
InNum(3) <> InNum(4) _
And InNum(1) <> 0 And InNum(2) <> 0 _
And InNum(3) <> 0 And InNum(4) <> 0 _
Then
Flag1 = True
'ヒット,ボール判定
Hit = 0
Ball = 0
For i = 1 To 4 'ヒット判定
If InNum(i) = Num(i) _
Then Hit = Hit + 1
Next i
For i = 1 To 4 'ボール判定
If _
InNum(i) = Num(((i + 1 - 1) Mod 4) + 1) Or _
InNum(i) = Num(((i + 2 - 1) Mod 4) + 1) Or _
InNum(i) = Num(((i + 3 - 1) Mod 4) + 1) _
Then Ball = Ball + 1
Next i
Else
Res = MsgBox(Buttons:=2 ^ 20, _
prompt:="ゼロや同じ数字を二度つかわないでください")
End If
End Sub

↑この上の行までね。