- ©«¤l
- 11
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 19
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-4-16
- ³Ì«áµn¿ý
- 2016-10-24
|
¦^´_ 4# Hsieh - Sub «ö¶s1_Click()
- Dim a As Range
- Set a = ActiveSheet.Shapes(Application.Caller).TopLeftCell
- r = a.Row
- Windows(2).ActiveSheet.[A1].Resize(, 4) = Cells(r, 1).Resize(, 4).Value
- Windows(2).ActiveSheet.[B2].Resize(, 3) = Cells(r, 5).Resize(, 3).Value
- End Sub
½Æ»s¥N½X
ÁÂÁªO¥D¡A¦ý°õ¦æ®É·|Åã¥Ü¡y°õ¦æ¶¥¬q¿ù»~'9':°}¦C¯Á¤Þ¶W¥X½d³ò¡z¤£ª¾þÓ¦a¤è¦³»~·Ð½Ð«ü¾É¡C |
|