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 質問[未読]
【11956】Re:compileエラー りる 11/2/20(日) 11:52 発言[未読]
【11961】Re:compileエラー Usui/K 11/2/26(土) 21:32 質問[未読]
【11962】Re:compileエラー 11/2/28(月) 10:33 回答[未読]

1338 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078193
(SS)C-BOARD v3.8 is Free