shyrik_m » 22.07.2005 (Пт) 9:59
Вставь код в чистый лист, и приступай к испытаниям,
заполни ячейку С1 данными, выйди из неё и щёлкни по этой ячейке снова
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 4 And ActiveCell.Column = 3 Then
If Cells(4, 3) <> "" Then Cells(4, 3).EntireRow.Insert
Range("C4:H4").Borders(xlEdgeTop).LineStyle = xlContinuous
Range("C4:H4").Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("C4:H4").Borders(xlEdgeRight).LineStyle = xlContinuous
Range("C4:H4").Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("C4:H4").Borders(xlInsideVertical).LineStyle = xlContinuous
'Range("C4:H4").Borders(xlInsideHorizontal).LineStyle = xlContinuous
End If
End Sub