Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8566 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【32531】インプットボックスの値をセルに表示するには sky7frame 05/12/16(金) 21:22 質問[未読]
【32532】Re:インプットボックスの値をセルに表示す... ponpon 05/12/16(金) 21:44 発言[未読]
【32533】Re:インプットボックスの値をセルに表示す... sky7frame 05/12/16(金) 21:59 質問[未読]
【32534】Re:インプットボックスの値をセルに表示す... ponpon 05/12/16(金) 22:12 発言[未読]
【32538】Re:インプットボックスの値をセルに表示す... sky7frame 05/12/16(金) 22:54 お礼[未読]
【32537】Re:インプットボックスの値をセルに表示す... Kein 05/12/16(金) 22:48 回答[未読]
【32539】Re:インプットボックスの値をセルに表示す... sky7frame 05/12/16(金) 23:01 お礼[未読]
【32531】インプットボックスの値をセルに表示する...
質問  sky7frame  - 05/12/16(金) 21:22 -
引用なし
パスワード
   今回も教えていただきたくお願い致します。
インプットボックスに入力した値を指定したセルに表示するには
どうしたらいいでしょうか？

EX)
sheet1でインプットボックスに「１００００」を入力した値が
sheet2のセル"A5"に表示させたいのです。

宜しくお願い致します。
【32532】Re:インプットボックスの値をセルに表示...
発言  ponpon  - 05/12/16(金) 21:44 -
引用なし
パスワード
   こんばんは。
sheet1のフォームのボタンに登録すればいかがでしょう。

Sub test()
　　Dim myText As String
　　myText = InputBox("数値を入力してください", "数値入力")
　　
　　If myText <> "" Then
　　　Worksheets("Sheet2").Range("A5").Value = CLng(myText)
　　End If
End Sub
【32533】Re:インプットボックスの値をセルに表示...
質問  sky7frame  - 05/12/16(金) 21:59 -
引用なし
パスワード
   ponponさんお答えありがとうございます。

まさにこの通りです！！
教えていただいた下記の"CLng"はどのような意味なのでしょうか？
もしよろしければご解答宜しくお願い致します。
>　　　Worksheets("Sheet2").Range("A5").Value = CLng(myText)
>　　End If
>End Sub
【32534】Re:インプットボックスの値をセルに表示...
発言  ponpon  - 05/12/16(金) 22:12 -
引用なし
パスワード
   こんばんは。

>CLng(myText)

型変換関数だったかな・・・？

この場合、インプットボックスの戻り値はString型だから、

それををLong型に直す関数だと思います。

詳しくはヘルプを参照してください。

Val関数ではうまくいきませんでした。
【32537】Re:インプットボックスの値をセルに表示...
回答  Kein  - 05/12/16(金) 22:48 -
引用なし
パスワード
   数値に限定して入力する場合は、InputBoxメソッドを使います。こんな感じです。

Dim MyVal As Long

MyVal = Application.InputBox("整数値を入力して下さい", Type:=1)
If MyVal = False Then Exit Sub
Sheets("Sheet2").Range("A5").Value = MyVal
【32538】Re:インプットボックスの値をセルに表示...
お礼  sky7frame  - 05/12/16(金) 22:54 -
引用なし
パスワード
   ▼ponpon さん：
ご返答ありがとうございました。
勉強になりました。また宜しくお願い致します。
【32539】Re:インプットボックスの値をセルに表示...
お礼  sky7frame  - 05/12/16(金) 23:01 -
引用なし
パスワード
   ▼Kein さん：
keinさんご返答ありがとうございます。
教えてもらったプログラムでも実行できました。
ありがとうございます。
また宜しくお願いしますね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8566 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free