Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10487 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21580】オーバーフロー pi 05/1/24(月) 16:14 質問[未読]
【21583】Re:オーバーフロー りすりす 05/1/24(月) 16:30 発言[未読]
【21584】Re:オーバーフロー pi 05/1/24(月) 17:14 お礼[未読]
【21580】オーバーフロー
質問  pi  - 05/1/24(月) 16:14 -
引用なし
パスワード
   フォームのテキストボックスに入力された数値をLong変数に代入するときに
"オーバーフローしました" と、出てくるんですが、
実際にテキストボックスには６桁しか入力されてないです。
なぜでしょうか？
【21583】Re:オーバーフロー
発言  りすりす  - 05/1/24(月) 16:30 -
引用なし
パスワード
   ▼pi さん：
>フォームのテキストボックスに入力された数値をLong変数に代入するときに
>"オーバーフローしました" と、出てくるんですが、
>実際にテキストボックスには６桁しか入力されてないです。
>なぜでしょうか？

Private Sub CommandButton1_Click()
　Dim i As Long
　TextBox1.Text = "123456"
　i = TextBox1.Text
　Cells(1, 1) = i
End Sub

としても普通に動きますので


最低限のソースと
お使いのExcelのバージョンを書かないとどうしようもないかと思います。


アップデート (更新プログラム)
http://office.microsoft.com/ja-jp/officeupdate/default.aspx
【21584】Re:オーバーフロー
お礼  pi  - 05/1/24(月) 17:14 -
引用なし
パスワード
   とても、申し訳ないのですが、
後でチェックし直したら、
Option Explicit
Dim a As Integer
Private Sub CommandButton1_Click()
a = a + 7
End Sub

というふうになってしまっていたことに気づいてしまいました。
本当に、申し訳ありません・・・
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10487 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free