すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 二筋格子模様描画マクロ()     Const BIFULEFT = 90　　　        '描画開始位置Ｘ     Const BIFUTOPP = 90 　　　　　'　　　　　　Ｙ     '     Const BIFUVSPC = 25　　　        '縦線間隔     Const BIFUHSPC = 25　　　        '横線間隔     '     Const BIFUCOLS = 8 　　　　　　'横格子数     Const BIFUROWS = 7　　　　      '縦格子数     '     Const BIFULNWT = 3 　　　　　　'線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intEpt(1) As Integer     Dim intMpt(1) As Integer     Dim lngCol As Long     '     lngCol = RGB(0, 0, 139)　　　     '←線色     '*横線#############################     intEpt(0) = BIFULEFT     intEpt(1) = BIFULEFT + BIFUVSPC * BIFUC

Option Explicit Option Base 0 ' Public Sub 赤とんぼ描画マクロ()     Const RDGFLEFT = 90　　　    '描画開始位置Ｘ     Const RDGFTOPP = 90 　  　　'　　　　　　Ｙ     '     Const RDGFVSPC = 70            '描画間隔(横)     Const RDGFHSPC = 60            '描画間隔(縦）     Const RDGFCOLS = 4              '横/描画数     Const RDGFROWS = 3            '縦/描画数     '     Const RDGFBZM1 = 0.1          'ベジェ曲線倍率(胴)     Const RDGFBZM2 = 0.1          'ベジェ曲線倍率(羽）     Const RDGFWGX1 = -14         '胴と羽の距離Ｘ     Const RDGFWGX2 = 14     Const RDGFWGY1 = 15           '胴と羽の距離Ｙ     Const RDGFWGY2 = 21     '     Const RDGFEYX1 = -4            '胴と目玉の距離Ｘ    Const RDGFEYX2 = 4             '     Const RDGFEYY1 = -3            '胴と目玉の距離Ｙ    Const RDGFEYRD = 2.5   

Option Explicit Option Base 0 ' Public Sub アイヌ文様描画マクロ()     Const AINULEFT = 150          '描画開始位置Ｘ     Const AINUTOPP = 120         '　　　　　　Ｙ     '     Const AINUBZMG = -1.5        'ベジエ曲線倍率     Const AINULNWT = 1            '輪郭線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim sngBBas() As Single, sngBDat() As Single     Dim sngMax(1) As Single, sngMin(1) As Single     Dim varBezi As Variant, lngCol(1) As Long     '     'ベジエデータ     varBezi = Array(20.7, 19.05, 24#, 16.2, 28.2, 12.3, 30.75, 7.2, _                33.6, 2.1, 35.25, -4.05, 35.55, -11.1, 35.55, -16.35, _    

Option Explicit Option Base 0 ' Public Sub 花菱模様描画マクロ()     Const FLDILEFT = 80          '描画開始位置Ｘ     Const FLDITOPP = 90         '　　　　　　Ｙ     '     Const FLDICOLS = 5          '横/描画数     Const FLDIROWS = 3        '縦/描画数     '     Const FLDILGRD = 24       '花のサイズ     Const FLDISMRD = 6        '花びらのサイズ     Const FLDICNRD = 6        'めしべのサイズ     Const FLDICNLN = 9        '十字の線の長さ    '     Const FLDIVPIT = (FLDILGRD + FLDISMRD) * 2　　　  '横-間隔     Const FLDIHPIT = FLDIVPIT　　　　　　　                   '縦-間隔     Const FLDILNWE = 1.5 　 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim i

Option Explicit Option Base 0 ' Public Sub いちょう葉描画マクロ()     Const GINKLEFT = 100　　　　'描画開始位置Ｘ     Const GINKTOPP = 100　　　　'　　　　　　Ｙ     '     Const GINKBZMG = 0.25　　　'ベジェ曲線描画倍率     '     Const GINKBWID = 152.9 * GINKBZMG 　　'描画幅     Const GINKBHEI = 184.54 * GINKBZMG　　'描画高さ     Const GINKVPIT = (GINKBWID + 5)　　　　'横-間隔     Const GINKHPIT = (GINKBHEI + 5)　　　　'縦-間隔     '     Const GINKCOLS = 6　　　　　　　　'横/描画数     Const GINKROWS = 4　　　　　　　　'縦/描画数     '     Const GINKLNWE = 1　　　　　　　　'線の太さ     Const GINKWAVE = 20　　　　　　　　'揺れ角     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As In

Option Explicit Option Base 0 ' Public Sub 乱数を使ったモンドリアン風模様描画マクロ()     Const MODRLEFT = 90              '描画開始位置Ｘ     Const MODRTOPP = 80             '　　　　　　Ｙ     '     Const MODRWIDT = 200           '描画幅     Const MODRHEIG = 200            '描画高さ     '     Const MODRCOLS = 5               '最小マス数（横）     Const MODRROWS = 5              '最小マス数（縦）     '     Const MODRLNWE = 10             '線の太さ     '     Const MODRCLLM = 3               '色エリアの最大値    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intLnH(MODRCOLS) As Integer     Dim intLnV(MODRROWS) As Integer     Dim intRct(MODRCOLS - 1, MODRROWS - 1, 4

Option Explicit Option Base 0 ' Public Sub フック型模様描画マクロ()     Const HOOKLEFT = 100　　　　        '描画開始位置Ｘ     Const HOOKTOPP = 100 　　　　　　'　　　　　　Ｙ     '     Const HOOKPMAG = 5　　                'ポリライン倍率     '     Const HOOKSWID = HOOKPMAG 　　'描画幅     Const HOOKSHEI = HOOKPMAG * 6  '描画高さ     '     Const HOOKVSPC = HOOKPMAG * 1.5    '横-間隔     Const HOOKHSPC = 0                            '縦-間隔     Const HOOKCOLS = 15                          '横/描画数     Const HOOKROWS = 5                          '縦/描画数     '     Const HOOKLNWE = 3                          '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer,

Option Explicit Option Base 0 '金子みすゞの詩『私と小鳥と鈴と』の一節より Public Sub 皆違って皆いい描画マクロ()     Const KANELEFT = 80　　　        '描画開始位置Ｘ     Const KANETOPP = 80 　　　　　'　　　　　　Ｙ     '     Const KANEVPIT = 75　　　　     '横-間隔     Const KANEHPIT = 75 　　　　 　'縦-間隔     Const KANECOLS = 4　　　         '横/描画数     Const KANEROWS = 3 　　　　　 '縦/描画数     '     Const KANELNWE = 1　　　         '線の太さ     '     'ベジエ曲線描画倍率     Const KANEBZR顔 = 0.9     Const KANEBZR目 = 0.2     Const KANEBZR鼻 = -0.3     Const KANEBZR口 = -0.25     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim Lp As Integer, intDlt As Integer     Dim intCxp As Integer, intCyp As In

画像は、３０％の倍率で表示したものです。Option Explicit Option Base 0 ' Public Sub デカ文字文書作成マクロ()     '↓フォント名     Const DECAFONTNAME = "UD デジタル 教科書体 NK-B"     Const DECAFONTSIZE = 470　　　　    'フォントサイズ     '↓表示文字     Const DECAMOJIRETU = "歳末大売出し"     Const DECALINEWEIG = 3　　　　　　  '輪郭線の太さ     '↓アートスタイル     Const DECATEXTEFFE = msoTextEffect1     '---------------------------------------------------------------------------     Dim Ip As Integer     Dim docDst As Document     Dim lngCol(1) As Long '     lngCol(0) = vbBlack　　         '←輪郭線色     lngCol(1) = vbRed 　　　　　 '←文字色 '     Set docDst = Application.Documents.Add     docDst.Content.Select     '*１文字目のワードアートを描画     With docDst.Shapes.AddTextEffect(DECATEXTEFFE, _  

Option Explicit Option Base 0 ' Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _     (ByVal pCaller As Long, ByVal pszURL As String, _      ByVal pszFileName As String, ByVal dwReserved As Long, _      ByVal plpfnCB As Long) As Long Public Sub 一括画像データをダウンロードし表示マクロ()     'ダウンロードＵＲＬ(作者のココナラブログ一覧)     Const DLBSURL = "https://coconala.com/blogs/1197395"     'ダウンロード格納ファイル名     Const DLTMPFN = "Temp.txt"     '対象画像拡張子     Const DLFEXTN = ".png"     '画像取出しキーワード     Const DLFKEY1 = "<img src="""     Const DLFKEY2 = DLFEXTN & """"     '     Const DLPCFNH = "PIC"     'ダウンロードエラーメッセージ     Const DLEMSG1 = "ダウンロードが出来ませんでした!!" & _                     v

Public Sub お椀とお箸描画マクロ()     Const BOWLLEFT = 100　　'描画開始位置Ｘ     Const BOWLTOPP = 100　　'　　　　　　Ｙ 　　'     Const BOWLCOLS = 6 　　'横/描画数     Const BOWLROWS = 5 　　'縦/描画数 　　'     Const BOWLLNWE = 0.75　 '線の太さ 　　'     Const BOWLFMMG = 2 　　'お椀の描画倍率     Const BOWLPLMG = 2 　　'お箸の描画倍率 　　'     Const BOWLSTVP = (6 * BOWLFMMG) 　　'箸の位置Ｘ     Const BOWLSTHP = (8 * BOWLFMMG) 　　'　　　　Ｙ     Const BOWLSTGP = (2 * BOWLPLMG) 　　'箸の間隔 　　'     Const BOWLVPIT = (20 * BOWLPLMG)　　'横-間隔     Const BOWLHPIT = (15 * BOWLFMMG)　　'縦-間隔 　　'---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intDxp As Integer, intDyp A

Option Explicit Option Base 0 ' Public Sub 松葉文様描画マクロ()     Const PINELEFT = 100             '描画開始位置Ｘ     Const PINETOPP = 100            '　　　　　　Ｙ     '     Const PINEVSPC = 25              '横-間隔     Const PINEHSPC = 30              '縦-間隔     Const PINECOLS = 10              '横/描画数     Const PINEROWS = 5              '縦/描画数     '     Const PINEBZMG = 2               'ベジェ設定倍率     Const PINELFLN = 40               '松葉の長さ     Const PINELFOP = 10              '松葉の開き     Const PINELFWT = 2.5            '松葉の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol(1) As Long     Dim intDxp As Integer, intDy

Option Explicit Option Base 0 ' Public Sub 六つ手卍文様描画マクロ()     Const SIXHLEFT = 160　　　　　        '描画開始位置Ｘ     Const SIXHTOPP = 80 　　　　　　　  '　　　　　　Ｙ     '     Const SIZHMGNI = 10                        'ポリライン描画倍率     '     Const SIXHCOLS = 7                          '横描画数     Const SIXHROWS = 4                        '縦描画数     Const SIXHLNWE = 2                        '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intMxp As Integer, intMyp As Integer     Dim sngBas(9, 1), sngDat(9, 1) As Single     Dim sngTmp(1, 9, 1) As Single, db

Option Explicit Option Base 0 ' Public Sub 楕円状に並べた楕円形描画マクロ()     Const ELLICXPS = 200               '輪の中心位置Ｘ     Const ELLICYPS = 160               '                  Ｙ     '     Const ELLISCNT = 15                 '楕円の数     Const ELLISRAD = 16                 '楕円の半径     '     Const ELLIMRAD = 100              '輪の半径     '     Const ELLIRATE = 0.5               '楕円のＹ／Ｘ     '     Const ELLILNWT = 1                '輪郭線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intEwd As Integer, intEht As Integer     Dim sngAng As Single, lngCol(1) As Long     '     lngCol(0) = vbBlack 　　　　　　'←輪郭

Option Explicit Option Base 0 ' Public Sub 黒塗り文書作成マクロ()    '---------------------------------------------------------------------------     Dim rngArea As Range     '     Set rngArea = ActiveDocument.Range(0, 0)     '蛍光ペン部分を検索     With rngArea.Find         .Text = ""         .Forward = True         .Wrap = wdFindStop         .Highlight = True     End With     '蛍光ペンの色を変更     Do While rngArea.Find.Execute = True And rngArea.Text <> ""        If rngArea.HighlightColorIndex = wdBlack Then           rngArea.HighlightColorIndex = wdYellow        Else           rngArea.HighlightColorIndex = wdBlack　　　　 '←黒塗り        End If     Loop End Sub

Option Explicit Option Base 0 ' Public Sub いちご描画マクロ()     Const STRBLEFT = 90　　　'描画開始位置Ｘ     Const STRBTOPP = 80　　　'　　　　　　Ｙ     '     Const STRBCOLS = 5 　　　'横/描画数     Const STRBROWS = 4 　　　'縦/描画数     '     Const STRBBBZM = 0.75　   'ベジェ曲線描画倍率(本体)     Const STRBHBZM = 0.75      'ベジェ曲線描画倍率(ヘタ)     '     Const STRBBOSX = 27.75 * STRBBBZM     '描画調整位置     Const STRBBOSY = 28.05 * STRBBBZM     Const STRBHOSX = STRBBOSX        　　　'描画調整位置     Const STRBHOSY = 0 * STRBHBZM     '     Const STRBVPIT = 56 * STRBBBZM         '横-間隔     Const STRBHPIT = 65 * STRBBBZM         '縦-間隔     '     Const STRBDEFX = 20 * STRBBBZM        '変形幅     Const STRBWANG = 30                 　　　'振れ幅     Const STRBLNWE = 1 

Option Explicit Option Base 0 ' Public Sub 観世水模様描画マクロ()     Const KNZWLEFT = 100　　'描画開始位置Ｘ     Const KNZWTOPP = 100　　'　　　　　　Ｙ     '     Const KNZWCOLS = 5　　　'横/描画数     Const KNZWROWS = 5　　　'縦/描画数     '     Const KNZWSWAN = 30　　　'渦巻描画刻み角     Const KNZWSWMG = 0.5　　'渦巻描画　係数     Const KNZWOCWD = (20 * KNZWSWMG) 　'円弧幅     Const KNZWOCPT = (8 * KNZWSWMG) 　　'円弧間隔     Const KNZWOCCN = 4　　　'円弧の数     Const KNZWOCAG = 0.1　　'円弧の厚み     Const KNZWOCHT = 1.1　　'(円弧/渦巻)の高さ     Const KNZWHSPC = 1.25　　'(行/円弧)の高さ     '     Const KNZWLNWE = 0.75　　'渦巻線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer  

Option Explicit Option Base 0 ' Public Sub 山路文様描画マクロ()     Const MTRDLEFT = 80 　　　'描画開始位置Ｘ     Const MTRDTOPP = 90 　　  '　　　　　　Ｙ     '     Const MTRDSWID = 30        '描画幅     Const MTRDSHEI = 12         '描画高さ     '     Const MTRDHSPC = 12        '縦-間隔     Const MTRDCOLS = 8          '横/山の数     Const MTRDROWS = 12       '縦/描画数     '     Const MTRDLNWE = 3.5      '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim sngPol(MTRDCOLS * 2, 1) As Single     Dim lngCol As Long     '     lngCol = RGB(34, 139, 34)              '←線色     For Jp = 0 To MTRDROWS - 1         intDyp

Option Explicit Option Base 0 ' Public Sub 鱗権太夫模様描画マクロ()     Const SCLGLEFT = 80 　　　　'描画開始位置Ｘ     Const SCLGTOPP = 90 　　　  '　　　　　　Ｙ     '     Const SCLGTSIZ = 6               '三角形幅     '     Const SCLGTCN1 = 10            '大きな三角山段数     Const SCLGTCN2 = 4              '小さな三角山段数     '     '横-間隔     Const SCLGVSPC = (SCLGTSIZ * (SCLGTCN1 + 1))     '縦-間隔     Const SCLGHSPC = ((SCLGTSIZ / 2) * (SCLGTCN1 + 1))    '    Const SCLGCOLS = 3              '横/描画数     Const SCLGROWS = 4             '縦/描画数     '     Const SCLGLNWE = 1             '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer  

Option Explicit Option Base 0 ' Public Sub もみじ描画マクロ()     Const MAPLLEFT = 100                   '描画開始位置Ｘ     Const MAPLTOPP = 100                  '　　　　　　Ｙ     '     Const MAPLVSPC = 50                    '横-間隔     Const MAPLHSPC = 50                   '縦-間隔     Const MAPLCOLS = 5                     '横/描画数     Const MAPLROWS = 4                   '縦/描画数     '     Const MAPLLNWE = 1                    '線の太さ     '     Const MAPLRATE = 0.75                 'ポリライン倍率    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim varPly As Variant     Dim sngBas(

Option Explicit Option Base 0 ' Public Sub 業平菱文様描画マクロ()     Const NARILEFT = 90　　　　         '描画開始位置Ｘ     Const NARITOPP = 90 　　　　　　 '　　　　　　Ｙ     Const NARILENG = 40                    'ひし形長い対角線長さ     Const NARICOLS = 5                      '列数     Const NARIROWS = 10                   '行数     '     Const NATILNW1 = 2                      '線の太さ1    Const NATILNW2 = 1                      '線の太さ2    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intWiD As Integer, intHei As Integer     Dim intWiH As Integer, intHeH As Integer     Dim intWiS As Integer, intHeS As Integer     Dim intWi

Option Explicit Option Base 0 ' Public Sub 笹の葉模様描画マクロ()     Const BMBGLEFT = 90　　　      '描画開始位置Ｘ     Const BMBGTOPP = 80 　　　　 '　　　　　　Ｙ     '     Const BMBGVSPC = 60              '横-間隔     Const BMBGHSPC = 35              '縦-間隔     '     Const BMBGCOLS = 5                '横/描画数     Const BMBGROWS = 5               '縦/描画数     '     Const BMBGBZMG = 1.2            'ベジェ倍率     Const BMBGLNSP = (9 * BMBGBZMG)     '葉脈     Const BMBGLNEP = (18 * BMBGBZMG)     Const BMBGLNWT = 0.75           '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intDxp As Integer, intDyp As Integer    

こんばんは！なつきです(*'▽')今日は、ショートカットキーについて少しお話しさせてください♪ショートカットキーと言われて、聞きなじみがある方・ない方いらっしゃると思います。ショートカットキーを簡単に説明すると、”キーボード上にあるボタンを複数組み合わせて入力すると、マウスを使わず作業が出来てしまう！”といった、便利な機能です(^^♪かなりたくさん種類があるので、私が実際によく使用しているものを集めました♪※Ctrlキーは、だいたいキーボードの左下あたりにあるかと思います！Windowsユーザー）コピー：Ctrlキー+C貼り付け：Ctrl+V切り取り：Ctrl+Ｘ1個前の操作に戻りたい：Ctrl+Ｚ上書き保存：Ctrl+Ｓ印刷：Ctrl+Ｐ※Macユーザーの方は、CtrlをCmdキーへ置き換えてみてください。この辺りは、よく使う基本的なショートカットキーですね☆あなたも覚えて実際に使ってみてください♪仕事の効率があがりますよ(*'▽')

Option Explicit Option Base 0 ' Public Sub つた家紋描画マクロ()     Const IVYSLEFT = 150　　        '*描画開始位置Ｘ     Const IVYSTOPP = 150 　　　　'　  　　　　　Ｙ     '     Const IVYSYOPS = 180             '*円弧描画Ｙ位置補正値     Const IVYSCRAD = 8                '*真ん中の丸半径     Const IVYSLNWE = 4               '*線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer     Dim Kp As Integer, Lp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol(1) As Long     Dim sngBBas() As Single, sngBDat() As Single     Dim varBezi As Variant     Dim sngABas() As Single, sngADat() As Single     Dim varArcL As Variant     '     '*外形輪郭ベジェ曲線データ     varBezi = Array(70.3,

Option Explicit Option Base 0 ' Public Sub 水仙の花描画マクロ()     Const NARCLEFT = 100　　　　    '描画開始位置Ｘ     Const NARCTOPP = 100 　　　　  '　　　　　　Ｙ     '     Const NARCCOLS = 4                  '横/描画数     Const NARCROWS = 3                 '縦/描画数     '     Const NARCVPIT = 70                 '横/描画間隔     Const NARCHPIT = 60                '縦/描画間隔     '     Const NARCBZMG = 0.2              'ベジュ曲線描画倍率     Const NARCFRAD = (77.4 * NARCBZMG)      '花びら     Const NARCGRAD = (90.1 * NARCBZMG)      '筋     Const NARCMRAD = 11               '中側花びら半径     Const NARCORAD = 2                 'おしべ描画半径     Const NARCARAD = 3     '     Const NARCLNWE = 1 '線の太さ     '---------------------------------------------------

Option Explicit Option Base 0 ' Public Sub 工字繋ぎ文様描画マクロ2()     Const KOJILEFT = 150           '描画開始位置Ｘ     Const KOJITOPP = 100          '　　　　　　Ｙ     '     Const KOJIPRAT = 5              'ポリライン描画倍率     '     Const KOJICOLS = 6             '横描画数     Const KOJIROWS = 5           '縦描画数     Const KOJICXP1 = 0             '横連結ポイント     Const KOJICXP2 = 6     Const KOJICYP1 = 5             '縦連結ポイント     Const KOJICYP2 = 17     '     Const KOJILNWE = 1.5        '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngColr(1) As Long     Dim intDxp As Integer, intDyp As Integer     Dim varPoly As Variant     D

Option Explicit Option Base 0 ' Public Sub 虹描画マクロ()     Const RNBWLEFT = 80 　　　'描画開始位置Ｘ     Const RNBWTOPP = 80 　　  '　　　　　　Ｙ     '     Const RNBWIRAD = 20         '内側の半径     Const RNBWRDSP = 3          '色の間隔幅     '横-間隔     Const RNBWVPIT = _           (RNBWIRAD + RNBWRDSP * 7) * 2 + 5     '縦-間隔     Const RNBWHPIT = _           (RNBWIRAD + RNBWRDSP * 7) * 1 + 5     Const RNBWCOLS = 4          '横/描画数     Const RNBWROWS = 4         '縦/描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intRnd As Integer, lngCol(6) As Long     '     '*虹の色を指定（内側→→外側）/紫-青

Option Explicit Option Base 0 ' Public Sub 三つ枡模様描画マクロ()     Const TMASLEFT = 100　　　        '描画開始位置Ｘ     Const TMASTOPP = 100 　　　　　'　　　　　　Ｙ     '     Const TMASLEN1 = 8 　　　　　　 '枡のサイズ１     Const TMASLEN2 = 12                  '枡のサイズ２     '     Const TMASCOLS = 6                   '横/描画数     Const TMASROWS = 4                 '縦/描画数     '     Const TMASLNW1 = 3                 '線の太さ１     Const TMASLNW2 = 4                 '線の太さ２     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intPit As Integer, intAng As Integer     Dim blnTyp As Boolean, intLen As Int

Option Explicit Option Base 0 ' Public Sub 霞文様描画マクロ()     Const HAZELEFT = 80　　　    '描画開始位置Ｘ     Const HAZETOPP = 90 　　　  '　　　　　　Ｙ     '     Const HAZESWD1 = 50           '描画幅1     Const HAZESWD2 = 12           '描画幅2(連結部分)     Const HAZESWD3 = 36           '描画幅3     Const HAZESHT1 = 6              '描画高さ     Const HAZESHT2 = 5              '描画高さ(連結部分)     '     Const HAZESMIS = 0.5            '霞描画位置係数     Const HAZESCNT = 3              '霞の段数     '     Const HAZELNRV = 3              '連結描画補正値     Const HAZEVSPC = 75            '横-間隔     Const HAZEHSPC = 40            '縦-間隔     Const HAZECOLS = 4             '横/描画数     Const HAZEROWS = 4            '縦/描画数     '--------------------------

Option Explicit Option Base 0 Public Sub 撫子文様描画マクロ()   Const PINKLEFT = 120 　　　'描画開始位置 Ｘ     Const PINKTOPP = 100　　  '　　          　Ｙ     Const PINKPLMG = 0.3 　　 'ポリライン描画倍率     '     Const PINKVSPC = 50         '横-間隔     Const PINKHSPC = 50         '縦-間隔     Const PINKCOLS = 5           '横/描画数     Const PINKROWS = 4          '縦/描画数     '     Const PINKLNWT = 1            '線の太さ     Const PINKRADI = 26.1 + 8   '花びらの中心と                                                 '花の中心距離     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim intDxp As Intege

Option Explicit Option Base 0 ' Public Sub 瓢箪模様描画マクロ()     Const GOURLEFT = 100 　　　　'描画開始位置Ｘ     Const GOURTOPP = 100　　　   '　　　　　　Ｙ     '     Const GOURSWID = 35　　       '描画幅     Const GOURSHEI = 45　　        '描画高さ     '     Const GOURMAGI = 0.1 　　　　'ベジェ描画倍率     Const GOURCOLS = 7 　　　　　'横/描画数     Const GOURROWS = 4 　　　　 '縦/描画数     '     Const GOURLNWE = 1              '線の太さ     Const GOURSANG = 30             '図の傾き     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol(1) As Long     Dim intDxp As Integer, intDyp As Integer     Dim sngBas(18, 1) As Single, varBez As Variant     Dim sngDat(18, 1) As

Option Explicit Option Base 0 ' Public Sub ハーリキンチェック描画マクロ()     Const HLQNLEFT = 100 　　　　　　　'描画開始位置Ｘ     Const HLQNTOPP = 90 　　　　　　　 '　　　　　　Ｙ     '     Const HLQNWIDT = 25                      'ひし形幅     Const HLQNHEIG = 25                       'ひし形高     '     Const HLQNCOLS = 8                        '横描画数     Const HLQNROWS = 6                       '縦描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long     '     lngCol = vbBlack                            '←塗りつぶし色     For Jp = 0 To HLQNROWS - 1         intDyp = HLQNTOPP + HLQNHEIG * Jp         For Ip =

Option Explicit Option Base 0 ' Public Sub 平行四角形模様描画マクロ()     Const PRLLLEFT = 90 　　　　　　　'描画開始位置Ｘ     Const PRLLTOPP = 80　　　 　　　   '　　　　　　Ｙ     '     Const PRLLSWID = 24                     '描画幅     Const PRLLSHEI = 24                      '描画高さ     '     Const PRLLVSPC = -6                      '横-間隔     Const PRLLHSPC = 0                       '縦-間隔     Const PRLLCOLS = 10                     '横/描画数     Const PRLLROWS = 7                     '縦/描画数     '     Const PRLLLNWE = 1.5                   '線の太さ     Const PRLLANGL = 0.5                    '辺の傾き     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer,

Option Explicit Option Base 0 ' Public Sub モロッカン柄描画マクロ()     Const MOROLEFT = 100 　　　　　　'描画開始位置Ｘ     Const MOROTOPP = 70　　　　        '　　　　　　Ｙ     '     Const MORORADI = 12 　　　　　　 '半円の半径     Const MOROSTLN = 6                     '直線の長さ     Const MOROCOLS = 8                    '横描画数     Const MOROROWS = 3                   '縦描画数     '     Const MOROLNWE = 2                   '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long     '     lngCol = RGB(47, 79, 79)              '←線色     For Ip = 0 To MOROCOLS - 1         intDxp = MOROLEFT + (MORORADI * 2)

Option Explicit Option Base 0 Public Sub 朝顔描画マクロ()     Const MOGLLEFT = 80 　　 '描画開始位置Ｘ    Const MOGLTOPP = 70　    '　　　　　　Ｙ　　    '     Const MOGLSIZE = 36 　　　  'サイズ     Const MOGLVSPC = 50 　　 　'垂直間隔     Const MOGLHSPC = 50 　　 　'水平間隔     '     Const MOGLCOLS = 6 　　 　  '横描画数     Const MOGLROWS = 4 　　 　'縦描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol(4) As Long     '     lngCol(0) = RGB(30, 144, 255): lngCol(1) = RGB(255, 20, 147)     lngCol(2) = RGB(138, 43, 226): lngCol(3) = RGB(100, 149, 237)     lngCol(4) = RGB(221, 160, 221)     For Jp = 0 To

Option Explicit Option Base 0 Public Sub ハニカム構造描画マクロ()     Const HEXAXCNT = 7 　　　　　　　　'横方向六角形数     Const HEXAYCNT = 3 　　　　　　　　'横方向六角形数     '     Const HEXALEFT = 80 　　　　　　　 'ハニカム左位置　X     Const HEXATOPP = 90                      '            上         Y     Const HEXAWIDT = 40                      '六角形幅     Const HEXAHEIG = 40                       '六角形高さ     Const HEXASPAC = 5                        '六角形と六角形の間隔    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intXp As Integer, intYp As Integer     '     For Jp = 0 To HEXAYCNT - 1         For Ip = 0 To HEXAXCNT - 1             intXp = HEXALEFT + ((HEXAWIDT + HEXASPAC

Option Explicit Option Base 0 ' Const CNS_PAI As Double = 3.14159265358979 　　'π ' Const SIERCXPT As Integer = 250　　　   '描画開始位置Ｘ Const SIERCYPT As Integer = 250 　　　  '                  Ｙ Const SIERLENG As Integer = 10             '辺の長さ Const SIERORDR As Integer = 3              '次数 ' Const SIERLNCL As Long = 2263842       '線の色(緑)Const SIERLNWT As Single = 1.5 　　　　'線の太さ '--------------------------------------------------------------------------- Public p_intDxp As Integer 　　　　　　　'描画位置Ｘ(変数) Public p_intDyp As Integer 　　　　　　　'　　　   Ｙ(変数) Public p_intAng As Integer　　　　　　    '描画角度 '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*Public Sub シェルピンスキー曲線描画マクロ() 'Wac?aw Sierpi?

Option Explicit Option Base 0 ' Public Sub 三葉線模様描画マクロ()     Const THLFCNXP = 100　　  '描画開始中心位置Ｘ     Const THLFCNYP = 120  　　'　　　　　　　　Ｙ     '     Const THLFANSP = 5            '描画刻み角度     Const THLFRATE = 15          '線の長さ倍率     '     Const THLFCOLS = 4           '横描画数     Const THLFVPIT = THLFRATE * 4.5   '横間隔     Const THLFLNWE = 1          '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim sngPBas(360 / THLFANSP, 1) As Single     Dim sngPDat(360 / THLFANSP, 1) As Single     '     Dim sngSit As Single, sngRad As Single     Dim sngR

Option Explicit Option Base 0 ' Public Sub 千鳥模様描画マクロ()     Const CHIDLEFT = 80 　　　　　　　　'描画開始位置Ｘ     Const CHIDTOPP = 90　　　　　　      '　　　　　　Ｙ     '     Const CHIDVSPC = 80　　　　　         '横-間隔     Const CHIDHSPC = 70 　　　　　  　　'縦-間隔     '     Const CHIDCOLS = 4　　　　　　       '横/描画数     Const CHIDROWS = 4                        '縦/描画数     '     Const CHIDBZM1 = 0.4                      'ベジェ曲線描画倍率     Const CHIDBZM2 = CHIDBZM1     '     Const CHIDLFDX = 80 * CHIDBZM1    '千鳥足１相対位置     Const CHIDLFDY = 10 * CHIDBZM1     Const CHIDRFDX = 56 * CHIDBZM1    '千鳥足２相対位置     Const CHIDRFDY = 50 * CHIDBZM1     '     Const CHIDEYSZ = 20 * CHIDBZM1     '千鳥目玉大きさ     Const CHIDEYDX = -30 * CHIDBZM1   '千鳥目玉相対位置    

Option Explicit Option Base 0 ' Public Sub 三角形模様描画マクロ()     Const TANGLEFT = 110　　　　   '描画開始位置Ｘ     Const TANGTOPP = 100　　        '　　　　　　Ｙ     '     Const TANGOSIZ = 40　　　       '外側三角形サイズ     Const TANGISIZ = 20 　　 　　　'内側三角形サイズ     Const TANGCREV = 1.5              '内側三角形補正     '     Const TANGCOLS = 10               '横/描画数     Const TANGROWS = 6               '縦/描画数     '     Const TANGLNWE = 1.5            '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intDht(1) As Integer, BlnUpD As Boolean     Dim lngCol(2) As Long, sngHpW As Single     '     lngCol(0) = RGB(1

Option Explicit Option Base 0 ' Public Sub 毘沙門亀甲文様描画マクロ()     Const BTTLLEFT = 120                '描画開始位置Ｘ     Const BTTLTOPP = 110               '　　　　　　Ｙ     '     Const BTTLPSIZ = 10                  'ピースサイズ     '     Const BTTLCOLS = 7                  '横/描画数     Const BTTLROWS = 5                '縦/描画数     '     Const BTTLLNWE = 1.5              '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intDwd As Integer, intDht As Integer     Dim sngRnd As Single, sngAng As Single     Dim sngBas(12, 1) As Single, sngPol(12, 1) As Single     D

Option Explicit Option Base 0 ' Public Sub 鮫文様描画マクロ()    Const SHRKLEFT = 120　　　　        '描画開始位置Ｘ     Const SHRKTOPP = 135　　　　       '　　　　　　Ｙ     '     Const SHRKFRAD = 10 　　　　　　'扇半径間隔     Const SHRKCONT = 5 　　　　　　 '扇半径数     Const SHRKSWID = SHRKFRAD * SHRKCONT  '描画幅     Const SHRKSHEI = (SHRKSWID - 5)               '描画高さ     Const SHRKCOLS = 5                    '横/描画数     Const SHRKROWS = 4                   '縦/描画数     '     Const SHRKLNWE = 3                   '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intDxp As Integer, intDyp As Integer     Dim intRad As Integer

Option Explicit Option Base 0 Public Sub 回転する六角形描画マクロ()     Const HEXALEFT = 100 　　　　'描画の開始位置Ｘ     Const HEXATOPP = 90 　　　　 '                 　 Ｙ     Const HEXALENG = 180            '六角形の大きさ     Const HEXASTPP = 0.9              '六角形の縮小率     Const HEXAANGL = 7                '六角形の傾き角     Const HEXACONT = 25              '六角形の数     '     Const HEXALNWT = 1.5             '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, intLng As Integer     Dim lngCol As Long     '     lngCol = RGB(153, 50, 204)          '←線の色     intLng = HEXALENG \ 2     For Ip = 0 To HEXACONT - 1         With ActiveDocument.Shapes.AddShape(msoShapeHexagon,

Option Explicit Option Base 0 ' Public Sub 提灯描画マクロ()     Const PLNTLEFT = 90 　　　'描画開始位置Ｘ     Const PLNTTOPP = 80 　　  '　　　　　　Ｙ     '     Const PLNTSWID = 30         '描画(火袋)幅     Const PLNTSHEI = 30          '描画(火袋)高さ     '     Const PLNTRWID = 20        '描画(塗輪)幅     Const PLNTRHEI = 6           '描画(塗輪)高さ     Const PLNTVSPC = 10        '横-間隔     Const PLNTHSPC = 20        '縦-間隔     Const PLNTCOLS = 5          '横/描画数     Const PLNTROWS = 4         '縦/描画数     '     Const PLNTLNWE = 0.5       '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intWxp As Integer, lngCol(

Option Explicit Option Base 0 Public Sub ルーローの五角形描画マクロ()     Const REULCXP = 160                  '描画中心位置Ｘ     Const REULCYP = 150                  '                  Ｙ     Const REULRAD = 70                   '径     '     Const REULLWE = 3.5                  '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, dblRd As Double     Dim intXp As Integer, intYp As Integer     Dim intRd As Integer, lngCl As Long     '     lngCl = RGB(34, 139, 34)　　　'←線色     dblRd = (4 * Atn(1)) / 180     intRd = CInt(REULRAD * Sin(dblRd * 72) * 2)     For Ip = 0 To 4         intXp = CInt(REULCXP + REULRAD * Sin(dblRd * 72 * Ip))         intYp = CInt(REULCY

Option Explicit Option Base 0 ' Public Sub 雲立涌文様描画マクロ()     Const CLTWLEFT = 100                  '描画開始位置Ｘ     Const CLTWTOPP = 80                   '　　　　　　Ｙ     '     Const CLTWUNIT = 40                   '波線周期長さ     Const CLTWAMPL = 20                  '波線周期振れ     Const CLTWYDVT = 3                    '振れ位置補正     '     Const CLTWBETW = 30                 '波線間隔     Const CLTWCLWD = 16                 '雲の幅     '     Const CLTWCOLS = 7                   '横描画数     Const CLTWROWS = 5                  '縦描画数     '     Const CLTWLNW1 = 2                  '波線の太さ     Const CLTWLNW2 = 1.5               '雲の線の太さ     '---------------------------------------------------------------------------     Dim I

Option Explicit Option Base 0 ' Public Sub 雪輪文様描画マクロ()     Const SNOWLEFT = 90　　　          '描画開始位置Ｘ     Const SNOWTOPP = 90　　　         '　　　　　　Ｙ     '     Const SNOWHZSP = 70 　　  　　　'水平間隔     Const SNOWVTSP = 70                  '垂直間隔     '     Const SNOWCOLS = 3                   '横 描画数     Const SNOWROWS = 3                  '縦 描画数     '     Const SNOWLNWT = 1                  '線の太さ     '     Const SNOWSZ1 = 20                    '雪輪半径１     Const SNOWSZ2 = 10                    '雪輪半径２     Const SNOWGAP = 3                     '雪輪の隙間     '     Const SNOWARCA = 40                 '円弧描画角     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp

Option Explicit Option Base 0 ' Public Sub 三つ巴模様描画マクロ()     Const TOMOLEFT = 90                     '描画開始位置Ｘ     Const TOMOTOPP = 80                    '　　　　　　Ｙ     '     Const TOMOSIZE = 12                    '内側円直径     Const TOMORADI = TOMOSIZE / 2  '内側円半径     Const TOMOHZSP = 25                   '水平間隔     Const TOMOVTSP = 70                   '垂直間隔     Const TOMOCOLS = 4                    '横 描画数     Const TOMOROWS = 6                   '縦 描画数     '     Const TOMOLNWE = 1                    '線の太さ    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intCxp As Integer, intCyp As In

Option Explicit Option Base 0 Public Sub 小菊文様描画マクロ()     Const SCHRLEFT = 120         '描画開始位置　X     Const SCHRTOPP = 100        '                     Y     '     Const SCHRMRAD = 3           '真ん中●半径     Const SCHRCRAD = 10          '周り●並び半径     Const SCHRHRAD = 22          '花びら並び半径     '     Const SCHRROWS = 4           '描画数(縦)     Const SCHRCOLS = 5            '描画数(横)     Const SCHRROLN = 65　　    '縦方向間隔     Const SCHRCOLN = 65 　　　'横方向間隔     '     Const SCHRBZXX = 0.05　　  'ベジェ曲線倍率     Const SCHRBZYC = -5 　　　  'ベジェ曲線描画位置補正値     '     Const SCHRLNWE = 0.75　　  '輪郭線の太さ      '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim K

Option Explicit Option Base 0 Public Sub 対数グラフ目盛り描画マクロ()     Const LOGAXCNT = 5 '横方向桁目盛り数     Const LOGAYCNT = 5 '横方向桁目盛り数     '     Const LOGAWIDT = 40 '桁目盛り幅     Const LOGAHEIG = 40 '桁目盛り高     '     Const LOGALEFT = 80 '目盛り描画開始位置     Const LOGATOPP = 100 '     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intXps(9) As Integer, intYps(9) As Integer     Dim intXp As Integer, intYp As Integer     '     '*座標テーブル     intXps(0) = 0: intYps(0) = 0:     For Ip = 1 To 9         intXps(Ip) = CInt((Log(Ip) / Log(10)) * LOGAWIDT)         intYps(Ip) = CInt((Log(Ip) / Log(10)) * LOGAHEIG)     Next Ip    

Option Explicit Option Base 0 Public Sub 迷路描画マクロ()     Const MAZEXCNT = 12           '迷路横方向マス数     Const MAZEYCNT = 12           '迷路縦方向マス数     '     Const MAZELEFT = 80            '迷路描画開始位置     Const MAZETOPP = 60           '迷路     '     Const MAZEWIDT = 240         '迷路幅     Const MAZEHEIG = 240　　    '迷路高     '     Const MAZEWCOL = vbBlue　  '迷路壁線色     Const MAZEWWEI = 1.5 　　　'　　　　太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer, Lp As Integer     Dim intGrWd As Integer, intGrHe As Integer, intXp As Integer　 Dim intYp As Integer     Dim intMzDt(MAZEXCNT - 1, MAZEYCNT - 1, 2) As Integer     Dim intRn As Inte

Excelは一般的に使われているソフトですが、みなさんはどのように使われていますか？結局、独学であることも多いかもしれませんね。いま仕事ではExcelを使えてはいるかもしれないですが、もしかするとゴリゴリ使いこなしていい方法で使っているということはないかもしれないですね。社員同士や会社の先輩から教えてもらうとしても、それ以上の使い方にはなかなか発展しないものです。そこから飛び出すためには、どうしたらいいのか。やはり自分の考えの世界より広い世界を見ることが必要です。手法は次の通り。パソコンインストラクターにマンツーマンで教えてもらうプロのインストラクターに1対1で教えてもらいます。講師が用意した内容を教えてもらう場合と、事前にニーズを言って教えてもらう場合があります。その場合は丁寧にニーズにマッチングした内容で教えてもらえます。高額ですが、確実に量を教えてもらえます。書籍で勉強する特にExcelの書籍はたくさん用意されています。どれも詳しくなれそうな本なのですが、それがみなさんに合うとは限りません。皆さんの現在のレベルよりも低いことが書いてあったり、逆にとても高いレベルのことが書いてあったり、自分には関係ない分野の使い方が書いてあるかもしれません。データを分析したいのに業務効率化のためのExcelの本ではまったく違うのです。独学で使う書籍は十分に検討しないと変なクセがつくといったこともあるかもしれません。ココナラでちょっと聞くココナラでほんのちょっとだけ聞きたいときだけ聞くということでもいいでしょう。しかし、例えば10分間のサービスの中で1つの質問だけではもったいないでしょう。あ

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

お久しぶりです、ほしのひろです💦少し前に転職をいたしまして、バタバタしておりました！少し落ち着いてきたので、ブログ再開します。久しぶりということもあるので、今回は仕事に役立つお話にします。仕事でパソコンを使う上で大事なのが、効率よく、しかも正確にこなすことです。そこで、覚えておくと良いのがショートカットキー。ショートカットキーというのは、通常なら「ファイルを開く」ボタンをクリックしたり「コピー」ボタンをクリックしたりとマウスを使った操作が多いのですが、それをキーボードの決まったキーを押すことで素早く操作できるというもの。「ショートカット」とは英語で「近道」という意味があり、「目的の操作を少しでも早く行える」ということですね。ショートカットキーは沢山あるので、特にショートカットキーに慣れていない初心者の方はこの5つを覚えていただくと良いと思います。・Ctrlキー＋Sキー　→　上書き保存・Ctrlキー＋Cキー　→　コピー・Ctrlキー＋Xキー　→　切り取り（移動）・Ctrlキー＋Vキー　→　貼り付け・Ctrlキー＋Pキー　→　印刷わざわざマウスに持ち替えて、ボタンの位置を探しながらクリックするよりも、キーボードで文字入力をしながら、ササっと操作が出来るのが何よりのメリット。どれもよく使う機能ばかりなので、まずはこの5つから覚えて、徐々に色んなショートカットキーを覚えると良いと思いますよ♪それでは、今日も最後まで読んでいただき有難うございました！

はじめまして(^^♪ココナラ初心者でオンラインアシスタントしております”むっちマム”と申します。現在、中学生・高校生の２人の母です！パソコン業務に長年携わっており、誰かのお役に立てれたら嬉しいなというきっかけでココナラを始めました！Word・Excel書類作成関係全般できます！現在、本業で経理をしておりますので、経理関係のデータ整理もできます！どうぞよろしくお願いいたします。

Option Explicit Option Base 0 ' Public Sub 捻り梅描画マクロ()     Const TWPLLEFT = 80                  '描画開始位置Ｘ     Const TWPLTOPP = 80                  '　　　　　　Ｙ     '     Const TWPLCOLS = 5                   '横/描画数     Const TWPLROWS = 4                  '縦/描画数     '     Const TWPLBZMG = 0.2                'ベジェ曲線描画倍率     Const TWPLFRAD = 74.35 * TWPLBZMG         '花びら中心位置     Const TWPLARAD = 40.01 * TWPLBZMG        '花びらしわサイズ     Const TWPLHEIG = 56.36 * TWPLBZMG         '　　〃     Const TWPLCRAD = 25.01 * TWPLBZMG        '真ん中の円半径     Const TWPLLNWE = 1.5 '線の太さ     '     Const TWPLVPIT = TWPLFRAD *4                 '横/描画間隔     Const TWPLHPIT = TWPLFRAD * 4               

Option Explicit Option Base 0 ' Public Sub ミニトマト描画マクロ()     Const MITOLEFT = 90                 '描画開始位置Ｘ     Const MITOTOPP = 90                '　　　　　　Ｙ     '     Const MITORADI = 20                'トマトの実の半径     Const MITOSWID = (MITORADI * 2)          '描画幅     Const MITOSHEI = (MITORADI * 2)           '描画高さ     '     Const MITOHRAD = (MITORADI * 0.7)    'へた位置     Const MITOHLWD = 10                          'へたの幅     Const MITOHLHT = 10                           'へたの高さ     '     Const MITOERAD = (MITORADI * 0.8)    'てり位置     Const MITOEFWD = 5                            'てりの幅     Const MITOEFHT = 10                           'てりの高さ     Const MITOVSPC = 3                             '横-間隔  

Option Explicit Option Base 0 ' Public Sub 花青海波文様描画マクロ()     Const FWAVLEFT = 110 　　'描画開始位置Ｘ     Const FWAVTOPP = 125 　　'　　　　　　Ｙ     '     Const FWAVFRAD = 4 　　　'扇半径間隔     Const FWAVMARG = 10 　　'扇半径Ｘ数     Const FWAVSWID = (FWAVFRAD * FWAVMARG)　  '描画幅     Const FWAVSHEI = (FWAVSWID - 5) 　　　　　　　'描画高さ     '     Const FWAVPRAD = (FWAVSWID / 2) 　　　'花びら位置径     Const FWAVPWID = 5　　　　　　               '花びら幅     Const FWAVPHEI = FWAVPRAD                   '花びら丈     Const FWAVPANG = 20                               '花びら刻み角     '     Const FWAVCOLS = 5                                  '横/描画数     Const FWAVROWS = 4                                 '縦/描画数     '     Const FWAVLNWE = 3                 

Option Explicit Option Base 0 ' Public Sub 菱菊描画マクロ()     Const DCHRCXPS = 200　　　　　　    '菊の中心位置　X     Const DCHRCYPS = 180 　　　　　　　' Y     '     Const DCHRHLNG = 120　　　　　　   '花びらの長さ(長い方)     Const DCHRVLNG = 80 　　　　　　　 '花びらの長さ(短い方)     '     Const DCHRSRAD = 18                       '中央円の半径     '     Const DCHRLNWN = 2                       '描画線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim sngRnd As Single, sngAng(1) As Single     Dim intExp As Integer, intEyp As Integer     Dim intErd As Integer, intDps(11, 1) As Integer     '     '     lngCol = RGB(148, 0, 21

Option Explicit Option Base 0 ' Public Sub サークル模様描画マクロ()     Const CIRCLEFT = 100 　　　　　　　'描画開始位置Ｘ     Const CIRCTOPP = 100 　　　　　　  '　　　　　　Ｙ     Const CIRCCOLS = 8                         '横/描画数     Const CIRCROWS = 7                        '縦/描画数     Const CIRCCONT = (CIRCCOLS * CIRCROWS)     '     Const CIRCSRAD = 5                         '中心円半径     Const CIRCCSPC = 3                         '半径刻み幅     Const CIRCCCNT = 5                         '描画円数     '     Const CIRCLNWT = 1.5                     '線の太さ     '円と円の間隔     Const CIRCVSPC = (CIRCSRAD * 2  _                           + CIRCCSPC * (CIRCCCNT))     Const CIRCHSPC = CIRCVSPC     '--------------------------------------------------