質問: mycolor end if end sub
回答: こんにちは まず、if文の処理ブロックの終わりを明示するendifが足りないようです。 どこに置きますか? ----------コード---------- private m_row as range '変更前の行番号 private m_iro as variant '変更前の色 private const mycolor as long = 36 '変更する色番号 sub test() '選択した行に色を付ける dim target as range dim i as integer dim 処理対象セル as range dim 処理対象セル色 as string set target = selection if target.row > 1 then '2行目以降を対象とする '変更前の色に戻す if not m_row is nothing then let i = 0 for each 処理対象セル in m_row 処理対象セル.interior.colorindex = cint(m_iro(i)) let i = i + 1 next set m_row = nothing let m_iro = "" else '変更前の行番号と色を記憶 set m_row = target for each 処理対象セル in m_row let m_iro = m_iro & " " & 処理対象セル.interior.colorindex next let m_iro = split(trim(m_iro)) '色を変更 let target.interior.colorindex = mycolor end if end sub