すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 席次表作成マクロ()     Const SEATXCNT = 4 '横方向席数     Const SEATYCNT = 3 '縦方向席数     '     Const TBOXWIDT = 80 'テキストボックス幅     Const TBOXHEIG = 30 'テキストボックス高     '     Const TBOXXGAP = 10 'テキストボックス横方向間隔     Const TBOXYGAP = 10 'テキストボックス縦方向間隔     '     Const TBOXLEFT = 80 'テキストボックス描画開始位置     Const TBOXTOP = 100 '     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim varName As Variant     '     '//名前設定(松尾芭蕉+蕉門１０哲+小林一茶)    varName = Array("松尾芭蕉", "宝井其角", "服部嵐雪", "向井去来",　_                              "内藤丈草", "森川許六",  "杉山杉風", "各務支考",  _