kimbal

¦^´_ 1# tonyltt

¥u®t¤p³\

1.    Dim mm As Variant, nn
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. Dim bln
   
4. Application.EnableEvents = False
   
5. If nn > 1 Then
   
6.     bln = mm(1, 1) <> ""
   
7. Else
   
8.     bln = mm <> ""
   
9. End If
   
10. If bln Then
    
11.     Target.Value = mm
    
12. End If
    
13. Application.EnableEvents = True
    
14. End Sub
    
15. 
    
16. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
17. nn = Target.Count
    
18. mm = Target.Value
    
19. End Sub

½Æ»s¥N½X