| Вопрос: КАК заполнить таблицу в Excel ? | Добавлено: 24.02.07 01:36 |
Автор вопроса:  ZSZ | Web-сайт: нет | ICQ: нет |
|
Здравствуйте! Я новичек в программировнии и прошу помочь мне.
Имеется следующий схематичный алгоритм (VB 6.0): A=1 B=1 Do Until A = 100 Do Until B = 100 Выражение, в результате которого вычисляются различные значения S в каждой итерации B=B+1 Loop A=A+1 Loop Пожалуйста, подскажите КАК полученные значения S поместить в Excel в таблицу размером 100х100 (переменная А определяет строку, а переменная В - столбец). |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 24.02.07 03:35 |
|
A = 1
Do Until A = 100 B = 1 ' !!!  o Until B = 100
Cells(A, B) = "R" & A & " C" & B B = B + 1 Loop A = A + 1 Loop |
||
|
Номер ответа: 2 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #2 | Добавлено: 24.02.07 03:51 |
|
Но надо оптимизировать:
Dim a As Integer Dim b As Integer Dim myArr(99, 99) As Variant For a = 0 To 99 For b = 0 To 99 myArr(a, b) = "R" & a & " C" & b Next Next Range(Cells(1, 1), Cells(100, 100)) = myArr |
||
|
Номер ответа: 3 Автор ответа: ZSZ ICQ: нет Вопросов: 1 Ответов: 1 |
Web-сайт: Профиль | | #3 | Добавлено: 24.02.07 13:51 |
| БОЛЬШОЕ спасибо за Ваш ответ | ||
|
Номер ответа: 4 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #4 | Добавлено: 26.02.07 04:16 |
|
исходя из вышепоставленной задачи, так будет правильнее...
Но надо оптимизировать: Dim a As Integer
Dim b As Integer Dim myArr(1 To 100, 1 To 100) As Variant For a = 1 To 100 For b = 1 To 100 myArr(a, b) = "R" & a & " C" & b Next Next Range(Cells(1, 1), Cells(100, 100)) = myArr |
||
Страница: 1 |