今月=month(date)
activesheet.range("a1").resize(5).formula="="&今月&"!a1"