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

Вход

Регистрация

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

 

= Мир MS Excel/Активная ячейка. функция Пересекаться - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Активная ячейка. функция Пересекаться
Flin Дата: Вторник, 15.11.2022, 08:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте. Нашел код. Приспособил. Хочется в Application.Intersect в 2 аргументе в место диапазона (Target,Range("Z3:Z20000")) чтоб 2 аргумент ссылался на колонку(Площадь) в таблицы. Лист ПДД.
Если реально то как?
Мной переработанный код:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Z3:Z20000")) Is Nothing Then
If Target = "" Then Range("E2") = ""
Range("E2") = Sqr(Target * 10000) * 3.5 * 5
If Target = "" Then Range("C2") = ""
Range("C2") = Target * 10000
End If
End Sub
[/vba]
К сообщению приложен файл: __.xls (86.5 Kb)


Сообщение отредактировал Flin - Вторник, 15.11.2022, 08:52
 
Ответить
СообщениеЗдравствуйте. Нашел код. Приспособил. Хочется в Application.Intersect в 2 аргументе в место диапазона (Target,Range("Z3:Z20000")) чтоб 2 аргумент ссылался на колонку(Площадь) в таблицы. Лист ПДД.
Если реально то как?
Мной переработанный код:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Z3:Z20000")) Is Nothing Then
If Target = "" Then Range("E2") = ""
Range("E2") = Sqr(Target * 10000) * 3.5 * 5
If Target = "" Then Range("C2") = ""
Range("C2") = Target * 10000
End If
End Sub
[/vba]

Автор - Flin
Дата добавления - 15.11.2022 в 08:20
китин Дата: Вторник, 15.11.2022, 08:28 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Flin, Прочитайте Правила форума и оформите свой пост как положено. ( тэги и оформление кода)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеFlin, Прочитайте Правила форума и оформите свой пост как положено. ( тэги и оформление кода)

Автор - китин
Дата добавления - 15.11.2022 в 08:28
Nic70y Дата: Вторник, 15.11.2022, 09:20 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
       If Not Intersect(Target, Range("Таблица4[Площадь]")) Is Nothing Then
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
       If Not Intersect(Target, Range("Таблица4[Площадь]")) Is Nothing Then
[/vba]

Автор - Nic70y
Дата добавления - 15.11.2022 в 09:20
Flin Дата: Вторник, 15.11.2022, 09:32 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, Благодарю. (Когда знаешь как все просто :D ;))
 
Ответить
СообщениеNic70y, Благодарю. (Когда знаешь как все просто :D ;))

Автор - Flin
Дата добавления - 15.11.2022 в 09:32
  • Страница 1 из 1
  • 1
Поиск:

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