Ｐａｇｅ 746 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼オーバーフロー 小藤 03/2/14(金) 11:04 ┗Re:オーバーフロー Jaka 03/2/14(金) 11:19 ┗即答ありがとうございました 小藤 03/2/14(金) 11:27 ┗すみません。 Jaka 03/2/14(金) 11:58 ┗恐縮です 小藤 03/2/15(土) 15:22 ─────────────────────────────────────── ■題名 ： オーバーフロー ■名前 ： 小藤 ■日付 ： 03/2/14(金) 11:04 ■Ｗｅｂ ： http://www10.ocn.ne.jp/~asahi-h/ -------------------------------------------------------------------------
| Private Sub CommandButton1_Click() Range("B2").Value = CInt(TextBox1.Value)+ CInt(TextBox2.Value) End Sub CInt関数を使い、Integer型に変換しなくては計算ができないそうなのですが、 ±32,768以上の数字を扱うのでオーバーフローというエラーがでます。 1,000,000,000位の数値を計算するにはどうしたらよいのでしょうか、 もし、よろしければ教えていただきたいのですがよろしくお願いします。 |
| こんにちは。 Dim ss As Long ss = "2,147,483,647" '←最高値これを1でも超えるとエラーになります。 MsgBox CLng(ss) 詳しくは、ヘルプのデータ型変換関数で調べてね！ |
| ヘルプ機能の使い方も勉強になりました。 次回からはヘルプで調べてから質問させていただきます。 また、よろしくお願いします。ありがとうございました。 |
| Dim ss As Long ↑だと意味がありませんでした。 Dim ss As String |
| Private Sub CommandButton1_Click() Range("B2").Value = CInt(TextBox1.Value)+ CInt(TextBox2.Value) End Sub 上記、最初に私が作ったもののCIntをCLngに書きなおした所、オーバーフローもなく正常に動作するようになりました。 ありがとうございました。 |