Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как ввести все числа от 0 до 99999999
 
#1
08.04.2012 16:37:30
обьясните пожалуйста возможно ли в экселе ввести все числа от 0 до 99999999  
тоесть прогрессия  
0  
1    
2  
3  
и тп
 
 
 
#2
08.04.2012 16:45:09
Возможно, но... Какой XL? Как? Куда? Зачем?
 
 
 
#3
08.04.2012 16:46:01
В один столбец - нельзя. В 2007/2010 можно сделать 100 столбцов по миллиону чисел (если памяти хватит).  
А зачем?
 
 
 
#4
08.04.2012 17:37:07
нужно создать "мини" словарь по числам, если кто знает отпишитесь как это сделать, буду очень благодарен
 
 
 
#5
08.04.2012 17:40:46
у меня 2007 не важно сколько будет столбцов но главно чтобы возможно насчет хватит ли памяти я над этим не заморачиваюсь компьютер очень мощный, по этому хватит было это сделано
 
 
 
#6
08.04.2012 17:52:55
{quote}{login=borg2442}{date=08.04.2012 05:37}{thema=}{post}нужно создать "мини" словарь по числам{/post}{/quote}  
Может Вам нужно "Число прописью"?  
 
ЗЫ: "мини" словарь на 100 млн. слов!!!
 
 
 
#7
08.04.2012 21:17:26
нужны числа такого вида    
000001  
000002  
000003  
000004  
не важно сколько там миллионов слов возможно ли это и если да то напишите как по зарез нужно
 
 
 
#8
08.04.2012 21:24:21
???  
 
Range("A1").AutoFill Destination:=Range("A1:A9999"), Type:=xlFillDefault
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#9
09.04.2012 01:43:47
{quote}{login=borg2442}{date=08.04.2012 05:37}{thema=}{post}нужно создать "мини" словарь по числам{/post}{/quote}  
Т.е.? Какой словарь? Для чего? Что Вы с ним собираетесь делать?  
Опишите. Возможно, есть решение проще.
 
 
 
#10
09.04.2012 11:12:12
Вариант. У меня этот код отрабатывал на 3-х столбцах секунд 15-20, можете посчитать сколько времени потребуется Вам. И еще, то что Вы показали - не числа для Ехс, поэтому сделал текстовую выгрузку данных.  
Sub tt()  
Dim l As Double, k As Long, j As Long  
Dim myArr()  
Application.ScreenUpdating = False  
For l = 0 To 100000000  
For j = 1 To 95  
ReDim myArr(1 To 1048576, 1 To 1)  
For k = 1 To 1048576  
 
myArr(k, 1) = Format(l, "000000")  
l = l + 1  
Next k  
Range(Cells(1, j), Cells(1048576, j)).NumberFormat = "@"  
Range(Cells(1, j), Cells(1048576, j)) = myArr  
Next j  
Next l  
Application.ScreenUpdating = True  
End Sub
 
 
 
#11
09.04.2012 12:09:08
Развивая идею LightZ. От 0 до 999999 - 100 столбцов по 10000 чисел.  
Как сделать по миллиону - надеюсь, понятно.  
 
Sub bb()  
Cells.NumberFormat = "000000"  
[A1] = 0: [B1] = 10000
[A2] = 1: [B2] = 10001
[A1:B2].AutoFill [A1].Resize(2, 100)
[A1].Resize(2, 100).AutoFill [A1].Resize(10000, 100)
End Sub
 
 
 
#12
10.04.2012 09:03:25
{quote}{login=vikttur}{date=09.04.2012 01:43}{thema=Re: }{post}Опишите. Возможно, есть решение проще.{/post}{/quote}  
есть множество программ у которых идет передоб по словарю но в интеренете есть некоторые не полные словари я хочу создать свой скопировав все данные в блокнот и сохранив получиться тот же словарь
 
 
 
#13
10.04.2012 09:07:00
{quote}{login=Казанский}{date=09.04.2012 12:09}{thema=}{post}Развивая идею LightZ. От 0 до 999999 - 100 столбцов по 10000 чисел.  
Sub bb()  
......................  
End Sub{/post}{/quote}  
я не очень хорошо разбираюсь в экселе но вопрос куда это вставлять в формулу?
 
 
 
#14
10.04.2012 12:23:43
Код нужно вставить в модуль. Про модули можно почитать здесь: <BR>http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-modul-kakie-byvayut-moduli/
 
 
 
#15
10.04.2012 12:54:20
А зачем формула или макрос? Чем автозаполнение не подходит?
 
 
 
#16
10.04.2012 15:31:15
при автозаполнении он воспринемает 00000001 как 1
 
 
 
#17
10.04.2012 15:38:18
{quote}{login=Казанский}{date=09.04.2012 12:09}{thema=}{post}азвивая идею LightZ. От 0 до 999999 - 100 столбцов по 10000 чисел...{/post}{/quote}  
спасибо все получилось но там только 999999 6ти знычные а нужно 8 если не трудно напиши новую формулу или обьясни как эту изменить
 
 
 
#18
10.04.2012 15:48:56
А у меня в 3 щелка получилось? -:)
 
 
 
#19
10.04.2012 16:08:19
Выбираете ячейку -Формат ячеек-Все форматы-Основной-забиваете 8 нулей и ОК
 
 
 
#20
10.04.2012 22:45:41
не помогло оно только нулей добавляет, возможно это нужно в самой формуле прописать но я незнаю как
 
 
 
#21
11.04.2012 09:33:57
протягивайте вниз сколько угодно строк с числами нужного вам формата.
 
 
 
#22
11.04.2012 12:49:55
> не помогло оно только нулей добавляет, возможно это нужно в самой формуле прописать но я незнаю как  
 
Пробуйте  
 
Sub bb()  
Cells.NumberFormat = "00000000"  
[A1] = 0: [B1] = 1000000
[A2] = 1: [B2] = 1000001
[A1:B2].AutoFill [A1].Resize(2, 100)
[A1].Resize(2, 100).AutoFill [A1].Resize(1000000, 100)
End Sub  
 
Если Вы хотите скопировать все это в блокнот, т.е. получить текстовый файл, то лучше сразу формировать макросом текстовый файл:  
 
Sub bb1()  
Dim i&  
Open "c:\1.txt" For Output As #1 'тут полный путь к файлу  
For i = 0 To 99999999  
   Print #1, Format(i, "00000000")  
Next  
Reset  
End Sub  
 
=57375=
 
 
 
#23
11.04.2012 18:47:07
Казанский спасибо огромное, все работает
 
 
 
Страницы: 1
Читают тему
Наверх