すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 籠目文様描画マクロ()     Const RETILEFT = 100　　　　　　         '描画開始位置Ｘ     Const RETITOPP = 80 　　　　　　　　　'　　            Ｙ     Const RETIWIDT = 25 　　　　　　　　　'平行四辺形幅     Const RETIHEIG = 5 　　　　　　　　　   '              高さ     Const RETICOLS = 7                               '横並び数     Const RETIROWS = 5                              '縦並び数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim dblRd As Double     Dim intDxp As Integer, intDyp As Integer     Dim intDai As Integer, lngCol As Long     '     dblRd = (4 * Atn(1)) / 180     '     lngCol = RGB(34, 139, 34) '←塗りつぶし色(緑)