Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
3 / 3 / 1
Регистрация: 28.09.2015
Сообщений: 271
1

Выписывание текста ячеек - лежащего в определенном радиусе по отношению к фигуре

26.10.2017, 04:10. Показов 1253. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток, специалисты по экселю. Помогите решить проблему.

На листе находится несколько фигур.
Рядом таблица O8:O13
У меня есть макрос, выписывающий в эту таблицу - текст трех ближайших ячеек к фигуре, по которой совершен щелчок (за исключением ячеек с нулями).

Как заставить этот скрипт выписывать не три ближайшие к фигуре ячейки вообще, а три ближайшие к фигуре ячейки - лежащие в радиусе равном 100 ?

В частности для фигуры "Овал 1", если по ней щелкнуть - впишется только два значения, а не три - поскольку третье текстовое значение выходит за пределы радиуса = 100.
Вложения
Тип файла: xls 4998653.xls (72.0 Кб, 7 просмотров)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2017, 04:10
Ответы с готовыми решениями:

Текст трех ближайших ячеек по отношению к фигуре
Здравствуйте, форумчане. Помогите решить проблему. На листе находится несколько фигур и в...

Окрашивание ячеек в определенном радиусе от геометрического центра фигуры
Добрый день, форумчане. Помогите решить вопрос. На листе находится фигура Овал. Как заставить...

Уведомления в определенном радиусе
Задача стоит в том что когда один пользователь нажмет на кнопку в андроид приложении например...

Звёздочки на экран, в определённом радиусе
Доброе время суток! Помогите пожалуйста написать программу, которая будет выводить звёзды(модуль...

5
1846 / 1161 / 354
Регистрация: 11.07.2014
Сообщений: 4,102
26.10.2017, 11:05 2
yl3d, что-то не пойму, а в чем проблема? Мы же делали с вами три ближайшие по расстоянию от фигуры. Ни поставьте там ещё дополнительную проверку на расстояние <=100. Если условие выполнено, то заносите в таблицу. Ну а НЕТ так НЕТ.
0
0 / 0 / 0
Регистрация: 02.01.2017
Сообщений: 123
26.10.2017, 11:42 3
yl3d , а если все ячейки - лежат за пределами радиуса - что тогда ?
0
3 / 3 / 1
Регистрация: 28.09.2015
Сообщений: 271
26.10.2017, 12:25  [ТС] 4
lixar21 , тогда вообще никаких ячеек - не должно вписываться в таблицу.
0
1846 / 1161 / 354
Регистрация: 11.07.2014
Сообщений: 4,102
26.10.2017, 13:21 5
Лучший ответ Сообщение было отмечено yl3d как решение

Решение

yl3d, ну вообще-то пора такие вещи в таком коротком коде править самому. Или вы имеете в виду всякие коды?
Постарайтесь сами найти подобную строку и заменить ее на следующую. Только смелее

Visual Basic
1
      If MinS(K, 2) > R And R <- 100  Then
1
3 / 3 / 1
Регистрация: 28.09.2015
Сообщений: 271
27.10.2017, 02:02  [ТС] 6
Burk , разобрался. Спасибо за совет.
0
27.10.2017, 02:02
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2017, 02:02
Помогаю со студенческими работами здесь

Рассылка пользователям, находящимся в определенном радиусе
На сервере в БД хранится информация о пользователях приложения. Один из них хочет сделать рассылку...

Замена текста в определенном месте текстовой строки - сразу для нескольких ячеек
Здравствуйте, форумчане. У меня появился такой вопрос. Есть макрос, который извлекает...

Выписывание текста из StringGrid в Memo
Подскажите пожалуйста, в StringGrid введен текст(побуквенно в каждую ячейку), как в Memo2 выписать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru