Excel³]©w¼u¸õµøµ¡-?(¤w¸Ñ¨M)
- ©«¤l
- 5
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- v7
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-9-24
- ³Ì«áµn¿ý
- 2023-6-3
|
Excel³]©w¼u¸õµøµ¡-?(¤w¸Ñ¨M)
¥»©«³Ì«á¥Ñ fmsc168 ©ó 2011-9-25 23:59 ½s¿è
·Q½Ð°Ý¤@¤U!
¦pªG§Ún³]©w£¸«ö¨ì¬Y¤À¶(¤ñ¦p·~ÁZ)«K·|¥X²{¤pµøµ¡n§Ú¿é¤J¤é´Á½T©w«áP3´Nµ¥©óèè¿é¤J¤§¤é´Á~
¨ºn«ç»ò°µªü?
¥H¤W¦A³Â·Ð¤j®a¤F~
·PÁÂ! |
|
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Winwos 7 64 bits
- ³nÅ骩¥»
- Excel 2003/2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIPEI
- µù¥U®É¶¡
- 2010-8-25
- ³Ì«áµn¿ý
- 2019-9-20
|
°ÝÃD1
¹ï¡u·~ÁZ¡v¤u§@ªí¼ÐÅÒ¡A«ö·Æ¹«¥kÁä¿ï¡uÀ˵øµ{¦¡½X¡v
¶K¤W¤U¦Cµ{¦¡½X...- Private Sub Worksheet_Activate()
- [p3].Value = InputBox("½Ð¿é¤J¤é´Á")
- End Sub
½Æ»s¥N½X |
|
diabo
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2011-9-24 22:07 ½s¿è
·Q½Ð°Ý¤@¤U!
¦pªG§Ún³]©w¤@«ö¨ì¬Y¤À¶(¤ñ¦p·~ÁZ)«K·|¥X²{¤pµøµ¡n§Ú¿é¤J¤é´Á½T©w«áP3´Nµ¥©óèè¿é¤J¤§¤é´Á ...
fmsc168 µoªí©ó 2011-9-24 14:44
§Ú·Q²Ä¤@Ó°ÝÃD¸Ñ¨MªºÃöÁäÀ³¸Ó¬O¦b :
n¦p¦ó¦b¤Á´«¶Ã±(§Y§A©Ò»¡ªº¤À¶)®ÉIJµo¶}±Ò¿é¤J¤é´Áªº¤pµøµ¡,
¨Ã¥B¯à¥¿½Tªº±N¤é´Á¤å¦r©ñ¨ì¸Ó¶Ã±«ü©wªºÀx¦s®æ¤W.
¦b«ä¦Ò¸Ñ¨M¤è®×®É¥i¥ý½T»{Åܰʶµ¥Ø(»Ýn©ó¤Á´«¶Ã±®ÉIJµo¨Æ¥ó)»P¦@¦P¥ÀÅé(¶Ã±ªº Parent ¬° ThisWorkBook)
¬G¦Ó¥i¥H¦b ThisWorkBook ¤W´M§ä¬O§_¦³¦X¾AªºÄ²µo¨Æ¥ó¥i¥H¹B¥Î,
¥i¯àªº¨Æ¥ó¦³ SheetChange »P SheetActivate.
¦bThisWorkBookªº¥ªÃä¿ï³æ¿ï ThisWorkBook, ¥kÃä¦A¤À§O¿ï¤Wz¨âӨƥó§Y¥i¦Û°Ê²£¥Í¬ÛÀ³ªºµ{§Ç,- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
- End Sub
½Æ»s¥N½X- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
- End Sub
½Æ»s¥N½X ±q¤Wzµ{§Ç©ïÀYªº()¤º®e¤¤¥i¥H¬Ý¥X¨Ó Sh ¥i¯à´N¬O§ÚÌ·Qnªº SheetName,
±µµÛ¥un¤À§O©ñ¤J MsgBox ¨q¥X Sh ¤º®e´N¥i¥H½T»{þÓ¬O§ÚÌ·Qnªº¨Æ¥ó,
µM«á´N¬O¸ÕµÛ¹ê»Ú¤Á´«¶Ã±¬Ý¬Ý¥H½T»{¨ì©³¬O·|IJµo¨º¤@Óµ{§Ç¤F.- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
- MsgBox ("§A¿ï¾Ü¤F " & Chr(34) & Sh.Name & Chr(34) & "¶Ã±")
- End Sub
½Æ»s¥N½X ¤@¯ë¨Ó»¡±µ¨ü¨Ï¥ÎªÌ¿é¤J¤é´Á¥i¥H¥Î¿é¤J®Ø¡B¿ï³æ¤]¥i¥H¥ÎCalendar,
¦]¬°±Ä¥Î¿é¤J®Ø¿é¤J¤é´Á¥i¯à»Ýn§@¿é¤J¤º®eªº¿ù»~³B²z,
¦Ó¿ï³æ«h»Ýn³]©w¿ï³æ¦U¿ï¶µªìÈ,
¬G«Øij¥Î Calendar ¸û²³æ.
¥unª`·N¶}ÀÉ®ÉÁôÂÃ,IJµo®ÉÅã¥Ü¥X¨Ó,¿ï¾Ü¤é´Á«áÀ³¦p¦ó§ì¨ú¸Ó¤é´Á¨Ã¦A¦¸ÁôÂçY¥i.
¦]»Ýn¦b¦U¶Ã±³£¯à¨Ï¥Î¬GÀ³©ñ¦b Sheet ¥~(§YModule <¦@¥Îµ{§Ç©Î¾ãÅéÅܼƫŧi> ©Î UserForm<¤¸¥ó>),
¥i¥ý«Ø¥ßªí³æ(UserForm)¦A©ñ¤J MonthView ¤¸¥ó¨Ó¹F¦¨,
¦Ó¦]¸Ó¶Ã±¦WºÙ»Ýn¦bªí³æ»P¶Ã±¶¡¶Ç»¼¬GÀ³¦b¼Ò²Õ¤¤«Å§i¨ä¬° Public ¥H«K¾ãÓÀɮפ¤³£¯à¦@¥Î. (Public n©ñ¦b¼Ò²Õªº³Ì¤W±)
(¥H¤Uµ{¦¡©ñ¦b ThisWorkBook)- Private Sub Workbook_Open()
- UserForm1.Hide ' Àɮ׶}±Ò®ÉÁôÂà UserForm(Calendar)
- End Sub
- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
- Shn = Sh.Name ' «O¦s©ÒÂI¿ïªº Sheet ¦WºÙ, ¥H«K¿ï¾Ü¤é´Á«á±N¤é´Á¶Çµ¹¸Ó¶Ã±
- UserForm1.Show ' Åã¥Ü Calendar ¥H«K¿ï¤é´Á
- End Sub
½Æ»s¥N½X (¥H¤Uµ{¦¡©ñ¦b UserForm1)- Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
- Sheets(Shn).Range("P3") = DateClicked ' ±N¤é´Á³]©wµ¹©Ò¿ï¶Ã±ªº P3 Àx¦s®æ¤º
- UserForm1.Hide ' ÁôÂÃ UserForm(Calendar)
- End Sub
½Æ»s¥N½X (¥H¤U«Å§i©ñ¦b Module ¤º)- Public Shn$ ' «Å§i Sheet ¦WºÙ¥i¥H¦b¦Uµ{§Ç¤¤¦@¥Î
½Æ»s¥N½X ¦Ü©ó²Ä¤GÓ°ÝÃD¦L¶H¤¤¥»ºô¯¸¤§«e¦³¤H°Q½×¹L, «Øij§A¥i¥H§ä§ä¬Ý. |
|
|
|
|
|
|