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

[µo°Ý] ¦³Ãö[¦Û°Ê®Õ¥¿]¸Ì(¦Û°Ê¨ú¥N¦r¦ê)ªº»yªk?

¦^´_ 9# united7878
¥ý°õ¦æ
  1. Sub xx()
  2. Application.EnableEvents = True
  3. End Sub
½Æ»s¥N½X
  1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  2. With Sh
  3. If Target.Address = "$F$2" And IsDate(Target) Then
  4. Sh.Unprotect "0000"
  5. Application.EnableEvents = False
  6. Select Case Format(.[F2], "m/d")
  7. Case "1/1"
  8. x = "¤ý¤p©ú"
  9. Case "1/2"
  10. x = "§õ¤pµØ"
  11. Case "1/3"
  12. x = "±i¤p¬ü"
  13. End Select
  14. .[N3] = x
  15. Application.EnableEvents = True
  16. Sh.Protect "0000"
  17. End If
  18. End With
  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦hÁÂHsieh ª©¤jªº«ü¾É
­ì¨Ó¤Ö¤F¤@¹D¸Ñ±KÁ٭쪺µ{§Ç¨Ï±oÀx¦s®æµLªkÅܧó
¨S¸£ªº§Ú·d¥b¤Ñ¤£±o¨ä¸Ñ
¦hÁ«¤F¤j¤j Åý§Ú¹ïVBA¦³§óªñ¤@¨Bªº»{ª¾
ÁÂÁÂ!!

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD