- ©«¤l
- 53
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 113
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- excel 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2018-1-5
- ³Ì«áµn¿ý
- 2022-4-23
|
¦^´_ coafort
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With ...
samwang µoªí©ó 2022-1-27 10:20 
½Ð°Ý¤j¤j
¦pªG¦P¤@Äæ
3~23
27~40
»Ýn³oÓ¥\¯à
½Ð°Ý¸Ó«ç»ò§ï©O¡H
§Ú§ï¦¨¥H¤U¡A¥u¦³3~23¦³³o¥\¯à¡A27~40¨S¦³
ÁÂÁ¤j¤j
If .Column = 16 Then
If .Row < 3 Then Exit Sub
If .Row > 23 Then Exit Sub
If .Count > 1 Then Exit Sub
If .Value = "" Then .Offset(, 1).ClearContents
End If
If .Column = 16 Then
If .Row < 27 Then Exit Sub
If .Row > 40 Then Exit Sub
If .Count > 1 Then Exit Sub
If .Value = "" Then .Offset(, 1).ClearContents
End If |
|