Задачка на VBA - Помощь студентам

Angelholy · 03.05.2009, 14:10

Буду очень благодарен кто поможет.

ДАно натуральное число N.Cоставить программу формирования массива элементов которого явл. цифры числа N.
Делается в Excele выводится там же.

EducatedFool · 03.05.2009, 15:09

Код:

Sub СложнейшаяПрограмма()
    nn:   n = InputBox("Введите натуральное число N", , "12345")
    If Not n Like String(Len(n), "#") Or Val(n) <= 0 Then GoTo nn
    ReDim arr(1 To Len(n), 1 To 1)
    For i = 1 To Len(n): arr(i, 1) = Mid(n, i, 1): Next: [a1].Resize(Len(n)).Value = arr
End Sub

Angelholy · 03.05.2009, 21:40

Спс за помощь.

03.05.2009, 14:10	#1
Angelholy Пользователь Регистрация: 22.03.2009 Сообщений: 22	Задачка на VBA Буду очень благодарен кто поможет. ДАно натуральное число N.Cоставить программу формирования массива элементов которого явл. цифры числа N. Делается в Excele выводится там же. Последний раз редактировалось Angelholy; 03.05.2009 в 14:17.

03.05.2009, 15:09	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Код: `Sub СложнейшаяПрограмма() nn: n = InputBox("Введите натуральное число N", , "12345") If Not n Like String(Len(n), "#") Or Val(n) <= 0 Then GoTo nn ReDim arr(1 To Len(n), 1 To 1) For i = 1 To Len(n): arr(i, 1) = Mid(n, i, 1): Next: [a1].Resize(Len(n)).Value = arr End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
задачка по VBA в Word	konfetka	Помощь студентам	8	23.04.2009 16:47
VBA!!!	NitriNKa	Помощь студентам	5	08.04.2009 00:31
VBA	Pinya	Microsoft Office Excel	2	19.09.2008 11:51

03.05.2009, 21:40	#3
Angelholy Пользователь Регистрация: 22.03.2009 Сообщений: 22	Спс за помощь.