GBKEE

¦^´_ 1# cmo140497

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target(1).Row = 4 And IsDate(Target(1)) Then
   
3.       If Application.CountA(Range(Cells(6, Target(1).Column), Cells(30, Target(1).Column))) = 25 Then Exit Sub
   
4.       With Range(Cells(6, Target(1).Column), Cells(30, Target(1).Column)).SpecialCells(xlCellTypeBlanks)
   
5.             .Value = Date
   
6.             .NumberFormatLocal = "m/d;@"
   
7.         End With
   
8.     End If
   
9. End Sub

½Æ»s¥N½X