请教一个双击单元格显示区域的问题

icon100

B2:B1000中的公式为：=IF(C2="","","项目"&A1)

我在sheet3中划分了1000个区域

请问如何实现：

例如：

当我双击B3（项目2）时，能够显示sheet3中的项目2的明细区域（仅显示项目2的明细区域，其他所有单元格都隐藏）

以此类推，谢谢！

Zjzhhy

在Sheet1中建立Worksheet_Change事件，然后在其中输入下面的代码

Private Sub Worksheet_Change(ByVal ActiveCell As Range)
    Nember=Range("A" & ActiveCell.Row)      ‘提取项目序号
    Sheet3.Cells.EntireRow.Hidden = True      ’隐藏Sheet3全部行和全部列
    Sheet3.Cells.EntireColumn.Hidden = True
    Sheet3. Rows(R1 & ":"  & R2).EntireRow.Hidden = False             '显示特定行和特定列
    Sheet3.Columns(C1 & ":"  & C2).EntireColumn.Hidden = False
End If

注意：R1、R2为当前项目序号所对应的Sheet3中特定区域的起始和终止行号，C1、C2为当前项目序号所对应的Sheet3中特定区域的起始和终止列号，这4个参数需要依据Nember及Sheet3中具体的方位编制出对应的换算式计算得到，对于本例，这些换算式不难推导，还是自己动手吧。