- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2022-7-26
![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif)
|
¦^´_ 3# maiko - Private Sub Worksheet_Change(ByVal Target As Range)
- Application.EnableEvents = False
- [B2:IV65536].Clear
- For X = 2 To Application.Count([A:A]) + 1
- For I = 2 To Application.Count([1:1]) + 1
- Cells(X, I).Value = Cells(X, I).Offset(1 - X, 0).Value * _
- Cells(X, I).Offset(0, 1 - I).Value
- Next
- Next
- Application.EnableEvents = True
- End Sub
½Æ»s¥N½X |
|