Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Подсчет пересекаемых линий сетки
 
#1
18.10.2012 19:29:37
Господа, здравствуйте. Возникла проблема: необходимо посчитать сколько линий сетки или квадратов образуемых при пересечении линий сетки пересекает график (в ручную долго и неточно, особенно при маленьком шаге сетки). Помогите пожалуйста.
 
 
 
#2
19.10.2012 06:40:19
Такое чувство, что это чистая математика. Пример приложите где видно, что нао посчитать и чему это должно равняться.  
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#3
19.10.2012 07:55:24
А пример для разбора согласно правилам форума будет?
 
 
 
#4
19.10.2012 15:09:44
вот пример
 
 
 
#5
19.10.2012 15:33:58
В голову пока приходит только такой вариант:  
1) проходим по парам точек (1-2, 2-3, 3-4 и т.д.)  
2) вычисляем уравнение прямой м/у этой парой  
3) считаем количество пересечений с сеткой исходя из шага сетки  
4) суммируем  
 
может есть другой подход, но я пока его не вижу. Формулой однозначно это не решить - надо писать макрос.  
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#6
19.10.2012 22:14:57
Число вертикальных линий: (Хмакс-Хмин)/ШагХ  
Число горизонтальных линий: (Умакс-Умин)/ШагУ  
 
А?
 
 
 
#7
20.10.2012 10:32:33
я лично на первом графике насчитал 22 квадрата  
 
 
алгоритм вижу таким:  
 
идти по данным поточечно, определять принадлежность каждой точки определенному квадрату, из координат квадрата( лев граница, верхняя граница) получается ключ для словаря, в который и заносится результат. в конце получаем количество элементов в словаре, кот и будет искомым
Живи и дай жить..
 
 
 
#8
20.10.2012 10:49:01
на первом графике границы определяются кратностью 50  
 
для нахождения ближайшей границы можно использовать формулу окрвниз()  
 
вообще можно решить формулами, если помните формулу для нахождения количества уникальных элементов
Живи и дай жить..
 
 
 
#9
20.10.2012 21:58:17
Если не трудно приложите файл и там набросайте пример. Просто я только начинаю знакомится со вселенной EXCEL и многого не знаю. Помогите пожалуйста.
 
 
 
#10
21.10.2012 03:46:47
Вот.  
Попробовал соединить идеи ber$erk и слэн:
 
 
 
#11
21.10.2012 11:57:41
Большое спасибо! Есть только один вопрос: мне этот макрос необходимо копировать на каждый лист книги в которой я его использую? Если да, то как это сделать.
 
 
 
#12
21.10.2012 13:12:19
там пользовательская ф-ция в данной книге будет работать на всех листах.  
Если нужно чтобы работала в разных книгах то  
1. Копировать в каждую книгу где ф-ция понадобится вручную.  
2. скопировать в персональную книгу макросов(если нет её создать). тогда будет работать во всех других книгах с одной разницей назв функции будет personal...ЧислоКвадратов(....)
 
 
 
#13
21.10.2012 13:24:50
http://www.planetaexcel.ru/tip.php?aid=122 здесь почитайте.  
при создании перс. книги макросов обратите внимание на "запись макросов макрорекордером" "сохранить в", там выдрана книга а вам нужно другой вариант.
 
 
 
#14
21.10.2012 14:09:02
{quote}{login=GUDboll}{date=21.10.2012 11:57}{thema=}{post}Есть только один вопрос: мне этот макрос необходимо копировать на каждый лист книги в которой я его использую? Если да, то как это сделать.{/post}{/quote}  
To V: пока я сочинял ответ - Вы уже ответили. На всякий случай мой вариант инструкции (я - старался :-)).  
 
Re: Нет, код макроса, точнее - пользовательской функции, должен быть в обычном (стандартном) модуле.  
 
Если Вы хотите использовать эту функцию только в одном своём файле:  
или добавьте, в редакторе VBA, новый модуль в проект Вашей книги - выделите мышкой VBAProject (...)  
в окне Project, и нажмите Insert->Module, скопируйте текст из моего модуля, начиная с Option Explicit,  
или просто перетащите мышом мой модуль в Ваш проект. Сохраните свой проект (File->Save).  
 
Если предполагается использовать функцию в нескольких книгах, то лучше создать такой модуль  
в PERSONAL.xlsm, его (её ?) файл всегда открыт и функция будет везде доступна.
 
 
 
#15
21.10.2012 16:17:57
Большое спасибо! Очень помогли.
 
 
 
#16
21.10.2012 16:34:08
Господа, беда! Макрос считает неточно. Необходимо чтобы он считал все клетки по которым проходит линия графика (т.е. когда проходит по уголкам клетки или по ее границе). Это возможно поправить или не получится?
 
 
 
#17
21.10.2012 18:40:55
Можно.  
Добавьте к знакам "<" ">" знак "=" в строке:    
If X >= X1 And X =< X2 And Y >= Y1 And Y =< Y2 Then XYUniqs.Add 0, CStr(X1) & "|" & CStr(Y1)  
ЗЫ: но фукция всё равно - АБСОЛЮТНО точно всё не посчитает.  
Если это для расчёта кафельной плитки, прикупите процетов на десять больше :-)
 
 
 
#18
21.10.2012 19:16:10
Большое спасибо!
 
 
 
Страницы: 1
Читают тему
Наверх