Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12177 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11811】セル入力のVBAについて ピョン太 04/3/16(火) 18:55 質問
【11812】Re:セル入力のVBAについて IROC 04/3/16(火) 20:06 回答
【11816】Re:セル入力のVBAについて [名前なし] 04/3/16(火) 23:19 回答
【11817】Re:セル入力のVBAについて IROC 04/3/16(火) 23:35 回答
【11832】Re:セル入力のVBAについて ピョン太 04/3/17(水) 11:25 お礼
【11885】Re:セル入力のVBAについて IROC 04/3/18(木) 11:55 回答
【11935】Re:セル入力のVBAについて ピョン太 04/3/18(木) 21:38 お礼
【11811】セル入力のVBAについて
質問  ピョン太  - 04/3/16(火) 18:55 -
引用なし
パスワード
   はじめまして
初心者ですがお尋ねします。

一つのセルに値を入力するVBAの方法なのですが

　18時30分~19時20分　: 10分待ち

　数字入力後Enter次の数字入力後Enter…

　ちなみにロータス123ではこのようなマクロになるのですが？
　{goto}A1~　　　　　　　　　　　　　　　　
　{?}時{?}分{〜}{?}時{?}分　: {?}分待ち~　　　　　　　　　　　　　　　　

なんてことはどのようにすれば実現出来ますか？
宜しくお願い致します。
【11812】Re:セル入力のVBAについて
回答  IROC  - 04/3/16(火) 20:06 -
引用なし
パスワード
   どこがマクロで自動処理する部分なのでしょうか？

ユーザーの操作と、マクロの処理を明確にお願いいたします。
【11816】Re:セル入力のVBAについて
回答  [名前なし]  - 04/3/16(火) 23:19 -
引用なし
パスワード
   ▼IROC さん：
返信ありがとうございます。
初心者なもので下手な説明で申し訳ございません。

　ボタン機能でマクロが働き、？部分に数字を入力後、指定したセルにその結果が
　反映されるマクロなんですが
　　　　
　　　例　　　ボタンを押す（マクロ起動）

　　　　　　　？部分に数字を順に入力　（数字入力Enter→数字入力Enter→）

　　　　　　　？時？分~？時？分　：？分待ち（マクロ）
　　　　　　　18　30　 19　20　　 10　

　　　　　　　18時30分~19時20分　: 10分待ち　（指定したセルに処理結果）
　　　　　　　　　　　　　　
　宜しくお願い致します。
【11817】Re:セル入力のVBAについて
回答  IROC  - 04/3/16(火) 23:35 -
引用なし
パスワード
   すみません。また質問です。

どこに入力するようにすればよいのでしょうか？

Inputbox？
セル？
ユーザーフォーム？
シート上のTextbox？

これらのいずれかに５回に分けて
数値を入力できればよいのでしょうか？
【11832】Re:セル入力のVBAについて
お礼  ピョン太  - 04/3/17(水) 11:25 -
引用なし
パスワード
   ▼IROC さん：
どうもお手数おかけしております。

表の中の一つのセルに？部分の数値を入力した処理結果がでるのであれば
方法にはこだわりません。


ちなみに
　私は　値セット_文字型_　の応用でできるかな？と思っていたんですが？
　Inputbox、ユーザーフォーム、シート上のTextboxは使用したことがあ
　りません。
【11885】Re:セル入力のVBAについて
回答  IROC  - 04/3/18(木) 11:55 -
引用なし
パスワード
   Inputboxで作ってみました。

Sub Sample()
Dim myStr1 As String, myStr2 As String, myStr3 As String, _
myStr4 As String, myStr5 As String

myStr1 = Application.InputBox("？時？分~？時？分　：？分待ち", "１回目の入力", Type:=2)
myStr2 = Application.InputBox("？時？分~？時？分　：？分待ち", "２回目の入力", Type:=2)
myStr3 = Application.InputBox("？時？分~？時？分　：？分待ち", "３回目の入力", Type:=2)
myStr4 = Application.InputBox("？時？分~？時？分　：？分待ち", "４回目の入力", Type:=2)
myStr5 = Application.InputBox("？時？分~？時？分　：？分待ち", "５回目の入力", Type:=2)

　Range("A1").Value = myStr1 & "時" & myStr2 & "分~"　_
　& myStr3 & "時" & myStr4 & "分　：" & myStr5 & "分待ち"

End Sub
【11935】Re:セル入力のVBAについて
お礼  ピョン太  - 04/3/18(木) 21:38 -
引用なし
パスワード
   ▼IROC さん：
なるほど…！感動しました。
これを機会にスキルをあげて頑張りたいと思います。
何度もお手数をおかげしました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12177 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free