すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 七曜カレンダー作成マクロ()     '*********************     Const CALENYEAR = 2023        '年（西暦）     Const CALENMONT = 10           '月     '*********************     'テーブルセル     Const CALENCLWD = 48            '幅     Const CALENCLH1 = 30             '高さ1(曜日)    Const CALENCLH2 = 50             '高さ2     'フォント     Const CALEFNTNA = "ＭＳ ゴシック"    '名前     Const CALEFNTS1 = 12             'サイズ1(曜日)    Const CALEFNTS2 = 24             'サイス2(1～)    Const CALEFNTS3 = 16             'サイス3(24/31)    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim tblCale As Table     Dim intCl As Integer     Dim intDy