| Вопрос: несколько массивов циклом | Добавлено: 25.07.11 19:19 |
Автор вопроса:  svetlana
|
|
день добрый.
у меня есть 9 массивов с одинаковыми названиями, отличаются только цифрой на конце. я беру один, обрабатываю его, потом беру второй, делаю с ним то же самое... может можно это запустить циклом? как пример для чекбокса: For x = 11 To 16 Sheets("List1a").Cells(x, 14) = Controls("CheckBox" & x).Value Sheets("List1a").Cells(x, 15) = Controls("CheckBox" & x).Caption Next x |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 25.07.11 19:46 |
|
For x = 11 To 16
For y = 11 To z Next x Next x |
||
|
Номер ответа: 2 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #2 | Добавлено: 25.07.11 20:17 |
| ну всмысле x вместо z | ||
|
Номер ответа: 3 Автор ответа: svetlana Вопросов: 1 Ответов: 3 |
Профиль | | #3 | Добавлено: 25.07.11 21:36 |
|
нет, массивы одномерные, заданы строками, и их обработка происходит через split.
мне нужно, чтобы я сперва задавала обработку всех txt в массиве my_array_1, потом я задаю в my_array_2... я ведь понимаю, что можно это задать циклом.даже ведь пример привела того, что мне требуется. например для обработки чекбоксов впереди нужно было поставить Controls. а что для массивов? |
||
|
Номер ответа: 4 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #4 | Добавлено: 25.07.11 22:22 |
| делай массив массивов my_arrays( индекс ) или ячето не понял | ||
|
Номер ответа: 5 Автор ответа: svetlanaВопросов: 1 Ответов: 3 |
Профиль | | #5 | Добавлено: 26.07.11 17:54 |
|
хорошо, я многого не знаю и объяснять не умею. заново.
Dim x As Integer Dim s_t_1 As String Dim s_t_2 As String Dim s_t_3 As String s_t_1 = "2 4 6 8 90 45 75 36 47"'числа от балды, для примера s_t_2 = "4 55 77 9 35 84 5" s_t_3 = "66 8 6 84 2 85 35" x=0 For Each txt In Split(s_t_1, " "  'потом такой же оборот для s_t_2 и s_t_3, эти обороты я и хочу убрать и сэкономить кучу места
n = Val(txt) x = x + 1 If x = 3 Then MsgBox n Next если я создаю массив масивов, то его тоже надо как - нибудь поэкономнее создать. то есть например в этом случае Dim s_t_4(1 To 3) As Variant For x = 1 To 3 s_t_4(x) = "s_t_" & x Next x MsgBox s_t_4(3) выдает: s_t_3 а мне надо, что бы выдавал то, чему s_t_3 равно, то есть текстовой строке. |
||
|
Номер ответа: 6 Автор ответа: svetlanaВопросов: 1 Ответов: 3 |
Профиль | | #6 | Добавлено: 26.07.11 17:57 |
| п.с. там где смайлик - закрывающаяся скобка | ||
Страница: 1 |