Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28938 / 76738

←次へ　｜　前へ→


	【53090】Re:在庫管理できるシステムについて

かみちゃん

- 07/12/14(金) 9:25 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>>>>かみちゃんさんからのご指摘もそうですが、
>>>>>Sub 入力()
>>>>>　　日付入力.Show
>>>>>　　Sh1.Range("A2").Value = TextBox1.Value
>>>>>End Sub
>>>>ですが、どこに書いていますか？
>>>
>>>すみません、ふれてなかったですが
>>>上記コードはUserForm1のコードとして記載しています。
>>
>>もう一度確認させてください。
>>
>>Sub 入力()
>>　日付入力.Show
>>　Sh1.Range("A2").Value = TextBox1.Value
>>End Sub
>>
>>このコード本当に、UserForm1に記述しているのですか？
>>であれば、どのように実行させるのでしょうか？
>>なんとなく、標準モジュールに記述していて、
>>「日付入力」というフォームを開くコードに見えるのですが・・・
>>
>確認いたしましたが、UserForm１コードでした。
>UserForm１からコード表示させるとでできます。
>標準モジュールにはシート（）定義だけを記載していますので・・・

では、
Sub 入力()
の実行方法を教えてください。
UserForm1のモジュールに書いているならば、そのコードをどのように
実行しているのでしょうか？
CommandButtonをクリックしたときとか・・・
また、
Sh1.Range("A2").Value = TextBox1.Value
は、「日付入力」フォームが閉じられてからしか実行されないと思います
が、TextBox1.Value は、日付入力フォームのTextBox1なのですか？

>>また、
>>> 残念ながらできませんでした
>>というのは、どのようにできなかったのでしょうか？
>>　MsgBox TextBox1.Value
>>　Sh1.Range("A2").Value = TextBox1.Value
>>として、MsgBoxの表示内容を確認してみてください。
>>
>できなかったというのは
>フォームは出力され、日付を記入することはできても
>ワークシートには出力されないのです・・
>MsgBox TextBox1.Valueを追加してみましたが
>メッセージボックスが表示されませんでした。

どこのモジュールにどのように追加したのでしょうか？
MsgBoxは、必ず表示されるはずです。
内容が表示される場合とされない場合があるとは思いますが・・・

どうも状況がよく見えません。
たぶん、実際のファイルを見ると、パッとわかるのでしょうけど・・・

0 hits

▼

【53070】在庫管理できるシステムについて あみゅ吉 07/12/13(木) 20:09