viewExcelでオリジナルカレンダー作り(その1)この時期になるとたくさんのサイトで表題のテーマの発信があります。そのどこかで見つけたものをちょっと改良させてもらいました。ソースがどこだったかわからなくなってしまいました。公開してくれた方ありがとうございます。どこか忘れてしまってごめんなさい。空き時間に投稿していますので、1回で全てを投稿できません。その為2,3回に分けての公開になります。以下、作成手順になります。※WindowsやExcelの基本的操作や言葉がわかっている人向けの情報です。:=祝日表!$A$3:$C$22」とします。範囲の部分はドラッグで選択すれば勝手に絶対番地で入力されます。<日付>「名前:日付」「参照範囲:=祝日表!$A$3:$A$22」とします。3.カレンダー年の入力A1にカレンダーの年を数値で入力します(例では2018だけ)【カレンダーシート】1.まず1月のカレンダーを作ります。シート名を数値の1にします。1月などのように月を入れないでください。(お使いのプリンターに合わせて適正な余白に調整する必要があります)3.カレンダー上部に画像を配置するための空白行を用意します。27ピクセルの高さで25行4.年月表示の行を51ピクセルの高さにします。26行目5.日付や祝日などのタイトル表示行を27ピクセルの高さにします。27行目6.カレンダー部分の行の高さを41ピクセルの高さにします。28~43行目ここまでの設定(高さなど)は、お好みで調整してもらって構いません。以下の説明は上記設定でレイアウトをした状態であることを前提としています。7.カレンダー年月の表示26行目にテキストボックスを使って年月を表示させます。セルに直接入力するより自由が利くためです。<年の取得>A25に「=祝日表!A1」の式を入力C25に「=RIGHT(CELL(“filename”,A2),LEN(CELL(“filename”,A2))-FIND(“]”,CELL(“filename”,A2)))」の式を入力E25に「=A26&”年”&C25&”月”」の式を入力テキストボックスを選択し、fx(式入力)部分に「=$E$25」を入力します。祝日表示セルを結合します。C28とD28を結合、C29とD29を結合・・・これを42行目までI28とJ28を結合、I29とJ29を結合・・・これを43行目までA28からA42及びG28からG43までを右配置にB28からB42及びH28からH43までを中央配置にC28からC42及びI28からI43までを中央配置に10.日付の入力28日までは全ての月で存在しますので、直接入力します。29~31日は存在しない場合は何も表示しないように式を入れます。G41に「=IF(DAY(DATE($B$26,$C$26,29))=29,29,””)」の式を入れます。G42に「=IF(DAY(DATE($B$26,$C$26,30))=30,30,””)」の式を入れます。G43に「=IF(DAY(DATE($B$26,$C$26,31))=31,31,””)」の式を入れます。11.列幅の調整ここでの数値は一例であり、ご自分の好みや環境に合わせて調整してください。A:35ピクセル、B:60ピクセル、C:32ピクセル、D:71ピクセル、EとF:159ピクセルG~Lは上記と同じパターンです。列が無駄に分かれていますが、違う用途で使用していたカレンダーを再利用しているためで式に関係のない列は削除してもらっても構いません。ここまでで以下のようになるはずです。プリンターで正式印刷してみたところ、同色で見えなくしていたA26等の式が印刷で見えてしまいましたので7.の式の入力を画像で隠れるA25に入力するように変更しました。(0)トラックバックは利用できません。この記事へのコメントはありません。この記事へのトラックバックはありません。返信をキャンセルする。