エクセルマクロで、鬼滅の刃のドット絵を作る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
マクロ実行後
エクセルシートに蟲柱 胡蝶しのぶ (こちょうしのぶ)のドット絵を作成しました。
※罫線は手動で追加しています。
ご覧いただきましてありがとうございます。
【エクセルマクロ】鬼滅の刃の羽織柄を作ってみた_背景色を塗る
...
kirinote.com
2021.05.03