|
Тема |
Re: VBA в Exel:Въпрос за предишната активна клетка [re: DarthMaul] |
|
Автор |
alexoff ( (_)] .) |
|
Публикувано | 27.10.05 09:22 |
|
|
Нямах много време да разгледам това което искаш, но пробвай това дали ще ти свърши някаква работа или поне насока на къде да гледаш, проблема е, че не винаги става, номера се получава само когато обоче се извърши някакво пресмятане
Private Sub Worksheet_Calculate()
Dim Cell As Range
Dim Rng As Range
Set Rng = Range("A1:G20")
Set Cell = Selection
If Not Intersect(Cell, Rng) Then
If Cell.Offset(-1, 0).Value <> "" Then Cell.Offset(-1, 0).Interior.ColorIndex = 6
Else
End If
End Sub
|
| |
|
|
|