vba - 当列中的值更改时删除关联的单元格

Question

我有一个包含三列的 Excel 表:员工编号 员工姓名 可用性 我想做的是当可用性 值从数字变为空 员工编号 和 员工姓名 与该行相关联的有删除线。还有当 可用性编号 添加删除线消失。我在下面写了一些代码，但我不知道我是否朝着正确的方向前进。

Sub change(ByVal Target As Range)
Dim ws As Worksheet
Dim watchrange As Range
dim intersectrange as range

Set ws = Worksheets("Workbench Report")

endrow = ws.Cells(ws.Rows.count, "E").End(xlUp).Row

Set watchrange = Range("E2:E" & endrow)
Set intersectrange = Intersect(Target, watchrange)
If intersectrange = "" Then
ws.Range("B" & rng.Row).Resize(1, 2).Font.Strikethrough = True
Else
'do nothing
End If

End Sub

有人可以帮助我吗？

先感谢您

Answer 1

使用以下数据:



此工作表事件宏:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim watchrange As Range, r As Range, rw As Long
    Dim intersectrange As Range, endrow As Long

    endrow = Cells(Rows.Count, "A").End(xlUp).Row
    Set watchrange = Range("C2:C" & endrow)
    Set intersectrange = Intersect(Target, watchrange)
    If intersectrange Is Nothing Then Exit Sub

    For Each r In intersectrange
        rw = r.Row
        If r.Value = "" Then
            Range("A" & rw & ":B" & rw).Font.Strikethrough = True
        Else
            Range("A" & rw & ":B" & rw).Font.Strikethrough = False
        End If
    Next r
End Sub

将满足您的需求。您需要调整列以匹配您的数据架构。

因为它是工作表代码，所以非常容易安装和自动使用:

右键单击 Excel 窗口底部附近的选项卡名称

选择查看代码 - 这将打开一个 VBE 窗口

粘贴这些东西并关闭 VBE 窗口

如果您有任何疑虑，请先在试用工作表上进行尝试。

如果您保存工作簿，宏将与它一起保存。
如果您使用的是 2003 年以后的 Excel 版本，则必须保存
文件为 .xlsm 而不是 .xlsx

要删除宏:

如上所述打开 VBE 窗口

清除代码

关闭 VBE 窗口

要了解有关事件宏(工作表代码)的更多信息，请参阅:

http://www.mvps.org/dmcritchie/excel/event.htm

编辑#1:

此代码由列 的更改触发。中号并驻留在该工作表的工作表代码区域中。

如果您的按钮代码更改了这些列 中号值，则此事件代码将使用它。