Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1338 / 9994

←次へ　｜　前へ→


	【11954】compileエラー

Usui/K - 11/2/19(土) 10:36 -


	引用なし

	パスワード

以下のコードを使って、進数変換を実行したいと思いますが、
デバッグをかけると、compileエラーが出ています。問題はどこにあるのか
わからりません。
アドバイスを求めて、投稿しました。
よろしくお願いいたします。

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
コードソースを使って
Function Conv_Number(ByVal Number As Long, ByVal N As Integer)
If N <= 1 Or N > 36 Then Exit Function
Const DigitChr As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim RESULT() As Variant
ReDim RESULT(0)
If Number <= 1 Then
RESULT(0) = Number
Else
Do While Number > 0
RESULT(UBound(RESULT)) = Mid$(DigitChr, (Number Mod N) + 1, 1)
Number = Number \ N
If Number > 0 Then ReDim Preserve RESULT(UBound(RESULT) + 1)
Loop
End If
Conv_Number = RESULT
Erase RESULT
End Function

306 hits

▼

【11954】compileエラー Usui/K 11/2/19(土) 10:36