Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
Range("2:n").RowHeight = 13.5 がエラーになります。
投稿日時: 19/03/09 17:27:51
投稿者: sakana20180912

以下のコードがエラーになります。
なぜでしょうか?
 
 
<コード>
Sub Sample1()
Dim rowCnt As Long
 
rowCnt = Cells(Rows.Count, 1).End(xlUp).Row
Range("2:rowCnt").RowHeight = 13.5
 
End Sub
 
<エラーメッセージ>
実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。
 
 
 
 
よろしくお願いいたします。

回答
投稿日時: 19/03/09 17:57:43
投稿者: WinArrow
投稿者のウェブサイトに移動

エラーの原因は、
変数を「"」で括っているからです。
 
>Range("2:rowCnt").RowHeight = 13.5

Range("2:" & rowCnt).RowHeight = 13.5

投稿日時: 19/03/09 18:17:34
投稿者: sakana20180912

WinArrow さんの引用:
エラーの原因は、
変数を「"」で括っているからです。
 
>Range("2:rowCnt").RowHeight = 13.5

Range("2:" & rowCnt).RowHeight = 13.5

 
 
 
 
⇒★できました!ありがとうございます!!!