すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub エプロンチェック描画マクロ()    Const APROLEFT = 100                  '描画開始位置Ｘ    Const APROTOPP = 100                 '　　　　　　Ｙ    '    Const APROHWID = 20                  '横ライン幅    Const APROVWID = 20                  '縦ライン幅    Const APROHGAP = 20                  '横間隔    Const APROVGAP = 20                  '縦間隔    '    Const APROCOLS = 6                   '横描画数    Const APROROWS = 5                  '縦描画数    '---------------------------------------------------------------------------    Dim Ip As Integer, Jp As Integer    Dim Kp As Integer    Dim intDxp As Integer, intDyp As Integer    Dim lngCol(2) As Long    '    lngCol(0) = vbWhite