【エクセルマクロ】鬼滅の刃のドット絵を作ってみた_背景色を塗る

エクセルマクロ_鬼滅の刃のドット絵を作成する方法_アイキャッチ エクセルマクロで効率化する

エクセルマクロで、鬼滅の刃のドット絵を作るVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

鬼滅の刃のドット絵を作ってみた(煉獄杏寿郎)

以下のマクロを実行すると、背景色を着色して煉獄杏寿郎のドット絵を作成します。


Sub Excelドット絵で煉獄杏寿郎を描く()

    Columns("A:AH").Select
    Selection.ColumnWidth = 1

    Rows("1:42").Select
    Selection.RowHeight = 10
    
    '眉毛
    With Range("G20,H20,I19,H21:J21,J20,K21,J22:L22,M23,M24")
        .Interior.ThemeColor = xlThemeColorLight1
        .Interior.TintAndShade = 0.349986266670736
    End With
    
    With Range("Q23,Q24,R22:T22,S21:T21,U21,T20,U19,V20,W20")
        .Interior.ThemeColor = xlThemeColorLight1
        .Interior.TintAndShade = 0.349986266670736
    End With
    
    '目元と口元
    Range("F23:L23,H24,L24,M25,Q25,R24,R23:W23,V24,M30,N31:P31,Q30"). _
        Interior.ThemeColor = xlThemeColorLight1

    '赤
    Range("C8:H8,D9:F9,E7,G7,G10,I9,C11:E12,D10,B11,F12,D13:E15,C14,F15:G15"). _
        Interior.Color = 13260
    Range("V8:AA9,W7,Y7,U9,X10,W11,Z10,Z11:AC11,Y12:Z15,AA12,X13,W15:X15"). _
        Interior.Color = 13260
    Range("J24:K24,J25:J26,K26:L26,L25,R25:R26,S26:T26,T24:T25,S24,AA14:AB14"). _
        Interior.Color = 13260
    Range("E25:E29,D26:D28,D30:D31,D32,E31:H32,F30,I32,F33,E34"). _
        Interior.Color = 13260
    Range("Y25:Y29,Z26:Z28,V31:Z32,U32,X30,Z30,AA32,X33,Y34"). _
        Interior.Color = 13260

    'お肌
    With Range("I17:M18,Q17:U18,R16,L16,H18:H19,V19,J19:T19,L20:R21,S20,K20,I20,U20")
        .Interior.ThemeColor = xlThemeColorAccent2
        .Interior.TintAndShade = 0.799981688894314
    End With
    
    With Range("N23:P30,Q26:Q29,M26:M29,R27:U30,H27:L28,H25:I26,I24,U24:U26,V25:V28,Q22")
        .Interior.ThemeColor = xlThemeColorAccent2
        .Interior.TintAndShade = 0.799981688894314
    End With
    
    With Range("I29:L30,J31:M31,K32:S32,Q31:T31,R30:U30,V21:V22,U22,H22:I22,M22:P22")
        .Interior.ThemeColor = xlThemeColorAccent2
        .Interior.TintAndShade = 0.799981688894314
    End With
    
    'ベージュ
    With Range("H6,I5,J4,K3,L4:R4,S3,T4,U5,V6,V7,J7:J10,K8,L9,N18,P18,M10,N11:N12,O13:O14,P11:P12,Q10,R9,G18:G19,H17")
        .Interior.ThemeColor = xlThemeColorAccent4
        .Interior.TintAndShade = -0.249977111117893
    End With
        
    With Range("I16:K16,L15,M16,N17,O18,P17,Q16,R15,S16:U16,V17:V18,W18:W19,W21:W22,W24:W28,V29:V30,U31,T32,K33:S33,J32")
        .Interior.ThemeColor = xlThemeColorAccent4
        .Interior.TintAndShade = -0.249977111117893
    End With
    
    With Range("D16:D17,C18,B19,C20,B21,C22,B23,C24,E22:E24,D25,C26,B27,C28,B29,C30,B31:B32,C32,T7:T10,G24:G28,G21:G22")
        .Interior.ThemeColor = xlThemeColorAccent4
        .Interior.TintAndShade = -0.249977111117893
    End With

    With Range("Z16:Z17,AA18,AB19,AA20,AB21,AA22,Z23,AA24,Z25,AA26,AB27,AA28,AB29,AC30:AC32,AB32,S8,I31,H29:H30")
        .Interior.ThemeColor = xlThemeColorAccent4
        .Interior.TintAndShade = -0.249977111117893
    End With

    '黄色
    Range("K5:S7,L8:R8,M9:Q9,N10:P10,O11:O12,I6:I8,J5:J6,K4,H7,S4,X23,Y24,F22,T5:T6,U6:U8"). _
        Interior.Color = 65535
    Range("G11:M14,E10:F10,F11,G9:H9,H10:I10,K9:K10,L10,F13:F14,F14,H15:K15,E16:F21,D19:D24,G16:G17,H16,D18,C19,C21,C23"). _
        Interior.Color = 65535
    Range("F23,F24:F29,F29,G29:G30,E30,C31,C29:D29,C27,M15,N13:N14"). _
        Interior.Color = 65535
    Range("N15:P16,O17,P13:W14,Q11:V12,R10:S10,S9,Q15,U10:W10,W12:X12,X11,Y11,Y10,X14,S15:V15,V16:Y16,W17:Y17"). _
        Interior.Color = 65535
    Range("X18:Z22,AA19,AA21,Y23,Z24,X24:X29,W29:W30,AA27,Z29:AA29,AA30:AB31,Y30"). _
        Interior.Color = 65535
        
    Range("A1").Select

End Sub
マクロ実行後

エクセルシートに炎柱 煉獄杏寿郎(れんごくきょうじゅろう)のドット絵を作成しました。

ドット絵専用のツールなどを使わずに、地道にセルを着色しています。

※罫線は手動で追加しています。


 
 

鬼滅の刃のドット絵を作ってみた(甘露寺蜜璃)

以下のマクロを実行すると、背景色を着色して甘露寺蜜璃のドット絵を作成します。


Sub Excelドット絵で甘露寺蜜璃を描く()

    Columns("A:AH").Select
    Selection.ColumnWidth = 1

    Rows("1:42").Select
    Selection.RowHeight = 10
    
    '眉毛と目元と口元
    With Range("J18,K17,L16,M15,S15,T16,U17,V18,J21:K22,K20:M20,N21,L23,R21,S20:U20,U21:V22,T23,N26,R26,O27:Q27")
        .Interior.ThemeColor = xlThemeColorLight1
    End With
    
    '緑
    With Range("E24:H24,F25:H27,G28:I30,I31:I32,J32:J33,X24:AB24,X25:AA25,X26:Z27,W28:Y30,W31:X31,V32:W32,V33")
        .Interior.ThemeColor = xlThemeColorAccent6
        .Interior.TintAndShade = 0.399975585192419
    End With
    
    With Range("H18:H22,G20,I22,X18:X22,Y20,W22,L21:M21,M22:M24,K23:K24,L24,S21:T21,S22:S24,T24:U24,U23")
        .Interior.ThemeColor = xlThemeColorAccent6
        .Interior.TintAndShade = 0.399975585192419
    End With
    
    With Range("K12:K14,M10:M12,N12:Q17,O18,Q18,O11:R11,S12,T13:T15,U14")
        .Interior.ThemeColor = xlThemeColorAccent6
        .Interior.TintAndShade = 0.399975585192419
    End With
    
    '濃いピンク
    With Range("K3:V3,J4:J5,I5:I6,H6,G7:G9,F10:F12,E13:E14,D16:D18,D15,E19,F20,E21,D22,C23:C24,D24,E25:E27,F29:F30,F28,G31:H31,H32")
        .Interior.Color = 9145343
    End With
    
    With Range("V4,W5:W6,X6:X7,Y7:Y9,Z10:Z12,AA13:AA14,AB15:AB18,AA19,Z20,AA21,AB22,AC23:AC24,AB25,AA26:AA27,Z28:Z31,Y31,X32")
        .Interior.Color = 9145343
    End With
     
    With Range("M7:M9,K7:K9,L10:L12,M13,K11,J10,I11:I15,F15,G16:H16,H17,G18,I18:I21,I23:I27,J28:J31,K32:K33,I33,I33:I34,J34")
        .Interior.Color = 9145343
    End With
     
    With Range("S7:S9,U7:U9,T10:T12,S11,R12,S13,V10,W11:W21,X16:X17,Y16,Z15,Y18,W23:W27,V28:V31,U32:U33,W33:W34,V34")
        .Interior.Color = 9145343
    End With

    '薄いピンク
    With Range("K4:U6,J6:J9,H7:I10,G10,G11:H15,F13:F14,N7:R10,N11,L7:L9,K10")
        .Interior.Color = 12698111
    End With
    
    With Range("E15,E16:F18,G17,F19:G19,F21:G23,D23:E23,E22,H23,J11:J13")
        .Interior.Color = 12698111
    End With
     
    With Range("S10,T7:T9,V5:V9,W7:W10,X8:X15,Y11:Y15,Y10,U10:U13,V11:V14,Z13:Z14")
        .Interior.Color = 12698111
    End With
     
    With Range("AA15:AA18,Z16:Z19,Y17,Y19,Y21:Z23,X23,AA22:AA23,AB23")
        .Interior.Color = 12698111
    End With
    
    'お肌
    With Range("J25:M27,K28:T28,N29:R29,R27:V27,S25:V26,V23:V24,N22:R25,O26:Q26,N27")
        .Interior.ThemeColor = xlThemeColorAccent2
        .Interior.TintAndShade = 0.799981688894314
    End With
    
    With Range("J23:J24,J19:V19,J20,V20,N20:R20,O21:Q21,P18,K18:N18,L17:M17,M16,R16:S18,T18")
        .Interior.ThemeColor = xlThemeColorAccent2
        .Interior.TintAndShade = 0.799981688894314
    End With
    
    With Range("I16:J17,J15:L15,K16,J14,L13:L14,M14,R13:R15,S14,U15:V16,V17,U18,T17")
        .Interior.ThemeColor = xlThemeColorAccent2
        .Interior.TintAndShade = 0.799981688894314
    End With
    
    
    Range("A1").Select

End Sub
マクロ実行後

エクセルシートに恋柱 甘露寺蜜璃(かんろじみつり)のドット絵を作成しました。

※罫線は手動で追加しています。


 
 

鬼滅の刃のドット絵を作ってみた(胡蝶しのぶ)

以下のマクロを実行すると、背景色を着色して胡蝶しのぶのドット絵を作成します。


Sub Excelドット絵で胡蝶しのぶを描く()

    Columns("A:AH").Select
    Selection.ColumnWidth = 1

    Rows("1:42").Select
    Selection.RowHeight = 10
    
    'お肌
    With Range("K14:W29")
        .Interior.ThemeColor = xlThemeColorAccent2
        .Interior.TintAndShade = 0.799981688894314
    End With
        
    '髪の毛
    With Range("G11:J26,K9:W13,V14:X16,K14:K15,K18:K20,L19,K23:K24,K26")
        .Interior.ThemeColor = xlThemeColorLight1
        .Interior.TintAndShade = 0.499984740745262
    End With
    
    '紫
    With Range("M22:O23,O21,U21,T22:U22,O21")
        .Interior.Color = 16737714
    End With
    
    With Range("H16:J18,H19:H20,J19:J20,K27:L30,X17:X20,Y17:Y18,X24:Z26,Y27:Z27")
        .Interior.Color = 16737714
    End With
        
    '眉毛と目元と口元
    With Range("M17:O17,L18,M20:O20,P21,K22,L21:L23,M24:N24,T17,U18,T20:U20,V21,T23:U23")
        .Interior.ThemeColor = xlThemeColorLight1
    End With
    
     With Range("Q26:R26,S25")
        .Interior.Color = 13260
    End With
    
    '輪郭
    With Range("X21:Y23,Z23,Y19:Y20,Z17:Z18,Y15:Y16,X12:X14,U10:W10,W11,Q9:T9,R10:R11,O10,P11")
        .Interior.ThemeColor = xlThemeColorLight1
    End With

    With Range("Q12,S12,M13:T13,Q14,S14,N14,L14:L16,K16:K17,L18,U14,V15:V16,W17:W19,L8:P8")
        .Interior.ThemeColor = xlThemeColorLight1
    End With

    With Range("N7,N9,K9,J10,I11,H12,G13:G15,F14,D12:F12,E13,F16:F23,E23,G24:G25,H26,I27:J27,J28:J30,I30,K31:L31")
        .Interior.ThemeColor = xlThemeColorLight1
    End With

    With Range("M27:M30,N29:O29,P30:Q30,R29:T29,U28,V27,K25,L26,W22:W26,X27,Y28:Y29,Z28,AA24:AA27")
        .Interior.ThemeColor = xlThemeColorLight1
    End With
        
    '薄い紫
    With Range("N5,O6,P7,M6,L7,G10:I10,E9:G9,C10:D10,B11:B12,C13:C15,D16,E17:E19,E19,D20:D24,E25:E28,F25")
        .Interior.Color = 16751052
    End With
    
    '耳
    With Range("I24:I25")
        .Interior.ThemeColor = xlThemeColorAccent2
        .Interior.TintAndShade = 0.799981688894314
    End With

    '色なし
    With Range("G11:G12,H11,G26,V28:W29,U29,W27,M21:N21,T21,U9:W9")
        .Interior.Pattern = xlNone
    End With
    
    Range("A1").Select

End Sub
マクロ実行後

エクセルシートに蟲柱 胡蝶しのぶ (こちょうしのぶ)のドット絵を作成しました。

※罫線は手動で追加しています。


 
 
ご覧いただきましてありがとうございます。
 

【エクセルマクロ】鬼滅の刃の羽織柄を作ってみた_背景色を塗る
...