Private Sub CommandButton1_Click()
Dim m As Long, n As Integer
Cells(7, 6) = ""
n = Cells(6, 3)
m = Cells(7, 3)
f n, m
End Sub
Sub f(n As Integer, m As Long)
Dim a As Long
Dim i As Long, j As Long, h(100000000) As Byte, w As Long
w = m
a = 0
Do While w > 0
w = Int(w / 10)
a = a + 1
Loop
For i = 0 To a - 1
w = 1
For j = 0 To i
w = w * 10
Next
h(a - i - 1) = Int((m Mod w) / (w / 10))
If h(a - i - 1) > n - 1 Then
Cells(7, 6) = "ｎ進数の入力が禁則に反しています。各位の数字はｎ－１以下でなければなりません。正しく入力しましょう。"
Exit Sub
End If
Next
w = h(0)
For i = 1 To a - 1
w = n * w + h(i)
Next
Cells(8, 3) = w
End Sub
Private Sub CommandButton2_Click()
Range("c6:c8").Select
Selection.ClearContents
Cells(7, 6) = ""
Range("A1").Select
End Sub
実行画面例
