Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 08.12.2011, 19:26   #11
alex77755
Участник клуба
 
Аватар для alex77755
 
Регистрация: 15.02.2009
Адрес: Украина Павлоград
Сообщений: 753
Репутация: 64
По умолчанию

Код:

For R = 1 To UBound(M, 1)
    For C = 1 To UBound(M, 2)
         M(R, C) = IIf(Abs(M(R, C)) > N, M(R, C) / N, M(R, C))
Next C, R

__________________
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru

Последний раз редактировалось alex77755; 08.12.2011 в 19:27. Причина: Блок замени
alex77755 вне форума  
Старый 08.12.2011, 19:28   #12
ilyha93
Пользователь
 
Регистрация: 08.12.2011
Сообщений: 29
Репутация: 10
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Что-то я там с модулем не то сделал Ну это лекго исправить...
это вам а легко а человеку который только начал тяжеловато будет))))


скажите а можете помочь решить эту задачу только если сделать по вот этой мини инструкции
Наберите текст процедуры. Для обработки всех ячеек выделенного диапазона используйте цикл For Each. Для определения ячеек, куда будет записываться результат, используйте свойство Offset. Ячейку, куда будет записываться результат, необходимо сдвинуть относительно исходной ячейки на количество строк выделенного диапазона или количество столбцов выделенного диапазона. Для определения количества строк и столбцов в выделенном диапазоне используйте инструкции Selection.Rows.Count и Selection.Columns.Count. Для того чтобы избежать ошибок, связанных с неверными типами данных, проверьте тип данных ячейки с помощью инструкции VarType(cell.Value) = vbDouble.
ilyha93 вне форума  
Старый 08.12.2011, 19:28   #13
ilyha93
Пользователь
 
Регистрация: 08.12.2011
Сообщений: 29
Репутация: 10
Смущение

Цитата:
Сообщение от alex77755 Посмотреть сообщение
Код:

For R = 1 To UBound(M, 1)
    For C = 1 To UBound(M, 2)
         M(R, C) = IIf(Abs(M(R, C)) > N, M(R, C) / N, M(R, C))
Next C, R



а можно с 1 строчки до последней
ilyha93 вне форума  
Старый 08.12.2011, 19:32   #14
Hugo121
Профессионал
 
Регистрация: 11.05.2010
Сообщений: 4,975
Репутация: 464
По умолчанию

Так у меня практически всё так и сделано.
А с модулем вероятно так (я не математик, так что что такое модуль - понимаю смутно, у alex77755 подсмотрел):

Код:

If Abs(a(i, ii)) > x Then

__________________
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума  
Старый 08.12.2011, 19:40   #15
ilyha93
Пользователь
 
Регистрация: 08.12.2011
Сообщений: 29
Репутация: 10
По умолчанию

скажите я вот набираю а мне вот это выдает ...
Изображения
Тип файла: jpg УЧУД.jpg (218.5 Кб, 5 просмотров)
ilyha93 вне форума  
Старый 08.12.2011, 19:50   #16
ilyha93
Пользователь
 
Регистрация: 08.12.2011
Сообщений: 29
Репутация: 10
По умолчанию

И люди можете если не сложно помочь еще воот с этими 3

1)ЗАДАЧА:
Составьте функцию, которая проверяет, действительно ли количество положительных
элементов диапазона меньше количества его отрицательных элементов.

2)Разработать функцию, выполняющую указанное задание. Функция должна получать диапазон для обработки, а также, при необходимости, заданное число или заданный интервал, и возвращать массив. Для проверки работоспособности функции использовать её для вставки формулы массива.
ЗАДАЧА:
Составьте функцию, которая находит в каждом столбце диапазона количество элементов, меньших среднего арифметического значения всех элементов диапазона

3)Разработать функцию, выполняющую указанное задание. Функция должна получать диапазон для обработки, а также, при необходимости, заданное число или заданный интервал. Для задания параметров функции разработать пользовательскую форму, которая должна вызываться с помощью пользовательского пункта контекстного меню. Результат функции выводить с помощью стандартной функции MsgBox.
ЗАДАЧА:
Найти сумму элементов, кратных заданному числу.
ilyha93 вне форума  
Старый 08.12.2011, 19:51   #17
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Адрес: Россия, Урал
Сообщений: 6,809
Репутация: 1220

icq: 5836318
skype: ExcelVBA.ru
По умолчанию

Ну так уберите строку, которая выделена синим на скриншоте
Зачем вы её вообще добавили?

Цитата:
И люди можете если не сложно помочь еще воот с этими 3
А вот это уже наглость
У нас халявщиков не любят.


Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.


В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго.

Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки)

Ну а если наработок нет, а вы все же надеетесь получить готовое решение от профессионалов, - создавайте новую тему, и сразу указывайте цену, которую Вы готовы заплатить за решение.
EducatedFool вне форума  
Закрытая тема

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как создать функцию, которая возвращает результат - строку типа ansistring. atg C++ Builder 2 28.10.2009 19:20
Как создать функцию с переменным кол-во параметров? VintProg Общие вопросы Delphi 12 11.08.2009 12:49
Как создать через редактор Visual Basic функцию в Excel Dima007 Microsoft Office Excel 2 04.11.2008 21:04
Как создать процедуру и функцию? Absent Общие вопросы Delphi 1 18.11.2007 18:36


14:54.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru