すべてのカテゴリ

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("松尾芭蕉", "宝井其角", "服部嵐雪", "向井去来",　_                              "内藤丈草", "森川許六",  "杉山杉風", "各務支考",  _                           

ひと手間加えるだけで、仕上がりが綺麗になりますのでぜひやっていただきたいです。用意するもの・定規・カッター（なければつまようじでも）定規を折り線が必要な部分にあて、カッターの背で線を引きます※注意刃の部分を使うと紙が切れてしまいますのでご注意くださいあとは折るだけです！これだけで失敗することなく、綺麗に折ることができます。