求助，Excel2003问题，祝各位老师节日快乐！
答案:1 悬赏:20 手机版
解决时间 2021-03-02 21:25
- 提问者网友：风月客
- 2021-03-02 05:05
求助，Excel2003问题，祝各位老师节日快乐！
最佳答案
- 五星知识达人网友：轮獄道
- 2021-03-02 06:26
还是用代码吧追问好，拜托老师您帮忙写一组代码吧！追答会启用代码么，懂一点不追问懂一点用在Excel2003上的，拜托老师了！追答Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
Application.EnableEvents = False
[C5:C29].FormulaR1C1 = "=IF(RC[-1]=0,R[-1]C-1,R[-1]C+1)"
If [c3] > 88 Then [c5:c24].ClearContents
If [c3] > 0 And [c3] < 20 Then [c5].Resize(20 - [c3]).ClearContents
Application.EnableEvents = True
End Sub追问非常感谢老师，代码非常好用，再麻烦老师您一下，减去1那个不变，加上1那个改成加上D1单元格里显示的数字，D1单元格显示的数字是随机的，是经常变动的，拜托老师了！追答你把要改的公式录制一下宏就明白怎么改了。
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
Application.EnableEvents = False
[C5:C29].FormulaR1C1 = "=IF(RC[-1]=0,R[-1]C-1,R[-1]C+1)"
If [c3] > 88 Then [c5:c24].ClearContents
If [c3] > 0 And [c3] < 20 Then [c5].Resize(20 - [c3]).ClearContents
Application.EnableEvents = True
End Sub追问非常感谢老师，代码非常好用，再麻烦老师您一下，减去1那个不变，加上1那个改成加上D1单元格里显示的数字，D1单元格显示的数字是随机的，是经常变动的，拜托老师了！追答你把要改的公式录制一下宏就明白怎么改了。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯