レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルマクロ・VBA基礎編

基礎講座第１章５ - 算術演算子

nobashiさんの投稿

(投稿ID: 4827) 添付ファイルのダウンロード権限がありません

セルＡ１に3,000,000,000を入力。これを10,000,000で割って、余りをだして、セルＢ１に余りを表示させようとします。
Sub test1()
Range("b1").Value = Range("a1").Value Mod 1000000
End Sub
この場合、オーバーフローのエラーがでます。
これを、Ａ１に2,147,483,647を入れるとエラーがでません。これは、変数利用の場合の長整数型のＬＯＮＧで扱える範囲と関係していることは理解できました。
セルＡ１に3,000,000,000を入力して、エラーがでないようにするには、１０進数型に変更すればよいのではないかと思い、下記のように変更してためしましたが、やはりオーバーフローのエラーがでます。
Dim d As Variant
Dim amari As Variant
d = CDec(Range("a1").Value)　　　　　'10進数に変換
amari = d Mod 10000000
Range("b1").Value = amari
◎セルＡ１に3,000,000,000を入力して、余り計算をエラーを出さずに行うにはどうすればよいかを教えてください。
（因みに、中級まで受講完了しておりますが、実務で対応している時に、かかる問題が生じましたので、算術演算子のところで質問させていただきました。）
よろしくお願いします。

2020/08/22 22:54

nobashiさんのコメント

(コメントID: 6767)

先ほど質問した件ですが、ネットで調べて解決できました。
ＭＯＤで余りを出す場合は、型の前提がlonｇしかできないようでした、別の方で余りも計算する方法がわかりましたので、ご回答は結構です。お騒がせしました。
また、よろしくお願いします。

2020/08/23 00:49

小川慶一さんのコメント

(コメントID: 6768)

nobashiさん:

こんにちは。

解決されたようですので、コメントは簡単に。。

今日では、 LongLong 型という型があります。

64bitマシンの登場に合わせてでてきたものかと。
これに値を入れてからだと動作します。

Sub test2()
    Dim moto As LongLong
    moto = Range("A1").Value
    Range("b1").Value = moto Mod 1000000
End Sub

2020/08/23 21:31

nobashiさんのコメント

(コメントID: 6773)

小川慶一さん:
ご丁寧にご回答していただきありがとうございました。
Long Long型があるとは全く知りませんでした。参考にさせていただきます。

> nobashiさん:
>
> こんにちは。
>
> 解決されたようですので、コメントは簡単に。。
>
> 今日では、 LongLong 型という型があります。
>
> 64bitマシンの登場に合わせてでてきたものかと。
> これに値を入れてからだと動作します。
>
>

Sub test2()
>     Dim moto As LongLong
>     moto = Range("A1").Value
>     Range("b1").Value = moto Mod 1000000
> End Sub

2020/08/24 05:00

小川慶一さんのコメント

(コメントID: 6777)

nobashiさん:

こんばんは。

> Long Long型があるとは全く知りませんでした。参考にさせていただきます。

正直なところ、この桁数のことは、事務仕事では、必要に迫られることがあまりないので気にならないというもあり、その存在を知ったのは僕自身も最近です。

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

2020/08/25 04:29