Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с диапазонами данных / 5 сообщений из 5, страница 1 из 1
18.02.2014, 14:03
    #38564535
nikko_shar
nikko_shar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с диапазонами данных
Добрый день!

Подскажите, пожалуйста, как заставить циклично сопоставлять Ячейки в диапазонах?

Допустим:
D1(А1:А10) - Диапазон1
D2(B1:B10) - Диапазон2
D3(C1:C10) - Диапазон3

Если первое значение из Диапазона1 (A1) меньше нуля, то для первого значения Диапазона2 осуществляется подбор параметра, меняя первое значение Диапазона3. Далее смещение на одну ячейку вправо и повтор действия.

Помогите плз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2014, 14:18
    #38564566
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с диапазонами данных
Код: vbnet
1.
2.
3.
4.
5.
6.
dim i&
for i=1 to 10
  cells(i,1) 'ячейка диап. А1:А10
  cells(i,2) 'ячейка диап. B1:B10
  cells(i,"C") 'ячейка диап. C1:C10
next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2014, 15:03
    #38564664
nikko_shar
nikko_shar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с диапазонами данных
Казанский, спасибо за отклик.

Но хотелось бы именно через диапазоны, т.к. высчитывать каждый раз абсолютную ссылку в экселе не хочется (например, при изменении строк и т.п.)

И все же здесь не увидел проверки ячеек на диапазоны и применение функции GoalSeek...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2014, 15:10
    #38564674
nikko_shar
nikko_shar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с диапазонами данных
Казанский,

Может, для наглядности поможет мой код для одного цикла?
Нужно чтобы этот код съезжал вправо в рамках диапазонов ячеек друг над другом...

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub Кредит()

If Range("O83") <= 0 Then
Range("O105").GoalSeek Goal:=1000, ChangingCell:=Range("O100")
Else: Range("O105").GoalSeek Goal:=1000, ChangingCell:=Range("O101")
End If

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2014, 15:59
    #38564776
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с диапазонами данных
ответил там: http://www.sql.ru/forum/1077906/podbor-parametra-dlya-diapazona-v-sootvetstvii-so-znacheniem-yacheyki
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с диапазонами данных / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 403ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156507]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 269ms
total:  403ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]