| Вопрос: макрос, с использованием SolverSolve | Добавлено: 16.12.05 13:38 |
Автор вопроса:  shiriy | Web-сайт: lexxur.narod.ru | ICQ: 196378452 |
|
Здраствуйте!
подскажите, пожалуйста, в чем моя ошибка?(макрос впервый раз пишу, vb не знаю, но опыт программирования есть на др. языках). Sub мак2() Dim k As Integer лист1.Cells(1, 15).Select For k = 1 To 62 SolverOk SetCell:=лист1.Cells(4 + (k - 1) * 6, 15), MaxMinVal:=2, ValueOf:="0", ByChange:=Range(лист1.Cells((4 + (k - 1) * 6), 7), лист1.Cells((4 + (k - 1) * 6), 8), лист1.Cells((4 + (k - 1) * 6), 9))<---в этой строке выдает ошибку: "Wrong number of arguments or invalid property assignment"(при комп.) SolverSolve Next k End Sub Заранее спасибо. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 16.12.05 15:27 |
|
Русские буквы в коде. Жють.
ByChange:=Range(лист1.Cells(4 + (k - 1) * 6, 7), лист1.Cells(4 + (k - 1) * 6, 9)) |
||
|
Номер ответа: 2 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #2 | Добавлено: 16.12.05 17:24 |
| Гыы.. Я тоже ненавижу когда по-русски пишут код.. | ||
|
Номер ответа: 3 Автор ответа: shiriy ICQ: 196378452 Вопросов: 2 Ответов: 2 |
Web-сайт: Профиль | | #3 | Добавлено: 19.12.05 12:25 |
|
спасибо.
P.s. присутствие русских букв в коде, меня не смущает. |
||
Страница: 1 |