Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim n& On Error Resume Next n = Target If Err Then Exit Sub If n > 0 Then With Target.Resize(n, n) .Formula = Replace("=IF(@-ROW(A1)-COLUMN(A1)>=0,@-ROW(A1),"""")", "@", n + 1) .Value = .Value End With Cancel = True End If End Sub
[/vba]
Но! Я не могу понять что значит символ @ в этой строке, поможете прояснить?
[vba]
Код
.Formula = Replace("=IF(@-ROW(A1)-COLUMN(A1)>=0,@-ROW(A1),"""")", "@", n + 1)
[/vba]
Добрый день, уважаемые форумчане!
На другом форуме есть задание, во вложенном файле
Человек подсказал решение:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim n& On Error Resume Next n = Target If Err Then Exit Sub If n > 0 Then With Target.Resize(n, n) .Formula = Replace("=IF(@-ROW(A1)-COLUMN(A1)>=0,@-ROW(A1),"""")", "@", n + 1) .Value = .Value End With Cancel = True End If End Sub
[/vba]
Но! Я не могу понять что значит символ @ в этой строке, поможете прояснить?
[vba]
Код
.Formula = Replace("=IF(@-ROW(A1)-COLUMN(A1)>=0,@-ROW(A1),"""")", "@", n + 1)