Excel VBA質問箱 IV

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

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


28925 / 76732 ←次へ | 前へ→

【53097】Re:在庫管理できるシステムについて
発言  neptune  - 07/12/14(金) 14:09 -

引用なし
パスワード
   ▼あみゅ吉 さん:
みなさん、こんにちは

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

新規Bookで実験
準備
・標準モジュールを1個、UserFormを2個追加
・UserForm1にコマンドボタンを2個追加
・UserForm2にコマンドボタンを1個追加
・以下をそれぞれコピペ
実行
・標準モジュールの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 質問
【53071】Re:在庫管理できるシステムについて neptune 07/12/13(木) 20:59 発言
【53076】Re:在庫管理できるシステムについて あみゅ吉 07/12/13(木) 22:22 質問
【53077】Re:在庫管理できるシステムについて かみちゃん 07/12/13(木) 22:28 発言
【53078】Re:在庫管理できるシステムについて あみゅ吉 07/12/13(木) 22:36 質問
【53079】Re:在庫管理できるシステムについて neptune 07/12/13(木) 22:55 発言
【53082】Re:在庫管理できるシステムについて あみゅ吉 07/12/13(木) 23:12 質問
【53083】Re:在庫管理できるシステムについて かみちゃん 07/12/13(木) 23:33 発言
【53086】Re:在庫管理できるシステムについて あみゅ吉 07/12/13(木) 23:55 質問
【53090】Re:在庫管理できるシステムについて かみちゃん 07/12/14(金) 9:25 発言
【53092】Re:在庫管理できるシステムについて [名前なし] 07/12/14(金) 9:53 発言
【53094】Re:在庫管理できるシステムについて かみちゃん 07/12/14(金) 12:43 発言
【53095】Re:在庫管理できるシステムについて ハチ 07/12/14(金) 13:05 発言
【53097】Re:在庫管理できるシステムについて neptune 07/12/14(金) 14:09 発言
【53145】Re:在庫管理できるシステムについて mitsu 07/12/17(月) 15:42 発言

28925 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free