Excel VBA質問箱 IV

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

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


7063 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   『MENU』画面に指定したワークシート上にボタンを配置し、入力するデータの
種別毎に作成したワークシートへジャンプして入力する、と言う目的の為に下記の
コードを記述しました。(データ種別毎のワークシートが多い事から)

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

(Sheet1にボタンを配置)

ところが、ワークシートを非表示にすると呼び出せません。
ボタンを配置した事からワークシートは隠したいのですが....
どなたか、良い案をご存知でしょうか?
宜しくお願い致します。

【41416】Re:ワークシートの表示
回答  Braveone  - 06/8/9(水) 16:05 -

引用なし
パスワード
   ちょっとどういうことがしたいのか良く分かっていないのですが、
以下のどちらかで合っているしょうか?

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

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


1.でしたら、

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

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


2.でしたら、

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 さん:
早速のレス、ありがとうございます。
質問の内容的には
2.『MENU』画面から対応するボタンクリックで対象のシートにジャンプし、手動入力する

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

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

と記述しても、他のシートに移る際に非表示になりまません。
これは、私目の質問の仕方が悪かったのですが、基本的に、常に表示されているのはM
ENU画面であるワークシートだけとなるので他のワークシートへの移動も常にボ
タン(VBによるジャンプ)による移動となるよう設定しています。
このせいでしょうか?

【41420】Re:ワークシートの表示
お礼  バカボン  - 06/8/9(水) 17:31 -

引用なし
パスワード
   Braveone さん
ありがとうございます。
私の設定がせ悪かったようです。
解決しました、誠にありがとうございます。

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