Function TentoFifteen(src As Long)If WorksheetFunction.IsNumber(src) ThenDim dest As StringDim result As LongWhile Trueresult = src Mod 15dest = WorksheetFunction.Dec2Hex(result) + destsrc = src - resultsrc = src / 15If src = 0 ThenTentoFifteen = destReturnEnd IfWendElseTentoFifteen = ""End IfEnd Function
2 回答
慕的地8271018
TA貢獻1796條經驗 獲得超4個贊
暈，這是你自己寫的嗎？怎么用While、Return、Wend這些偏冷門的東東啊，最讓人不可理解的是，While True，這不是死循環了嗎，While后面跟著的應該是個判斷語句，True時循環，False時退出循環。
GoSub...Return 語句
在一個過程中跳到另一個子程序中執行，執行后再返回。
語法
GoSub line
...
line
...
Return
必要的 line 參數可以是任何行標簽或行號。
說明
可以在過程中的任何地方使用 GoSub 和 Return，但是 GoSub 和與之相應的 Return 語句必須放在同一個過程中。一個子程序中可以包含一個以上的 Return 語句，但是當碰到第一個 Return 語句時，程序就會返回到緊接在剛剛執行的 GoSub 語句之后的語句繼續執行。
注意 不能使用 GoSub...Return 來進入或退出 Sub 過程。
提示 創建分開的過程，并使用 GoSub...Return 來調用，可以使程序更具結構化。
GoSub...Return 語句示例
本示例使用 GoSub 來調用子過程里的一段子程序。Return 語句則將執行返回到 GoSub 的下一個語句。Exit Sub 語句則是用來避免控制意外進入該子程序的情形發生。
Sub GosubDemo()
Dim Num
' 請求用戶輸入一個數字。
Num = InputBox("Enter a positive number to be divided by 2.")
' 如果用戶輸入一個正整型，則使用子程序。
If Num > 0 Then GoSub MyRoutine
Debug.Print Num
Exit Sub ' 使用 Exit 命令來避免錯誤發生。
MyRoutine:
Num = Num/2 ' 將數除以 2。
Return ' 將控制返回 GoSub 之后的語句。
End Sub
素胚勾勒不出你
TA貢獻1827條經驗 獲得超9個贊
Public Function TentoFifteen(src As Long) As String
Application.Volatile
If Not (IsNumeric(src)) Then TentoFifteen = "#src": Exit Function
Dim dest As String, result As Long
Do While True
result = src Mod 15
src = (src - result) / 15
dest = IIf(result < 10, result, Chr(64 + result)) & dest
If src = 0 Then TentoFifteen = dest: Exit Do
Loop
End Function
------------
你的程序中，可能的錯誤：
1、Return 是C語言里面的吧？VB里面有 GoSub...Return 語句 ，不是你的用法
2、Dec2Hex（）函數是工程函數，需要加載 分析工具庫 ，也就是說，是別人做的工程函數，盡量不要使用
3、dest = WorksheetFunction.Dec2Hex(result) + dest
當前面的數值計算出來是 數字，而不是字母時，會計算出和值，最好使用 & 連字符
4、IsNumber(src) 判斷是否數字，VBA中有自己的函數 IsNumeric(src)
- 2 回答
- 0 關注
- 119 瀏覽
添加回答
舉報
0/150
提交
取消