[µo°Ý] ½d³ò­È¤º¦p¦ó¦P¨BÅÜ°Ê?

renzhi2020

½Ð°Ý¦U¦ì¤j¤j:
°²³]­n³]©w¦bA1:A5ªº½d³ò­È ÅÜ°Ê®É
­n¦Û°Ê±a¥X BÄ椽¦¡
¦ý¹ê»Ú¸Õ,AÄæ¤@­Ó¤@­Ókey ¥i¥H±a¥XBÄ椽¦¡
¦ý­Y¦P®É¶K¤WA1~A5ªº­È®É, ¤½¦¡¥u·|¶]B1´N°±¤î¤F  @-@
µLªk¦P®É B1~B5 ³£±a¥X¤½¦¡
½Ð°Ý¥H¤UVBA ­n«ç»ò§ï¤~¯à¦P®ÉA¶KB¦P¥þ³¡±a¥X¤½¦¡
====================
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("A1:A5")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
    Cells(Target.Row, "B") = "=A" & Target.Row & "*5"
    End If
End Sub
=================================
­l¥Ó°ÝÃD
¦pªG­n¼g¦¨
¤@¼ËA1:A5ªº½d³ò­È ÅÜ°Ê®É
"¦b¤£¦P¤u§@ªí (ex ¤u§@ªí2 )" ¦Û°Ê±a¥XBÄ椽¦¡
'À³¸Ó«ç»ò¼g@-@?

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

renzhi2020

¦^´_ 3# Hsieh

Dear ¤j¤j

¥Î±z¤½¦¡¦³­Óbug

¥þ¿ïdelete®É

¤½¦¡·|µL­­©µ¥Ó¨ì·í±¼@-@

renzhi2020

¦^´_ 3# Hsieh

¥i¥H¥þ³¡®M¥Î¤F

¨Ó¬ã¨s¤@¤U@-@

«D±`·PÁª©¥Dªº«ü¾É

:)

renzhi2020

¦^´_ 2# naruto018

Dear Naruto

¬Oªº,
¤u§@ªí1ÅÜ°Ê, ¤u§@ªí2¦Û°Ê¶ñ¤J¤½¦¡

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

naruto018

¦^´_ 1# renzhi2020

1.°Ñ¦Ò¬Ý¬Ý

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim KeyCells As Range
   
3.     Set KeyCells = Range("A1:A5")
   
4.     Set IntersectCells = Application.Intersect(KeyCells, Range(Target.Address))
   
5.     If Not IntersectCells Is Nothing Then
   
6.         For Each a In IntersectCells
   
7.             Cells(a.Row, "B") = "=A" & a.Row & "*5"
   
8.         Next
   
9.     End If
   
10. End Sub

½Æ»s¥N½X

2.­l¥Ó°ÝÃDªº·N«ä¬O¨Ò¦p¡G
¤u§@ªí1ªºA1ÅÜ°Ê
¤u§@ªí2ªºB1¶ñ¤J=¤u§@ªí1!A1*5
¬OÁ|¨Òªº³o¼Ë¶Ü?