ExcelVBA マクロの数値を２ケタに変更したい

質問

http://www.exvba.com/blog/?p=3974
こちらの百ます計算のシートをダウンロードし活用させて頂こうと思っていますが、２ケタのものが作れるかを試してみたいと思っています。例えば26+57とか、81-32とかです。掛け算だけは、２ケタ×１ケタにしたいです。

当方プログラムが初心者でスキル不足のため、VBAがよく分かりません。以下がスクリプトのようですが、色々数値を変えてみましたがダメでした。

<--ここから-->

Option Explicit
'100マス計算ジェネレータ by 達人養成塾 http://www.exvba.com/
Sub main()
Dim calc As Long
With Application
calc = .Calculation
.Calculation = xlCalculationManual

InputBase Range("B5"), "＋", False
InputBase Range("B18"), "－", True
InputBase Range("B31"), "×", False

.Calculation = calc
' .Calculation = xlAutomatic
End With
End Sub
Sub InputBase(bs As Range, op As String, bType As Boolean)
With bs
If Not IsEmpty(bs) Then
.CurrentRegion.ClearContents
End If
If Not IsEmpty(.Offset(, 12)) Then
.Offset(, 12).CurrentRegion.ClearContents
End If
SetLine bs, op, True, False
SetLine bs, op, False, bType
.CurrentRegion.Copy Destination:=.Offset(, 12)
ExeCalc bs, op
End With
End Sub
Private Sub SetLine(base As Range, ope As String, bRow As Boolean, add10 As Boolean) '起点セル、演算子、行か列か、値に10を足すか
Dim c As Long, ar(9) As Long
With base
.Value = ope

Application.Calculate
With Worksheets("rnd")
.Range("A2:B12").Sort key1:=.Range("B2"), order1:=xlAscending, Header:=xlYes
For c = 3 To 12
ar(c - 3) = .Range("A" & c).Value
Next
End With

If bRow Then
For c = 1 To 10
.Offset(c).Value = ar(c - 1)
Next
ElseIf Not add10 Then
For c = 1 To 10
.Offset(, c).Value = ar(c - 1)
Next
Else
For c = 1 To 10
.Offset(, c).Value = ar(c - 1) + 10
Next
End If
End With
End Sub
Private Sub ExeCalc(base As Range, ope As String)
Dim r As Long, c As Long
With base.Offset(, 12)
Select Case ope
Case "＋"
For r = 1 To 10
For c = 1 To 10
.Offset(r, c).Value = .Offset(r).Value + .Offset(, c).Value
Next
Next
Case "－"
For r = 1 To 10
For c = 1 To 10
.Offset(r, c).Value = .Offset(, c).Value - .Offset(r).Value
Next
Next
Case Else
For r = 1 To 10
For c = 1 To 10
.Offset(r, c).Value = .Offset(r).Value * .Offset(, c).Value
Next
Next
End Select
End With
End Sub

<--ここまで-->

こちら他者様の著作物になりますので、もしこうした質問が不適切でしたら削除させて頂きます。
もしよろしければアドバイスを頂けましたら幸いに思います。

回答No.1

watabe007 · ベストアンサー

２ケタの足し算を作ってみました。参考に
Sub Test()
　　Dim i As Long, myNum As Long, c As Range

　　With Range("B5")
　　　　.Resize(11, 23).ClearContents
　　　　.Value = "＋"
　　　　.Offset(, 12).Value = "＋"
　　　　Randomize
　　　　For i = 1 To 10
　　　　　　myNum = Int(Rnd * 90) + 10 '10～99の数値を作成
　　　　　　.Offset(, i).Value = myNum
　　　　　　.Offset(, i + 12).Value = myNum
　　　　　　myNum = Int(Rnd * 90) + 10
　　　　　　.Offset(i).Value = myNum
　　　　　　.Offset(i, 12).Value = myNum
　　　　Next
　　End With
　　For Each c In Range("O6:X15")
　　　　c.Value = Cells(c.Row, "N").Value + Cells(5, c.Column).Value
　　Next
End Sub