Excel VBA質問箱 IV

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

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


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

【26888】Excel立ち上がり時の行の高さ指定 初歩的ですいません! 05/7/22(金) 14:46 質問[未読]
【26889】Re:Excel立ち上がり時の行の高さ指定 つん 05/7/22(金) 15:11 回答[未読]

【26888】Excel立ち上がり時の行の高さ指定
質問  初歩的ですいません!  - 05/7/22(金) 14:46 -

引用なし
パスワード
   このHPで、いつも勉強させてもらっています。

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

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

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

どうすればいいでしょうか?教えて下さい。
WinXP&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

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

それから、どういう目的かわからんのですが、
もし、新規ブックの行の高さを毎回「20」で立ち上げたい・・・
ということなら、マクロでせんでも、
Xlstartっちゅーフォルダに設定しておいたブックを入れておけば、
そのブックの書式が新規のブックの書式になると思います。
そういうことではないんやろか?

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