ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð¨D¦~«×¶g¦¸ªº­pºâ

For i = 4 To 10
Cells(i, 2) = Format(Format(Cells(i, 3), "ww"), "1100")
Next

TOP

¥¿²Î¤@¨Ç¡G
Sub yy()
For i = 4 To 10
Cells(i, 2) = Format(DatePart("ww", Cells(i, 3), 2, 1), "1100")
Next
End Sub

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD