- ©«¤l
- 84
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 104
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- SP3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-10
- ³Ì«áµn¿ý
- 2018-4-21
|
¦^´_ 10# skyutm
«¢«¢¡I¯u¬O¦³½ì¡C§Ú§âµ{¦¡½X¾ã¦X¦b¤@°_´N¥i¥H¤F¡C
'******ThisWorkbook¼Ò²Õªºµ{¦¡½X********
Option Explicit
'**¬¡¶Ã¯¶}±Ò®É¦Û°Ê°õ¦æ
Private Sub Workbook_Open()
¦Û°Ê½Æ»s¦¨ÁZ
End Sub
'**¬¡¶Ã¯:¤u§@ªí¤¤²¾°Ê®É¦Û°Ê°õ¦æ
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Á`¦¨ÁZ" Then ¦Û°Ê½Æ»s¦¨ÁZ
End Sub
Sub ¦Û°Ê½Æ»s¦¨ÁZ()
Sheets("°ê¥®É").Range("s2:s22").Copy
Sheets("Á`¦¨ÁZ").Activate
Sheets("Á`¦¨ÁZ").Range("C2").PasteSpecial Paste:=xlPasteValues
End Sub |
|