Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7084 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【41415】ワークシートの表示 バカボン 06/8/9(水) 15:14 質問[未読]
【41416】Re:ワークシートの表示 Braveone 06/8/9(水) 16:05 回答[未読]
【41417】Re:ワークシートの表示 バカボン 06/8/9(水) 16:42 発言[未読]
【41420】Re:ワークシートの表示 バカボン 06/8/9(水) 17:31 お礼[未読]
【41415】ワークシートの表示
質問  バカボン  - 06/8/9(水) 15:14 -
引用なし
パスワード
   『ＭＥＮＵ』画面に指定したワークシート上にボタンを配置し､入力するデータの
種別毎に作成したワークシートへジャンプして入力する、と言う目的の為に下記の
コードを記述しました。（データ種別毎のワークシートが多い事から）

Private Sub CommandButton1_Click()
Sheets("Sheet2").Activate
End Sub

（Sheet1にボタンを配置）

ところが､ワークシートを非表示にすると呼び出せません。
ボタンを配置した事からワークシートは隠したいのですが....
どなたか､良い案をご存知でしょうか？
宜しくお願い致します。
【41416】Re:ワークシートの表示
回答  Braveone  - 06/8/9(水) 16:05 -
引用なし
パスワード
   ちょっとどういうことがしたいのか良く分かっていないのですが、
以下のどちらかで合っているしょうか？

１．『MENU』画面に入力欄があり、値を入力した後ボタンクリックで対象のシートに値を入力

２．『MENU』画面から対応するボタンクリックで対象のシートにジャンプし、手動入力


１．でしたら、

Private Sub CommandButton1_Click()
Sheets("Sheet2").（値を入力するセル） = （入力欄セル）
End Sub

とすれば非表示のシートにも値は入力されます。


２．でしたら、

Private Sub CommandButton1_Click()
Sheets("Sheet2").Visible = True
Sheets("Sheet2").Activate
End Sub

のように一度Sheet2を表示させる必要があります。
ただこれだとSheet2が表示されたままになってしまうので、Sheet2に、

Private Sub Worksheet_Deactivate()
Sheets(2).Visible = False
End Sub

と記述すれば、他のシートに移る際に自動で非表示になります。
【41417】Re:ワークシートの表示
発言  バカボン  - 06/8/9(水) 16:42 -
引用なし
パスワード
   ▼Braveone さん：
早速のレス、ありがとうございます。
質問の内容的には
２．『MENU』画面から対応するボタンクリックで対象のシートにジャンプし、手動入力する

です。
で､ご教示頂きましたコード
　　　　　　↓
Private Sub CommandButton1_Click()
　Sheets("Sheet2").Visible = True
　Sheets("Sheet2").Activate
End Sub

を記述しまして実行しました所､見事非表示にしたシートが表示されました。
ありがとうございます。
ですが､
　↓
Private Sub Worksheet_Deactivate()
Sheets(2).Visible = False
End Sub

と記述しても、他のシートに移る際に非表示になりまません。
これは､私目の質問の仕方が悪かったのですが､基本的に､常に表示されているのはＭ
ＥＮＵ画面であるワークシートだけとなるので他のワークシートへの移動も常にボ
タン（ＶＢによるジャンプ）による移動となるよう設定しています。
このせいでしょうか？
【41420】Re:ワークシートの表示
お礼  バカボン  - 06/8/9(水) 17:31 -
引用なし
パスワード
   Braveone さん
ありがとうございます。
私の設定がせ悪かったようです。
解決しました､誠にありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7084 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free