Excel VBA質問箱 IV

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

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


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

28925 / 76732

←次へ　｜　前へ→


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

neptune - 07/12/14(金) 14:09 -


	引用なし

	パスワード

▼あみゅ吉さん：
みなさん、こんにちは

全体の概要がわからないので訳が解りません。
ササッと、こんな感じかなと言う、概要を書いてみました。
多分違うと思うので、できれば、あみゅ吉さん自身が、誰が読んでも
概要がわかり、再現できるソースを書いてみてください。
・・・下記の改造でもかまいませんよ。

新規Bookで実験
準備
・標準モジュールを１個、UserFormを２個追加
・UserForm1にコマンドボタンを２個追加
・UserForm2にコマンドボタンを１個追加
・以下をそれぞれコピペ
実行
・標準モジュールのsub main を実行
・UserForm1のUserForm2を表示をクリック
・UserForm2のテキストに日付を入力して、日付を入力したから閉じるをクリック
・UserForm1のシートに転記をクリック
'標準モジュール
Option Explicit

Public objsh As Worksheet

Sub main()
　　Set objsh = Worksheets("Sheet1")
　　UserForm1.Show vbModeless
End Sub

'Userform1
Option Explicit

Private Sub UserForm_Initialize()
　　Me.CommandButton1.Caption = "UserForm2を表示"
　　Me.CommandButton2.Caption = "シートに転記"
End Sub

Private Sub CommandButton1_Click()
　　UserForm2.Show vbModeless
End Sub

Private Sub CommandButton2_Click()
　　Call tenki
End Sub

Sub tenki()
　　objsh.Range("A1").Value = Me.Tag
End Sub

'UserForm2
Option Explicit

Private Sub UserForm_Initialize()
　　Me.CommandButton1.Caption = "日付を入力したから閉じる"
End Sub

Private Sub CommandButton1_Click()
　　UserForm1.Tag = Me.TextBox1.Text
　　Unload Me
End Sub

>>マクロ機能についてのやり方をお聞きするのは
>>マナー違反になるのでしょうか？
ですが、そんな事はありません。私の場合、そんな事は参考書の殆ど最初の
ページに書いているだろうがって思う程度です。感じ方は個人差がありますから。
それに基本的なことの説明って難しいんです。

ホントにいやであれば、私は書込みしません。それにあみゅ吉さんには
自助努力が感じられるし。

理由：質問と言うのは自助努力があってしかるべき、自助努力なし
の質問は質問ではないと思っています。ですから、参考書なり、Webサイト
なりで、自分なりにでも、少しは勉強する（している）のが当たり前と
思いますので。

#いらぬ茶々が入りましたなぁ。。。かみちゃんさん気にせずに。

2 hits

▼

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