取消隐藏单元格更改的行

Question

这是一个稍微重复的问题，但我相信它可能会简化这种情况。

对象的代码：当一个用户拿起从小区验证入口（即，在变化）代码必须

• 在H柱在我列中输入用户名
• 输入时间戳
• 取消隐藏下一行
• （意外的下一步骤中，不是用户交互式显示线）

步骤1至3现在是功能性的，步骤4不

当前代码：

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim ChangedCell As Object 


     For Each ChangedCell In Target 
      If ChangedCell.Column = 5 And ChangedCell <> "" Then 
       Cells(ChangedCell.Row, 8) = Environ("USERNAME") 
       Cells(ChangedCell.Row, 9) = Format(Now(), "HH:MM:SS") 
       ChangedCell.Offset(1, 0).EntireRow.Hidden = False 
       If Cells(ChangedCell.Offset(1, 0), 1).Value <> "HC" Then 
       ChangedCell.Offset(1, 0).EntireRow.Hidden = False 
       End If 
      End If 
     Next 
End Sub 

罗布。

Answer 1

试试这个：

ChangedCell.Offset(1, 0).EntireRow.Hidden = False 

N.B：可能的原因，为什么你的代码导致错误：显然你不能写入只读值。

所附回答所附问题（STEP 4_ “显示线不属于用户交互”）：

Option Explicit 

'' 假定信息（非交互式）细胞被合并这是E列的最后一行。

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim ChangedCell As Object 
Dim last_Row, iter 
last_Row = Worksheets("Sheet2").Cells(Rows.count, 5).End(xlUp).Row  ''change sheet name if different 

     For Each ChangedCell In Target 
      If ChangedCell.Column = 5 And ChangedCell <> "" Then 

       For iter = 1 To last_Row 
       ChangedCell.Offset(iter, 0).EntireRow.Hidden = False 
       On Error GoTo errhand 
        If ChangedCell.Offset(iter, 0).MergeArea.Address = ChangedCell.Offset(iter, 0).Address Then 
        On Error GoTo 0 
        Cells(ChangedCell.Row, 8) = Environ("USERNAME") 
        Cells(ChangedCell.Row, 9) = Format(Now(), "HH:MM:SS") 
        'MsgBox ChangedCell.Row 
        Exit Sub 
        End If 
errhand: 
       'MsgBox "info row" 
       Next 
      End If 
     Next 
End Sub