½Ð°Ý¦p¦óÀH¤é´Á¦Û°Ê¶ñ¤W©T©w¼Æ¦rÁÂÁÂ
- ©«¤l
- 65
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 120
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-15
- ³Ì«áµn¿ý
- 2010-7-16
|
¦^´_ 2# horce
Àɮ׶}±Ò¦Û°Ê§ó·s
Private Sub Workbook_Open()
With Sheets("CF4")
For Each aa In Range(.[a9], .[a65536].End(xlUp).Offset(-1))
If aa <= Date Then
aa.Offset(, 5) = aa.Offset(-1, 5).Value
aa.Offset(, 6) = aa.Offset(-1, 6).Value
End If
Next
End With
End Sub |
|
|
|
|
|
|