Страница: 1 |
Страница: 1 |
Вопрос: КАК заполнить таблицу в Excel ?
Добавлено: 24.02.07 01:36
Автор вопроса: ZSZ | Web-сайт:
Здравствуйте! Я новичек в программировнии и прошу помочь мне.
Имеется следующий схематичный алгоритм (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 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