- ©«¤l
- 162
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 243
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- excel 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2018-1-5
- ³Ì«áµn¿ý
- 2024-10-22
|
¦^´_ 12# samwang
³ø§i¤j¤j¡A§Ú§ï¦¨³o¼Ë¡A¨ä¥L¤TÓÄæ¦ì³£¥i¥H¥Î¤F
¦³¤j¤j¯u¦n
¦^ÂЧֳt¤S¯à¸Ñ¨M°ÝÃD
¦A¦¸·P®¦¤j¤jªº¹©¤O¨ó§U:loveliness:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
If .Worksheet.Index = 1 Then Exit Sub
If .Worksheet.Index > 7 Then Exit Sub
If .Column = 41 Then
If .Count > 1 Then Exit Sub
If .Value = "" Then .Offset(, 1).ClearContents
End If
If .Column = 27 Then
If .Count > 1 Then Exit Sub
If .Value = "" Then .Offset(, 1).ClearContents
End If
If .Column = 1 Then
If .Count > 1 Then Exit Sub
If .Value = "" Then .Offset(, 1).ClearContents
End If
End With
End Sub |
|