すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub ビンゴシート作成マクロ()      Const BINFNTNA = "ＭＳ 明朝"           'フォント名      Const BINFNTSZ = 18                       'フォントサイズ      Const BINCELWD = 56                      'テーブルセル幅      '---------------------------------------------------------------------------      Dim Ip As Integer, Jp As Integer, Kp As Integer      Dim Lp As Integer      Dim intMat(4, 4) As Integer, intNum(19) As Integer      Dim tblBng As Table      '      '*ビンゴデータ作成       Randomize Timer       For Ip = 0 To 20 - 1           intNum(Ip) = Ip + 1       Next Ip       For Jp = 0 To 5 - 1           For Ip = 0 To 20 - 1               Kp = Int(Rnd(1) * 20)               If Ip = Kp Then Kp = (I