５倍速！メールマガジン
このメールマガジンの詳細はこちら
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
投稿一覧へ新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
nobashiさんの投稿
(投稿ID: 4827) 添付ファイルのダウンロード権限がありません
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を入力して、余り計算をエラーを出さずに行うにはどうすればよいかを教えてください。
（因みに、中級まで受講完了しておりますが、実務で対応している時に、かかる問題が生じましたので、算術演算子のところで質問させていただきました。）
よろしくお願いします。
nobashiさんのコメント
(コメントID: 6767)
ＭＯＤで余りを出す場合は、型の前提がlonｇしかできないようでした、別の方で余りも計算する方法がわかりましたので、ご回答は結構です。お騒がせしました。
また、よろしくお願いします。
小川 慶一さんのコメント
(コメントID: 6768)
こんにちは。
解決されたようですので、コメントは簡単に。。
今日では、 LongLong 型という型があります。
64bitマシンの登場に合わせてでてきたものかと。
これに値を入れてからだと動作します。
nobashiさんのコメント
(コメントID: 6773)
ご丁寧にご回答していただきありがとうございました。
Long Long型があるとは全く知りませんでした。参考にさせていただきます。
> nobashiさん:
>
> こんにちは。
>
> 解決されたようですので、コメントは簡単に。。
>
> 今日では、 LongLong 型という型があります。
>
> 64bitマシンの登場に合わせてでてきたものかと。
> これに値を入れてからだと動作します。
>
>
>
小川 慶一さんのコメント
(コメントID: 6777)
こんばんは。
> Long Long型があるとは全く知りませんでした。参考にさせていただきます。
正直なところ、この桁数のことは、事務仕事では、必要に迫られることがあまりないので気にならないというもあり、その存在を知ったのは僕自身も最近です。
ひきつづき、よろしくお願いいたします。