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

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

¦^´_ 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

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD