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

[µo°Ý] ¸ß°Ý ¦p¦óÅý¨C¤@­¶³£¨Ï¥Î¬Û¦Pªº¥¨¶°¡C

[µo°Ý] ¸ß°Ý ¦p¦óÅý¨C¤@­¶³£¨Ï¥Î¬Û¦Pªº¥¨¶°¡C

¸ß°Ý ¦p¦óÅý¨C¤@­¶³£¨Ï¥Î¬Û¦Pªº¥¨¶°¡C

§Ú¥u¿ý»s¤@­¶¡A 2-10­¶¸òÀH²Ä¤@­¶ªº¡C

¦³¬Æ»ò¿ìªk?

ªþ¤Wªþ¥ó...¤ñ¸û²M·¡§A·Q­nªºµ²ªG
¦n¥i·RªºÄ_Ä_

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-5-9 07:11 ½s¿è

¦^´_ 1# keovin790916
  1. Option Explicit
  2. [code]'ThisWorkbook(³o¬¡­¶Ã¯)¼Ò²Õ ªºµ{¦¡½X
  3. Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'ThisWorkbook(³o¬¡­¶Ã¯) §ïÅܧ@¥Î¤¤ªº¤u§@ªíªºÄ²°Ê¨Æ¥ó
  4.     '§A¿ý»sªº¥¨¶°¥i©ñ³o¸Ì
  5.     MsgBox Sh.Name
  6. End Sub
  7. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  8.     'ThisWorkbook(³o¬¡­¶Ã¯) ¤u§@ªí¦³­×§ïªºÄ²°Ê¨Æ¥ó
  9.     '§A¿ý»sªº¥¨¶°¥i©ñ³o¸Ì
  10.     MsgBox Sh.Name & "  " & Target
  11. End Sub
½Æ»s¥N½X
  1. Private Sub Ex()  '¥i½Æ»s©ó¥ô¦ó¼Ò²Õ
  2.     'VBAµøµ¡¤¤ «ö F8 ³v¦æ °õ¦æ¦¹µ{¦¡¬Ý¬Ý
  3.     Sheets("Sheet1").[a1] = "aaa"
  4.     Sheet2.Activate
  5.     Sheet2.[a1] = "aaa"
  6.     Sheet3.Activate
  7.     Sheet3.[a1] = "aaa"
  8.     Sheet1.Activate
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD