- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 239
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-4
|
¦^´_ 9# united7878
¥ý°õ¦æ- Sub xx()
- Application.EnableEvents = True
- End Sub
½Æ»s¥N½X- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
- With Sh
- If Target.Address = "$F$2" And IsDate(Target) Then
- Sh.Unprotect "0000"
- Application.EnableEvents = False
- Select Case Format(.[F2], "m/d")
- Case "1/1"
- x = "¤ý¤p©ú"
- Case "1/2"
- x = "§õ¤pµØ"
- Case "1/3"
- x = "±i¤p¬ü"
- End Select
- .[N3] = x
- Application.EnableEvents = True
- Sh.Protect "0000"
- End If
- End With
- End Sub
½Æ»s¥N½X |
|