Excel VBA質問箱 IV

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

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


19413 / 76736 ←次へ | 前へ→

【62755】Re:AutoFitを使うには
発言  つん  - 09/8/27(木) 16:05 -

引用なし
パスワード
   >Dim r As Long  

この場合、Withステートメントは意味ないように思います。
「Withステートメント」もヘルプ読んでください。
  
>  r = Worksheets(ActiveSheet).Cells(Application.Rows.Count, 1).End>   '↑ここででる

この場合、みるべきはCount プロパティでなくEnd プロパティでもなくて、
「Worksheets プロパティ」です。
Worksheets(ActiveSheet)←この書き方はあり得ません。

Worksheets("Sheet1") とか
ActiveSheet使うなら、そのままActiveSheet.Cells(1,1)・・・とかですよね。

でも、その二つのヘルプも読んでね。

>  Rows("3:" & r).EntireRow.AutoFit

それから、これも「EntireRow」は必要ないです。
これも、ヘルプ読まれたらいいかと思います。

0 hits

【62749】AutoFitを使うには にしもり 09/8/27(木) 13:43 質問
【62750】Re:AutoFitを使うには つん 09/8/27(木) 14:42 発言
【62752】Re:AutoFitを使うには にしもり 09/8/27(木) 15:14 質問
【62753】Re:AutoFitを使うには つん 09/8/27(木) 15:31 回答
【62754】Re:AutoFitを使うには にしもり 09/8/27(木) 15:56 質問
【62755】Re:AutoFitを使うには つん 09/8/27(木) 16:05 発言
【62756】Re:AutoFitを使うには にしもり 09/8/27(木) 16:25 お礼

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