マメコトさん:

> ファンクションプロシージャを上手に使いこなせれば、以前はグローバル変数として宣言していたものをかなり減らせるのではないかと思いました。
> 「どのような処理をどの順番で行うか」
> を考えることで、その共通的な処理をファンクション化出来ると思いました。

まさに、です。
グローバル変数が不要になるのは大きなメリットですね。
その分、使いまわしの効く部品になります。

受講生 さん:

こんにちは。
解決したようで良かったです (^^

LongLong型は、正直、僕も今回調べてはじめてその存在を知りました。
おそらく64bitマシンではLongLong型がInteger型、Long型より高速だろうなという気はします。が、整数を扱うデータ型がたくさんあっても戸惑いますし、整数については、エクセル作業であれば行番号すべてに対応できるものがあれば十分かなと思います。
僕ならDouble型を使いたいです。

ひきつづきよろしくお願いいたします。

kurosukeさん:

追記です。

2進数の b11000000101010000000000100000000 は、10進数に直すと 3,232,235,776 です。
一方、長整数型の取りうる最大値は 2,147,483,647 です。なのでオーバーフローになってしまうのは仕方ないですね。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/data-type-summary

Long型でも扱えない数値は、Double型に格納します。最近だとLongLong型等の型もあるようですので、これを使ってもOKです。
以下に、 double型、longlong型、long型で同じ処理を書いた場合のサンプルを示します。関数として切り出すところはご自身でやってください。

Sub check_overflow_limit()
    Dim strByte As String, nagasa As String, i As Long, s As String
    strByte = "11000000101010000000000100000000"
    nagasa = Len(strByte)
    
    '[1]
    Dim ret_double As Double 'どんな環境でもOK
    For i = 1 To Len(strByte)
        s = Mid(strByte, i, 1)
        If s = "1" Then
            ret_double = ret_double + 2 ^ (nagasa - i)
        End If
    Next
    Debug.Print ret_double
    
    '[2] 64ビット環境ではこの型を使える
    Dim ret_longlong As LongLong 'どんな環境でもOK
    For i = 1 To Len(strByte)
        s = Mid(strByte, i, 1)
        If s = "1" Then
            ret_longlong = ret_longlong + 2 ^ (nagasa - i)
        End If
    Next
    Debug.Print ret_longlong
    
    '[3] オーバーフローする
    Dim ret_long As Long
    For i = 1 To Len(strByte)
        s = Mid(strByte, i, 1)
        If s = "1" Then
            ret_long = ret_long + 2 ^ (nagasa - i)
        End If
    Next
    Debug.Print ret_long
End Sub

kurosukeさん:

おはようございます。

> オーバーフローの解消方法をご教授頂けないでしょうか

という以前に、いろいろ問題がありますので、この関数を呼び出すプロシージャを含めた全体を紹介していただけますか。

というのは、この関数は文字列を受け取るとしていますが、

> 引数Valueには「11000000101010000000000100000000」が渡される想定です。

ということなので、実際には長整数型の値を関数に渡そうとしているように見えるからです。

実際にやってみるとわかりますが、

たとえば、

Sub CallTheFunc()
    Dim mystr As String
    Dim fuga As Long
    fuga=11000000101010000000000100000000
End Sub

等と書こうとしても、以下のように表示されてしまいます。

Sub CallTheFunc()
    Dim mystr As String
    Dim fuga As Long
    fuga = 1.100000010101E+31
End Sub

あと、以下のように書いてCallTheFuncを実行しようとしても、実行時エラーがでて関数での処理まで進めないはずです。
(エラーメッセージはご自身でお確かめください)

Function Convert2to10(Value As String) As Long
    Dim Ret As Long
    Dim K As Long
    Dim X As Long
    For K = 1 To Len(Value)
        If Mid(Value, Len(Value) - K + 1, 1) = "1" Then
            X = 2 ^ (K - 1)
            Ret = Ret + X
        End If
    Next K
    Convert2to10 = Ret
End Function

Sub CallTheFunc()
    Dim fuga As Long
    fuga = 1.100000010101E+31
    Debug.Print Convert2to10(fuga)
End Sub

ということなので、「オーバーフローの解消方法をご教授頂けないでしょうか」という以前のこととして、いろいろあますので。
よろしく、お願いいたします。

古口梨絵 さん:

本質的なところに立ち返ってコメントすると、どの単位で仕事を分割したいか、次第です。

>小川先生
>> このデモではとりあえず3行目から10行目にしてみたまでのことで、あんまり意味はないです。
>
>了解です。
>
>今回の演習だと、Functionプロシージャは抽象化されるけど、Subプロシージャは同じようなコードの繰り返しなので、抽象化されているようないないような・・・と動画を見た直後は思いましたが、
>例えば、For Next構文のfmとtoが異なるような繰り返しでは効果絶大なのでは！？ということに気づきました。
>業務の中で早く使ってみたいです！

古口梨絵 さん:

このデモではとりあえず3行目から10行目にしてみたまでのことで、あんまり意味はないです。