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

Вход

Регистрация

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

 

= Мир MS Excel/Области - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Области
Области
goGAS Дата: Суббота, 01.10.2011, 00:03 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Здраствуйте
Подскажите пжл как можно выполнить данную задачу
(см.прикрепленный файл)
п.с (если можно уже решенный вариант happy )
К сообщению приложен файл: 8407167.jpg (39.4 Kb)
 
Ответить
СообщениеЗдраствуйте
Подскажите пжл как можно выполнить данную задачу
(см.прикрепленный файл)
п.с (если можно уже решенный вариант happy )
Автор - goGAS
Дата добавления - 01.10.2011 в 00:03
Serge_007 Дата: Суббота, 01.10.2011, 00:18 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Какое отношение вопрос имеет к Excel?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеКакое отношение вопрос имеет к Excel?
Автор - Serge_007
Дата добавления - 01.10.2011 в 00:18
light26 Дата: Суббота, 01.10.2011, 15:07 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (Serge_007)
Какое отношение вопрос имеет к Excel?

Сергей, ну как ты не понимаешь? "Определить количество.... заданным областям..." ))))

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (Serge_007)
Какое отношение вопрос имеет к Excel?

Сергей, ну как ты не понимаешь? "Определить количество.... заданным областям..." ))))
Автор - light26
Дата добавления - 01.10.2011 в 15:07
goGAS Дата: Воскресенье, 02.10.2011, 13:26 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Так сделать это надо в Excel
 
Ответить
СообщениеТак сделать это надо в Excel
Автор - goGAS
Дата добавления - 02.10.2011 в 13:26
MCH Дата: Воскресенье, 02.10.2011, 14:28 | Сообщение № 5
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация: 752 ±
Замечаний: ±

Quote (goGAS)
Так сделать это надо в Excel

Code
Sub circle3()
Dim x%, y%, i%
For y = -14 To 14
        For x = -14 To 14
            If (x + 7) ^ 2 + (y + 7) ^ 2 <= 49 And x ^ 2 + y ^ 2 > 49 Or _
                (x - 7) ^ 2 + (y - 7) ^ 2 <= 49 And x ^ 2 + y ^ 2 > 49 Or _
                (x + 7) ^ 2 + (y + 7) ^ 2 > 49 And (x - 7) ^ 2 + (y - 7) ^ 2 > 49 And _
                x ^ 2 + y ^ 2 <= 49 Then i = i + 1
Next x, y
Debug.Print i
End Sub

результат 343
или формулой массива:
Code
=СУММ(ЗНАК(((СТРОКА(1:29)-15+7)^2+ТРАНСП(СТРОКА(1:29)-15+7)^2<=49)*((СТРОКА(1:29)-15)^2+ТРАНСП(СТРОКА(1:29)-15)^2>49)+((СТРОКА(1:29)-15)^2+ ТРАНСП(СТРОКА(1:29)-15)^2<=49)*((СТРОКА(1:29)-15+7)^2+ТРАНСП(СТРОКА(1:29)-15+7)^2>49)*((СТРОКА(1:29)-15-7)^2+ТРАНСП(СТРОКА(1:29)-15-7)^2>49) +((СТРОКА(1:29)-15-7)^2+ТРАНСП(СТРОКА(1:29)-15-7)^2<=49)*((СТРОКА(1:29)-15)^2+ТРАНСП(СТРОКА(1:29)-15)^2>49)))


Сообщение отредактировал MCH - Воскресенье, 02.10.2011, 15:02
 
Ответить
Сообщение
Quote (goGAS)
Так сделать это надо в Excel

Code
Sub circle3()
Dim x%, y%, i%
For y = -14 To 14
        For x = -14 To 14
            If (x + 7) ^ 2 + (y + 7) ^ 2 <= 49 And x ^ 2 + y ^ 2 > 49 Or _
                (x - 7) ^ 2 + (y - 7) ^ 2 <= 49 And x ^ 2 + y ^ 2 > 49 Or _
                (x + 7) ^ 2 + (y + 7) ^ 2 > 49 And (x - 7) ^ 2 + (y - 7) ^ 2 > 49 And _
                x ^ 2 + y ^ 2 <= 49 Then i = i + 1
Next x, y
Debug.Print i
End Sub

результат 343
или формулой массива:
Code
=СУММ(ЗНАК(((СТРОКА(1:29)-15+7)^2+ТРАНСП(СТРОКА(1:29)-15+7)^2<=49)*((СТРОКА(1:29)-15)^2+ТРАНСП(СТРОКА(1:29)-15)^2>49)+((СТРОКА(1:29)-15)^2+ ТРАНСП(СТРОКА(1:29)-15)^2<=49)*((СТРОКА(1:29)-15+7)^2+ТРАНСП(СТРОКА(1:29)-15+7)^2>49)*((СТРОКА(1:29)-15-7)^2+ТРАНСП(СТРОКА(1:29)-15-7)^2>49) +((СТРОКА(1:29)-15-7)^2+ТРАНСП(СТРОКА(1:29)-15-7)^2<=49)*((СТРОКА(1:29)-15)^2+ТРАНСП(СТРОКА(1:29)-15)^2>49)))
Автор - MCH
Дата добавления - 02.10.2011 в 14:28
goGAS Дата: Воскресенье, 02.10.2011, 16:34 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

MCH как всегда спасает ситуацию


Сообщение отредактировал goGAS - Воскресенье, 02.10.2011, 21:43
 
Ответить
СообщениеMCH как всегда спасает ситуацию
Автор - goGAS
Дата добавления - 02.10.2011 в 16:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Области
  • Страница 1 из 1
  • 1
Поиск:

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