excel 中如何根据引用单元格的值添加删除线

来源：百度知道 编辑：UC知道 时间：2024/07/07 05:09:18
如题，比如若A1单元格中的值大于零，则B1单元格中的文本加上删除线，反之则不加。

选中B1,格式,条件格式,公式,输入=A1>0,格式,字体,特殊效果,删除线,确定

要VBA才能实现
if range("A1")>0 then
range("B1").select
selection.font.strikethrough=true
end if

选中所有A列你要处理的数据，执行下面这个宏就可以了。
Sub Macro1()
Dim R As Range
For Each R In Selection
If R > 0 Then
R.Offset(0, 1).Font .Strikethrough = True
End If
Next R
End Sub

需要编写宏