- ©«¤l
- 91
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 130
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-5-14
- ³Ì«áµn¿ý
- 2020-5-17
|
¦^´_ 1# renzhi2020
1.°Ñ¦Ò¬Ý¬Ý- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim KeyCells As Range
- Set KeyCells = Range("A1:A5")
- Set IntersectCells = Application.Intersect(KeyCells, Range(Target.Address))
- If Not IntersectCells Is Nothing Then
- For Each a In IntersectCells
- Cells(a.Row, "B") = "=A" & a.Row & "*5"
- Next
- End If
- 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¼Ë¶Ü? |
|