Помогите переделать цикл с выбора подряд значений на только определенные:
[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]
Помогите переделать цикл с выбора подряд значений на только определенные:
[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]Nikitoski
Сообщение отредактировал Manyasha - Вторник, 26.01.2016, 16:54
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.]
так?
[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
Nikitoski, Можно подвигать в этом направлении. Цитата Цикл For Each..Next
Я просто первый раз VBA вижу. До этого я догадался, но почему у меня не работает, переделайте мне начало сами, могу прислать вам шоколадку, у меня в упор не получается.
Nikitoski, Можно подвигать в этом направлении. Цитата Цикл For Each..Next
Я просто первый раз VBA вижу. До этого я догадался, но почему у меня не работает, переделайте мне начало сами, могу прислать вам шоколадку, у меня в упор не получается.Nikitoski
Все, все работает, спасибо огромное, просто когда писал второе сообщение от вас второго не видел, нигде не видел на форумах именной такого кода [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] Теперь понял, спасибо.
Все, все работает, спасибо огромное, просто когда писал второе сообщение от вас второго не видел, нигде не видел на форумах именной такого кода [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] Теперь понял, спасибо.Nikitoski
Сообщение отредактировал Nikitoski - Среда, 27.01.2016, 10:13