すべてのカテゴリ

月日は百代の過客にして、行きかふ年もまた旅人也過ぎ去った日々は戻りませんどのように過ごすか、今私たちは、常に問われています。あの時こうすればよかったああしとけば良かったもう遅いんですよ私達の住む世界は残念ながら平等ではないようです生まれた国が戦場であったり、貧国であったり独裁者の国だったりする事もあるでしょう逆に裕福な国先進国広大な資源を持つ国幸運な環境に生まれる事もあるでしょう今時の言葉で言えば「ガチャ」とでも言うのでしょうか？しかしですね1つだけ平等な真実がありますこの世の理と言っても良いでしょうそれは「時間」です時間だけは万人に平等です。時間、月日この重要さと儚さを芭蕉さんは説いたのでしょう。後悔しない未来それは全て今この瞬間に掛かっていますあなたはどう過ごしますか？

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