Hsieh

¦^´_ 1# renzhi2020

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [A1:A5]) Is Nothing Then Exit Sub
   
3. For Each a In Target
   
4.    a.Offset(, 1).Formula = "=" & a.Address & "*5"
   
5. Next
   
6. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# renzhi2020
µL­­©µ¦ù?
­ì¥N½X¨Sª`·N¬O¤£¦P¤u§@ªí¼g¤J¤½¦¡¡A¦Ü©ó·|µL­­©µ¦ù­Ë¬O¨S¦³³o¼Ë±¡§Îµo¥Í
´N¥[­Ó«OÀI§a!

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. Dim A As Range
   
4. If Intersect(Target, [A1:A5]) Is Nothing Then Exit Sub
   
5. For Each A In Target
   
6.   If Not Intersect(A, [A1:A5]) Is Nothing Then ¤u§@ªí2.Range(A.Address).Offset(, 1).Formula = "=" & A.Address(, , , 1) & "*5"
   
7. Next
   
8. Application.EnableEvents = True
   
9. End Sub

½Æ»s¥N½X