Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/символ @ в формуле - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » символ @ в формуле (Макросы/Sub)
символ @ в формуле
cacaome Дата: Вторник, 09.06.2020, 17:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый день, уважаемые форумчане!

На другом форуме есть задание, во вложенном файле

Человек подсказал решение:

[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)
[/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)
[/vba]

Автор - cacaome
Дата добавления - 09.06.2020 в 17:11
Pelena Дата: Вторник, 09.06.2020, 18:52 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Это произвольный символ (может быть любым), который в формуле макросом меняется на n+1
Можно было так написать
[vba]
Код
.Formula = "=IF(" & n + 1 & "-ROW(A1)-COLUMN(A1)>=0," & n + 1 & "-ROW(A1),"""")"
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Это произвольный символ (может быть любым), который в формуле макросом меняется на n+1
Можно было так написать
[vba]
Код
.Formula = "=IF(" & n + 1 & "-ROW(A1)-COLUMN(A1)>=0," & n + 1 & "-ROW(A1),"""")"
[/vba]

Автор - Pelena
Дата добавления - 09.06.2020 в 18:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » символ @ в формуле (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!