- ベストアンサー
EXCEL起動と同時にワークシートを最大化する方法
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 殆どのコードはマクロ記録をとってみれば分かりますよ。(^^;; WorkBook のOpenイベントに次のコードをセット ----------------------------------------------- Private Sub Workbook_Open() Application.WindowState = xlMaximized Sheets("Sheet1").Select ActiveWindow.WindowState = xlMaximized End Sub ----------------------------------------------- 以上です。
その他の回答 (3)
- zap35
- ベストアンサー率44% (1383/3079)
＃０１さんも書かれたようにアクティブなシートの最大化と考えて ActiveWindow.WindowState = xlMaximized で良いと思いますが、開いたシートで sheet1 が先頭でない場合は sheets("sheet1").activate も必要でしょう
- taocat
- ベストアンサー率61% (191/310)
あぁぁぁ～、被ってるよぅ。。。。 merlionXXさん、すみませぬ。。。(^^;;;
- merlionXX
- ベストアンサー率48% (1930/4007)
ActiveWindow.WindowState = xlMaximized でどうでしょうか？
お礼
ありがとうございました。
関連するQ&A
- Excelで全体を最大化してもシートが最大化されない
Excel2003を使用しています。 Excelを開くと全体の最大化はされているのに、シートだけが最大化されていなく、 しかもシートの最大化ボタンは隠れていて最大化できません。 このときシートの最大化はどうすればできるのでしょうか？
- ベストアンサー
- その他MS Office製品
- エクセル アプリケーションの全画面表示の方法
ＶＢＡでエクセルを開く時に、 開かれる側のファイルではなく、 開く側から全画面表示にする方法はありますか？ 開かれる側のファイルの Workbook_Openイベントに Application.WindowState = xlMaximized に入れれば、アプリケーションを最大化して開けますが、 マクロを使わないエクセルファイルもあるし、 全てのエクセルファイルに上記のコードを書くよりも 開く側から指示できれば楽だと思うので、教えてください。
- ベストアンサー
- Visual Basic
- EXCELマクロでシート保護の解除をしたいです
システム抽出画面(Excel)にO23の場所から28行づつ"K"を入れていくというのです が、 数字の合計を取る場所で、シートの保護が掛かっています シートの保護が掛かっていれば次の処理(j+56)などをさせるようには どのようにすればいいでしょうか？(↓のはずっとKを入れていくだけです) Application.WindowState = xlMaximized j = 23 Do Until j > 10000000 Range("O" & j).Select ActiveCell.FormulaR1C1 = "" ActiveCell.FormulaR1C1 = "k" j = j + 28 Loop イメージです↓ ---------------------------------- （O,23） k入力 ---------------------------------- (O,23+28) k入力 ---------------------------------- k ← 保護されていてエラー ---------------------------------- k ← ここも入れたいけど処理ストップ ----------------------------------
- ベストアンサー
- オフィス系ソフト
- VBAで全画面/数式バーが出ない？
エクセル2013です。 以下のVBAでFullscreenにすると、なぜか数式バーがでません。 これまでのエクセル2010では、このコードでちゃんと出ていました。 エクセル2013でも全画面表示で数式バーを出すためにはどうしたらよいのでしょうか？ Sub FullSize() ActiveWindow.WindowState = xlMaximized With Application .WindowState = xlMaximized .DisplayFullScreen = True .DisplayFormulaBar = True '2013では数式バーが出ない！ End With End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルシートの最大化表示
Windows 7 エクセル 2010 を使用しています。 エクセルのシートを最大化した状態（パスワードをかけない）で、シート右上のｘで閉じ、再度エクセルのシートを開いた場合は、最大化の状態でシートが開きます。しかしシートを最大化状態でシートにパスワードをかけた状態でシートを閉じ、再度シートを開いてもシートは画面の半分の大きさでしか開かないです。 シートにパスワードをかけた状態で、最大化にした状態には開くことができないのでしょうか。
- ベストアンサー
- Excel（エクセル）
- UsableHeight シート名が消える
エクセルｖｂａでリボンを非表示にして、ブックを最大化して、微調整したいのですが Workbook_Openイベントで実行すると、シート名が見えない状態になります。 コードはこれです。 Private Sub Workbook_Open() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'リボンを非表示にする ActiveWindow.WindowState = xlMaximized 'ウィンドウを最大化する With ActiveWindow .WindowState = xlNormal .Top = 0 .Left = 0 .Width = Application.UsableWidth .Height = Application.UsableHeight ' ウィンドウが使うことのできる範囲の最大限の高さにする End With End Sub ブックを開いた時はシート名が見えないサイズになってしまうのですが もう一度手動でWorkbook_Openイベントを実行すると、ちゃんとシート名まで表示されます。 なぜ同じコードなのに結果が違うのでしょうか？ 横幅に関しては１回目も２回目も同じです。
- ベストアンサー
- Excel（エクセル）
- EXCELシート上のリンクをクリックすると最小化してしまう
お世話になります。 早速ですが、質問です。 ＥＸＣＥＬのシート上にハイパーリンクを作成し、そのリンクをクリックす ると、ＩＥにてページが表示されるのとほぼ同時にＥＸＣＥＬが最小化して しまいます。 これを抑止したいと、過去の質問から http://oshiete1.goo.ne.jp/qa4942669.html を参照し、 Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Application.WindowState = xlNormal AppActivate Application.Caption End Sub というマクロを入れてみたのですが、やはり最小化されてしまいました。 どうもリンクをクリックした際に、ＩＥにページを表示する前に、上記の処 理が実行されてしまっているように見受けられます。 それならば最小化されてしまうタイミングで対処しようと Private Sub Workbook_Deactivate() Application.WindowState = xlNormal AppActivate Application.Caption End Sub というコードも追加してみたのですが、こちらはイベントが発生せず、実行 されませんでした。 この事象は回避不可能なのでしょうか？ 何かよい方法がありましたらご教授いただければ幸いです。 ちなみに環境はWindowsXP+EXCEL2000+IE8です。 以上、よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- Ｅｘｃｅｌのシートで
いつもお世話になります。 エクセルのファイルで任意のシートだけ隠しシートにすることは可能なのでしょうか？ 可能であれば、解除の仕方を教えてください。 Visual Basic Editorを開くと、Microsoft Excel Objectsにシート名がいくつかあるのですが、エクセル本体のシートは一つしかありません。 どうやら開いているシートは、他からデータを読取っているみたいなのですが、別のエクセルファイルを開いていないので、恐らく当該ファイルの何処かから読取っていると思います。 宜しくお願いします。
- ベストアンサー
- Windows系OS
- EXCELで、起動時ワークシートが出なくなりました
ＥＸＣＥＬ２０００を使用していますが、どこかの設定が変わったのか、起動したときにワークシートが出なくなりました。新規作成ボタンをクリックすると出るので問題ないのですが、どうすれば元通りに戻るでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
Sheets("Sheet1").Select ActiveWindow.WindowState = xlMaximized で解決しました。ありがとうございました。