すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 漢字探しクイズ作成マクロ()     Const KFNDLEFT = 100             '描画開始位置Ｘ     Const KFNDTOPP = 100            '　　　　　　Ｙ     Const KFNDWIDT = 275           'テキストボックス幅     Const KFNDHEIG = 240            'テキストボックス高さ     '     Const KFNDCOLS = 12             '横文字数     Const KFNDROWS = 9              '縦段数     '     Const KFNDCHR1 = "梅"           '探す　漢字     Const KFNDCHR2 = "悔"           '惑わす漢字     '     Const KFNDFNTN = "ＭＳ ゴシック"              'フォント名     Const KFNDFNTS = 20                                'フォントサイズ     Const KFNDLNSP = 24                                '改行幅     '---------------------------------------------------------------------------     Dim Ip As In