| |
はじめまして。
excelで、A4サイズの年間カレンダーを作っています。
（余白なし、セル縦３０横３０の日付のみのカレンダー）
理想は、年号セル（２００８）を変えるだけで、
全てが正しく変更されるカレンダーです。
カレンダーの日付を関数で正確に出したり、
土日のセルの背景色を変えたり、土日祝の文字色を変えたり、
ということは、関数や、条件付き書式で表現できたのですが、
祝日にマルをつける、という段階になって、
どうやらVBAでないとダメらしい、と気づいて、勉強を始めました。
（この時点で、カレンダーは年号セルで変更、
後にボタンを押せば、上からばーっとマルがつく、
という形にしようと考えました）
ネットを検索しながらポチポチと打ち込んでみたものの、
どうしてもエラーが出て形になりません。
１つの日付セルに対して、祝日リストを参照して当たりか
どうか調べる、当たっていたら、セルにマルをつける、
という形で考えていたのですが…。
もしよろしければ、この処理を使えばいいよーみたいな助言を
していただけると、勉強の道しるべになります。
よろしくお願いします。
excelは2007を使っております。
以下、作ったマクロです。変だと思いますがご一考ください。
'マクロの名前です。
Sub 祝日マル付け()
'まず、色々な数字を定義づけします。
Dim karenda As Range 'カレンダー１２か月分のセル
Dim syukujitu As Range '祝日のリストのこと
Dim atari As Variant 'カレンダーと祝日表の照合用
Dim idou As Variant
Dim hidari As Integer 'マル付け用
Dim ue As Integer 'マル付け用
'楕円のオートシェイプを、現在アクティブなシートから完全消去します。
ActiveSheet.Ovals.Delete
'次に、カレンダーのデータをマクロに読み込みます。
With ActiveSheet
Set karenda = .Range("=$B$5:$H$10,$J$5:$P$10,……以下、１２か月分つづく。")
End With
'次に、祝日の日付（年月日）をマクロに読み込みます。
'祝日は、同じシート内で、振替も含めた式を算出して、日付を出しています。
With ActiveSheet
Set syukujitu = .Range("$AB$3:$BA$17")
End With
'ここからやりたい処理の開始です。
'祝日のデータを見て、カレンダーの中から該当する日付を検索します。
For Each idou In karenda
idou = karenda.Select
For Each atari In karenda
atari = Application.IsNumber(Application.Match(karenda, syukujitu, 0))
If atari = True Then
'以下、円を書くためのマクロです。２３は、円の大きさです。
hidari = ActiveCell.Left '書き始め、セルの左
ue = ActiveCell.Top '書き始め、セルの上
With ActiveSheet.Shapes.AddShape(msoShapeOval, hidari, ue, 23, 23)
.Fill.Transparency = 1 '塗りつぶしなし
With .Line '円のラインに関する各種設定をします。
.DashStyle = msoLineSolid
.Style = msoLineSingle
.Visible = msoTrue
.Weight = 0.75
.ForeColor.SchemeColor = 8
End With
End With
End If
Next atari
Next idou
'終わります。
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
