0073デフォルトの名無しさん垢版 | 大砲2018/01/31(水) 23:18:11.45ID:q0yM2zae Cells(i + 3, 3).Value = Format(DateValue(年 & "/" & 月 & "/" & 日), "aaa")