Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9532 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【26888】Excel立ち上がり時の行の高さ指定 初歩的ですいません！ 05/7/22(金) 14:46 質問[未読]
【26889】Re:Excel立ち上がり時の行の高さ指定 つん 05/7/22(金) 15:11 回答[未読]
【26888】Excel立ち上がり時の行の高さ指定
質問  初歩的ですいません！  - 05/7/22(金) 14:46 -
引用なし
パスワード
   このＨＰで、いつも勉強させてもらっています。

Excel起動時に行の高さを20に自動的に指定するマクロを
作っています。

Private Sub Workbook_Open()
　　Cells.Select
　　Selection.RowHeight = 20
　　Range("A1").Select
End Sub

できればアドイン（.xla）で作りたいのですが、
うまくいきません。※Cells.Selectでエラー発生

どうすればいいでしょうか？教えて下さい。
WinＸＰ＆Excel2002を使用してます。
【26889】Re:Excel立ち上がり時の行の高さ指定
回答  つん E-MAIL  - 05/7/22(金) 15:11 -
引用なし
パスワード
   こんにちは＾＾

>Private Sub Workbook_Open()
>　　Cells.Select
>　　Selection.RowHeight = 20
>　　Range("A1").Select
>End Sub
>
>できればアドイン（.xla）で作りたいのですが、
>うまくいきません。※Cells.Selectでエラー発生

えー、それは。
ブックの中のどのシートか？を指定してやらないと駄目だと思います。

こんな感じ

　　With Worksheets("Sheet1")
　　　　.Cells.RowHeight = 20
　　　　.Range("A1").Select
　　End With

別に、セレクトしてやらなくても行の高さは変えられると思います。

それから、どういう目的かわからんのですが、
もし、新規ブックの行の高さを毎回「２０」で立ち上げたい・・・
ということなら、マクロでせんでも、
Xlstartっちゅーフォルダに設定しておいたブックを入れておけば、
そのブックの書式が新規のブックの書式になると思います。
そういうことではないんやろか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9532 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free