ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð°Ý¦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@-@?

test.zip (13.17 KB)

ªþ¥ó

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 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¼Ë¶Ü?

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# naruto018

Dear Naruto

¬Oªº,
¤u§@ªí1ÅÜ°Ê, ¤u§@ªí2¦Û°Ê¶ñ¤J¤½¦¡
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ renzhi2020 ©ó 2017-11-7 10:08 ½s¿è

¦^´_ 3# Hsieh

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

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

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

:)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# Hsieh

Dear ¤j¤j

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

¥þ¿ïdelete®É

¤½¦¡·|µL­­©µ¥Ó¨ì·í±¼@-@
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD