1.在07版EXCEL中将有相同的两行或几行间隔标上底纹,可以区分开来就行2.在相同底纹脱出显示可以抵消的数
答案:1 悬赏:60 手机版
解决时间 2021-04-14 00:57
- 提问者网友:你挡着我发光了
- 2021-04-13 12:17
1.在07版EXCEL中将有相同的两行或几行间隔标上底纹,可以区分开来就行2.在相同底纹脱出显示可以抵消的数
最佳答案
- 五星知识达人网友:野味小生
- 2021-04-13 12:35
第一个问题:
选中所有的数据行——条件格式——新建规则——使用公式
=MOD(INT(SUMPRODUCT(1/COUNTIF($B$1:$B1,$B$1:$B1))),2)
条件格式颜色自己设定
这样不同单位间会出现不一样的颜色
第二个问题:
从G2开始往下选,直到末尾数据行——条件格式——新建规则——使用公式
=SUMIF($B$2:$B$16,$B2,$G$2:$G$16)=0
注意:我这里只选到16行,如果你的数据到100行,把里面的16改成100
条件格式颜色自己设定
这样和为零的会重点显示出来
效果如下:
追问先生;
刚才我试验了下,按照您的效果图,如下
还请继续帮助下
追答呵呵 ,那你肯定哪里弄错了。把表发给我,我帮你做好,你再检查下跟自己的有什么区别
不要把第一行的标题带进来了!!!company会认为和c一样,所以会出错的
根据你的表格,两个公式应该是这样:
=MOD(INT(SUMPRODUCT(1/COUNTIF($B$2:$B2,$B$2:$B2))),2)
=SUMIF($B$2:$B$9,$B2,$D$2:$D$9)=0
追问先生;
你好,问题都解决了
现在我提出第三个问题,请师傅解决,如何保证G列数据的合计金额固定是一个值,???如果合计金额变化了,EXCEL会提示出对话框出来,让我选择师傅继续操作,是,还是否?
因为我需要将中间可以抵消的行全部删掉,为了避免误删,我需要不停的检查合计数是否发生变化,所以提出这个问题。请师傅解答。。。。。。
谢谢您!
追答用VBA吧。你的“合计金额”在G列,A1为合计金额固定值,两个都可以在代码里更改
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
If .Range("G1").End(xlDown) <> .Range("A1") Then 'G1代表合计金额在G列,A1代表合计金额固定值
If MsgBox("是否继续操作?", vbYesNo, "删除错误!!!") = vbNo Then
Application.Undo
End If
End If
End With
End Sub
追问师傅 :
我不懂VBA,是否可以告诉我具体如何设置???
比如说;在哪个功能下完成这个操作?。。。。谢谢,请原谅我的无知追答打开VBA编辑器,通过Alt+F11,左边有工程列表,双击ThisWorkbook,代码就在ThisWorkbook中
选中所有的数据行——条件格式——新建规则——使用公式
=MOD(INT(SUMPRODUCT(1/COUNTIF($B$1:$B1,$B$1:$B1))),2)
条件格式颜色自己设定
这样不同单位间会出现不一样的颜色
第二个问题:
从G2开始往下选,直到末尾数据行——条件格式——新建规则——使用公式
=SUMIF($B$2:$B$16,$B2,$G$2:$G$16)=0
注意:我这里只选到16行,如果你的数据到100行,把里面的16改成100
条件格式颜色自己设定
这样和为零的会重点显示出来
效果如下:
追问先生;
刚才我试验了下,按照您的效果图,如下
还请继续帮助下
追答呵呵 ,那你肯定哪里弄错了。把表发给我,我帮你做好,你再检查下跟自己的有什么区别
不要把第一行的标题带进来了!!!company会认为和c一样,所以会出错的
根据你的表格,两个公式应该是这样:
=MOD(INT(SUMPRODUCT(1/COUNTIF($B$2:$B2,$B$2:$B2))),2)
=SUMIF($B$2:$B$9,$B2,$D$2:$D$9)=0
你好,问题都解决了
现在我提出第三个问题,请师傅解决,如何保证G列数据的合计金额固定是一个值,???如果合计金额变化了,EXCEL会提示出对话框出来,让我选择师傅继续操作,是,还是否?
因为我需要将中间可以抵消的行全部删掉,为了避免误删,我需要不停的检查合计数是否发生变化,所以提出这个问题。请师傅解答。。。。。。
谢谢您!
追答用VBA吧。你的“合计金额”在G列,A1为合计金额固定值,两个都可以在代码里更改
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
If .Range("G1").End(xlDown) <> .Range("A1") Then 'G1代表合计金额在G列,A1代表合计金额固定值
If MsgBox("是否继续操作?", vbYesNo, "删除错误!!!") = vbNo Then
Application.Undo
End If
End If
End With
End Sub
我不懂VBA,是否可以告诉我具体如何设置???
比如说;在哪个功能下完成这个操作?。。。。谢谢,请原谅我的无知追答打开VBA编辑器,通过Alt+F11,左边有工程列表,双击ThisWorkbook,代码就在ThisWorkbook中
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯