Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: КАК заполнить таблицу в 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 ' !!!
      ;Do 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам