Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1448|回复: 4

[已解决]请教一个条件格式的问题

[复制链接]
发表于 2017-9-7 13:18 | 显示全部楼层 |阅读模式
本帖最后由 kevinpj 于 2017-9-7 14:07 编辑

请问:如何在B列自动加删除线?
条件:在C列(C2:C11)中找数字与A列对应行的序号对比。
例如:C7单元格是3,在A4单元格序号是3,
   就在B4单元格 2290 数字上画上删除线。

321.png

条件格式.rar (7.05 KB, 下载次数: 3)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-9-7 13:51 | 显示全部楼层    本楼为最佳答案   
点击B1
条件格式公式=AND($A1<>"",ISNUMBER(MATCH($A1,$C:$C,)))
作用范围B1:B11
回复

使用道具 举报

 楼主| 发表于 2017-9-7 14:07 | 显示全部楼层
cabcyvr 发表于 2017-9-7 13:51
点击B1
条件格式公式=AND($A1"",ISNUMBER(MATCH($A1,$C:$C,)))
作用范围B1:B11

搞定!谢谢!果然是高手excel的功能也是如此强大



回复

使用道具 举报

发表于 2017-9-7 14:23 | 显示全部楼层
Private Sub CommandButton1_Click()
For i = 2 To Range("A65536").End(xlUp).Row
  If Cells(i, 3) <> "0" Then
     r = Cells(i, 3).Value + 1
     Cells(r, 2).Select
     Selection.Font.Strikethrough = True
  End If
Next
End Sub
回复

使用道具 举报

 楼主| 发表于 2017-9-7 15:41 | 显示全部楼层
yanhj 发表于 2017-9-7 14:23
Private Sub CommandButton1_Click()
For i = 2 To Range("A65536").End(xlUp).Row
  If Cells(i, 3)  "0 ...

非常感谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 18:44 , Processed in 0.335001 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表