owen06

¦^´_ 3# maiko

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. [B2:IV65536].Clear
   
4. For X = 2 To Application.Count([A:A]) + 1
   
5. For I = 2 To Application.Count([1:1]) + 1
   
6. Cells(X, I).Value = Cells(X, I).Offset(1 - X, 0).Value * _
   
7. Cells(X, I).Offset(0, 1 - I).Value
   
8. Next
   
9. Next
   
10. Application.EnableEvents = True
    
11. End Sub

½Æ»s¥N½X