使ç¨å®ä»£ç ï¼èä¾å¦ä¸ï¼
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 2 And Target.Row <= 3 And Target.Column >= 4 And Target.Column <= 6 Then 'è°æ´rowï¼è¡ï¼åcolumnï¼åï¼çä¸ä¸é
If Cells(Target.Row, Target.Column) = "0" Then 'å°0è°æ´ä¸ºç®æ å符ï¼ç©ºç½ä¸º""
Columns(Target.Column).ColumnWidth = 0
End If
End If
End Sub
è¥æå
¶ä»éæ±è¿å¯è°æ´ä»£ç å®ç°æ´å¤æçç®æ
温馨提示:答案为网友推荐,仅供参考