Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10435 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21851】起動時にセルを判定して開くシートを選びたい megu 05/2/2(水) 10:38 質問[未読]
【21852】Re:起動時にセルを判定して開くシートを選... IROC 05/2/2(水) 10:53 回答[未読]
【21855】Re:起動時にセルを判定して開くシートを選... megu 05/2/2(水) 11:38 お礼[未読]
【21851】起動時にセルを判定して開くシートを選び...
質問  megu  - 05/2/2(水) 10:38 -
引用なし
パスワード
   meguと申します。
VBA初心者です、よろしくお願い致します。

１つのブックファイルにシートが３種類（シートＡ、シートＢ、シートＣ）があります。
ファイルを開く（起動時）ときに、シートＡのB4セルに入っている値を判定し、何も記入がなかったら、シートＢを開く、何か入っていたらシートＣを開くと言うようにしたいのです。

If文で判定して行くと思うのですが、書き方がわかりません。
ご指導いただければと思います。
よろしくお願い致します。
【21852】Re:起動時にセルを判定して開くシートを...
回答  IROC  - 05/2/2(水) 10:53 -
引用なし
パスワード
   >ファイルを開く（起動時）ときに、
Private Sub Workbook_Open()

End Sub


>シートＡのB4セルに入っている値を判定し、何も記入がなかったら、シートＢを開く、
>何か入っていたらシートＣを開くと言うようにしたいのです。
If Worksheets("シートＡ").Range("B4").Value = "" Then
　　Worksheets("シートＡ").Activate
Else
　　Worksheets("シートＣ").Activate
End If
【21855】Re:起動時にセルを判定して開くシートを...
お礼  megu  - 05/2/2(水) 11:38 -
引用なし
パスワード
   IROC様

ありがとうございました。
とても助かりました。
少しずつ勉強して行きますので、また何かありましたらご指導下さい。

megu
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10435 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free