Двумерный массив вывести на лист Excel

@Vlad220994 · Регистрация: 18.05.2011

Author24 — интернет-сервис помощи студентам

Написать макрос, который просит пользователя ввести количество учащихся. Затем предлагает ввести фамилии, номера телефонов учащихся и средний балл по предметам, создает массив. Элементы массива вывести на лист Excel. Ниже представлен рекомендуемый вид экрана во время работы программы.

Фамилия Телефон Средний балл
Иванов 5456575 6,8
Петров 1234567 7,4
Сидоров 2345678 5,9
Александров 3214567 8,1
Маринин 6543218 6,9

@all_angarsk · 31.10.2011, 06:22

Visual Basic

Private Sub CommandButton1_Click()
Dim я(4) As String
Dim d() As String
я(1) = "Фамилия": я(2) = "телефон": я(3) = "Ср_балл":
ActiveSheet.ListObjects.Add(xlSrcRange, ActiveSheet.Range("$A$1:$C$1"), , xlYes).Name = "Таблица"
Cells(1, 1) = я(1)
Cells(1, 2) = я(2)
Cells(1, 3) = я(3)
Dim s As Integer
s = InputBox("Введите число студентов")
ReDim d(s, 3)
For i = 1 To s
For j = 1 To 3
d(i, j) = InputBox("Введите " & я(j))
Cells(i + 1, j) = d(i, j)
Next
Next
End Sub

вариант можетподойдет

@Vlad220994 1 / 1 / 1 Регистрация: 18.05.2011 Сообщений: 73
		1
	Двумерный массив вывести на лист Excel 30.10.2011, 00:02. Показов 6973. Ответов 1 Метки нет (Все метки) Написать макрос, который просит пользователя ввести количество учащихся. Затем предлагает ввести фамилии, номера телефонов учащихся и средний балл по предметам, создает массив. Элементы массива вывести на лист Excel. Ниже представлен рекомендуемый вид экрана во время работы программы. Фамилия Телефон Средний балл Иванов 5456575 6,8 Петров 1234567 7,4 Сидоров 2345678 5,9 Александров 3214567 8,1 Маринин 6543218 6,9 0

	31.10.2011, 06:22