Выбор определенных значений из цикла

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор определенных значений из цикла (Формулы/Formulas)

Nikitoski

Дата: Вторник, 26.01.2016, 16:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Помогите переделать цикл с выбора подряд значений на только определенные:

[vba]

Код

Sub qwer()
' Сочетание клавиш: Ctrl+Shift+Q
Application.Goto Reference:="qwer"
Dim j
For j = 1 To 537
SolverOk SetCell:="$V$" & CStr(j), MaxMinVal:=1, ValueOf:=0, ByChange:="$X$" & CStr(j)
SolverAdd CellRef:="$V$" & CStr(j), Relation:=2, FormulaText:="$W$" & CStr(j)
SolverSolve UserFinish:=True
Next j
End Sub

[/vba]

Мне нужно чтобы он перебрал не все "j",а только те которые я укажу, например (153,325,502и т.д.), как это сюда дописать?
Заранее огромное спасибо.
[moder]Код нужно оформлять тегом #.
Поправила за Вас.[/moder]

Сообщение отредактировал Manyasha - Вторник, 26.01.2016, 16:54

Ответить

YouGreed

Дата: Вторник, 26.01.2016, 16:54 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 589

Репутация: 123 ±

Замечаний: 0% ±

Excel 2010

Nikitoski, Можно подвигать в этом направлении.

Цитата

Цикл For Each..Next

Ответить

Manyasha

Дата: Вторник, 26.01.2016, 16:55 | Сообщение № 3

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

так?

[vba]

Код

Sub qwer()
' Сочетание клавиш: Ctrl+Shift+Q
Application.Goto Reference:="qwer"
Dim j
For each j in Array(153, 325, 502)
SolverOk SetCell:="$V$" & CStr(j), MaxMinVal:=1, ValueOf:=0, ByChange:="$X$" & CStr(j)
SolverAdd CellRef:="$V$" & CStr(j), Relation:=2, FormulaText:="$W$" & CStr(j)
SolverSolve UserFinish:=True
Next j
End Sub

[/vba]
[p.s.]Работу не проверяла[/p.s.]

ЯД: 410013299366744 WM: R193491431804

Ответить

Nikitoski

Дата: Вторник, 26.01.2016, 17:00 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата YouGreed, 26.01.2016 в 16:54, в сообщении № 2

Nikitoski, Можно подвигать в этом направлении.
Цитата
Цикл For Each..Next

Я просто первый раз VBA вижу. До этого я догадался, но почему у меня не работает, переделайте мне начало сами, могу прислать вам шоколадку, у меня в упор не получается.

Ответить

Manyasha

Дата: Вторник, 26.01.2016, 17:15 | Сообщение № 5

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Nikitoski, какое начало-то??
код из 3-го сообщения чем не понравился?

Цитата Nikitoski, 26.01.2016 в 17:00, в сообщении № 4

До этого я догадался

тогда почему этого в коде нет?

ЯД: 410013299366744 WM: R193491431804

Ответить

Nikitoski

Дата: Среда, 27.01.2016, 08:36 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Все, все работает, спасибо огромное, просто когда писал второе сообщение от вас второго не видел, нигде не видел на форумах именной такого кода
[vba]

Код

For each j in Array(153, 325, 502)

[/vba]
везде было типа:
[vba]

Код

Dim numbers() As Integer = {1, 4, 7}
For Each number As Integer In numbers

[/vba]
и я не мог в этом разобраться, спасибо большое еще раз, посоветуйте мне, пожалуйста, книжку чтобы я мог сам поучить про vba.
Заранее благодарю.
[moder]Для оформления кода нужно не решетки ставить, а выделить текст и нажать готовую кнопку # над сообщением.
Исправьте оформление.[/moder]
Теперь понял, спасибо.