質問: ### 前提・実現したいこと book1とbook2があります。 book1のsheet1はカレンダーとなっていて、A列のA8:A38は日付、B列のB8:B38は空白のセルです。 土日祝日のところは青や赤などの色になっております。 やりたいことは、 book2のsheet2のA9にある値を、book1のB8:B38まで入力されるようにしたいです。 ただし、土日祝日の色が付いているところには入力されないようにするのと、 30日までしかないので、A38が空白の時はB8:B37と範囲が変わるようにしたいです。 宜しくお願いいたします。
回答: **If Cells(1, 2).Interior.Color = RGB(255, 0, 0) Then** のようにすれば背景の色を判定できます。 **Range("A1").Locked = True** のようにすればセルをロック(入力不可)にすることが可能です。 > > 30日までしかないので、A38が空白の時はB8:B37と範囲が変わるようにしたいです。 > > > Data型という型を使えばその辺は済むと思います。 慣れないVBAでの開発頑張って下さい。