ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с диапазонами данных
5 сообщений из 5, страница 1 из 1
Работа с диапазонами данных
    #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:03
| Ответить | Цитировать | Написать  
Работа с диапазонами данных
    #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, 14:18
| Ответить | Цитировать | Написать  
Работа с диапазонами данных
    #38564664
nikko_shar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikko_shar
Гость
Казанский, спасибо за отклик.

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

И все же здесь не увидел проверки ячеек на диапазоны и применение функции GoalSeek...
...
Рейтинг: 0 / 0
18.02.2014, 15:03
| Ответить | Цитировать | Написать  
Работа с диапазонами данных
    #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:10
| Ответить | Цитировать | Написать  
Работа с диапазонами данных
    #38564776
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
ответил там: http://www.sql.ru/forum/1077906/podbor-parametra-dlya-diapazona-v-sootvetstvii-so-znacheniem-yacheyki
...
Рейтинг: 0 / 0
18.02.2014, 15:59
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с диапазонами данных
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=60&tid=2156507]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 77ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 36ms
get tp. blocked users:
 2ms
others: 270ms
total:  428ms
созд. / загр.: 428ms
x
x
Закрыть


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