VBA Forと Select Caseを組み合わせた行の高さ指定

Question

'行列の初期値を指定する
  cr = 1: cc = 1
  '行の高さを設定する
  For cr = 1 To 60 Step 1
    Select Case cr
      Case 1
      Range("A1").RowHeight = 38.25
    Case 2, 3
      Range(Cells(cr, cc)).RowHeight = 19
    Case 4
      Range(Cells(cr, cc)).RowHeight = 19.5
    Case 5 To 60
      Range(Cells(cr, cc)).RowHeight = 18
    End Select
  Next

上記の行を実行すると、７行目に相当するところでエラーが発生してしまいますが、何がおかしいのでしょうか？

cr = 行番号
cc = 列番号

です。

Answer 1

7行目って、cr=7かと思ったらRange(Cells(cr, cc)).RowHeight = 19の部分ですね。
Rangeがいらなくて、Cells(cr, cc).RowHeight = 19で、動くと思います。

あと、高さ指定したいだけなら、Rows(cr)でもいいかと。

ExcelVBAは、Rangeオブジェクトがわかれば、７割マスターしたようなものかと。

Answer 2

VBA だけでは、掲示不足です。
OFFICE製品 の何を使っているか。
例えば、EXCELであれば、
EXCEL2016 Professonal 32bit/64bit の別
Windows版/Mac版 などを記述してください。

コードから、EXCEL-VBA として
EXCEL-VBAでは、コードを書く場所により、
省略記法での、暗黙に指定されるオブジェクトが、変わります。
⇒標準モジュールに書いたのか、シートモジュールに書いたのかなど
ですので、EXCELのオブジェクトモデルの理解が出来るまでは、
掲示の様に省略記法で書かずに、VBAにて指定するEXCELオブジェクトは、
完全修飾するようにしてください。
’
【省略記法】
Range("A1").RowHeight = 38.25
ブック、シートオブジェクトの指定が省略されている。
解って使うか、必要がある場合にのみ使用する。
Option
【完全修飾】
Workbooks("ブック名").Worksheets("シート名").Range("A1").RowHeight = 38.25
Workbooks(1).Worksheets(1).Range("A1").RowHeight = 38.25
自ブック限定の書き方
ThisWorkbook.Worksheets("シート名").Range("A1").RowHeight = 38.25
'
VBE の設定で、変数の宣言を強制する。のチェックをしておきましょう。
または、コードの最初の行に、
Option Explicit
をいれましょう。
'
参考推奨サイト
Office TANAKA
EXCEL で お仕事！