2010-01-21 ゼロパディングする vba(エクセルマクロ) Function padZero(n As Integer, keta As Integer) padZero = Right(n + 10 ^ keta, keta) End Function