こんにちはすべてExcelでVBAを使用するのは初めてで、数値を調べて6桁の数値として返す関数を作成しようとしていました。
これを実現するために作成した関数は次のとおりですが、セルでコマンド= Res(A1)を使用すると、#VALUEが表示されます。答えとして。
現時点でのセル1の値は30508です。
これを解決するために誰かが提供できるどんな助けでも大いにありがたいです。みんなありがとう。
Function Res(myval As Integer) As Integer
Res = 0
If ((myval > 0) And (myval < 10)) Then
Res = myval * 100000
ElseIf ((myval > 9) And (myval < 100)) Then
Res = myval * 10000
ElseIf ((myval > 99) And (myval < 1000)) Then
Res = myval * 1000
ElseIf ((myval > 999) And (myval < 10000)) Then
Res = myval * 100
ElseIf ((myval > 9999) And (myval < 100000)) Then
Res = myval * 10
ElseIf ((myval > 999999) And (myval < 10000000)) Then
Res = myval / 10
Else
Res = myval
End If
End Function