Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Пронумеровать ячейки диапазона - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин  
Мир MS Excel » Работа и общение » Мозговой штурм » Пронумеровать ячейки диапазона (макросом в окне Immediate)
Пронумеровать ячейки диапазона
Serge_007 Дата: Понедельник, 28.01.2013, 00:57 | Сообщение № 21
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (Gustav)
Асилил 8 наконец! Слава Богу, а то бы мучался и не выспался перед рабочей неделей

А с функциями листа?
В 10 символов? wink

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (Gustav)
Асилил 8 наконец! Слава Богу, а то бы мучался и не выспался перед рабочей неделей

А с функциями листа?
В 10 символов? wink
Автор - Serge_007
Дата добавления - 28.01.2013 в 00:57
ikki Дата: Понедельник, 28.01.2013, 00:58 | Сообщение № 22
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата (Gustav)
эта формула на 8 знаков - неплохой тест при приеме на работу

8 знаков и пол-дня на поиск решения? wink biggrin

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата (Gustav)
эта формула на 8 знаков - неплохой тест при приеме на работу

8 знаков и пол-дня на поиск решения? wink biggrin
Автор - ikki
Дата добавления - 28.01.2013 в 00:58
Serge_007 Дата: Среда, 30.01.2013, 10:13 | Сообщение № 23
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Код
=1+A2+K1

Код
=1+A2+Ч(K1)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Код
=1+A2+K1

Код
=1+A2+Ч(K1)
Автор - Serge_007
Дата добавления - 30.01.2013 в 10:13
ikki Дата: Среда, 30.01.2013, 10:54 | Сообщение № 24
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата (Serge_007)
Код
=1+A2+Ч(K1)

11 вроде бы? wink

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата (Serge_007)
Код
=1+A2+Ч(K1)

11 вроде бы? wink
Автор - ikki
Дата добавления - 30.01.2013 в 10:54
Serge_007 Дата: Среда, 30.01.2013, 10:58 | Сообщение № 25
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (ikki)
11 вроде бы?

А в правила заглянуть? wink

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (ikki)
11 вроде бы?

А в правила заглянуть? wink
Автор - Serge_007
Дата добавления - 30.01.2013 в 10:58
ikki Дата: Среда, 30.01.2013, 11:09 | Сообщение № 26
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
сорри sad

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениесорри sad
Автор - ikki
Дата добавления - 30.01.2013 в 11:09
Gustav Дата: Среда, 30.01.2013, 11:09 | Сообщение № 27
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2757
Репутация: 1139 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Цикл 36 символов:

[vba]
Код
for i=1to 4^5:[b2:k2].item(i)=i:next
[/vba]

"Пикантности":
* использование [b2:k2] вместо [b2:k101] - т.е. только первая строка вместо полного диапазона
* использование item вместо cells
* одномерная адресация: (i), а не (i,j) - соответственно, цикл только один
* допустимое для окна Immediate отсутствие пробела перед to
* три знака 4^5 (=1024) вместо четырех 1000 - да, это несколько больше, чем требуется, но конкретно диапазон [b2:k101] заполнен как надо

P.S. И что у нас с тегом vba ?

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Среда, 30.01.2013, 11:11
 
Ответить
СообщениеЦикл 36 символов:

[vba]
Код
for i=1to 4^5:[b2:k2].item(i)=i:next
[/vba]

"Пикантности":
* использование [b2:k2] вместо [b2:k101] - т.е. только первая строка вместо полного диапазона
* использование item вместо cells
* одномерная адресация: (i), а не (i,j) - соответственно, цикл только один
* допустимое для окна Immediate отсутствие пробела перед to
* три знака 4^5 (=1024) вместо четырех 1000 - да, это несколько больше, чем требуется, но конкретно диапазон [b2:k101] заполнен как надо

P.S. И что у нас с тегом vba ?
Автор - Gustav
Дата добавления - 30.01.2013 в 11:09
ikki Дата: Среда, 30.01.2013, 11:12 | Сообщение № 28
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
гы. можно ровно 1000 записать тремя символами. в остальном полностью совпали.
мой вариант (36 символов)
[vba]
Код
for i=1to 1e3:[b2:k2].item(i)=i:next
[/vba]
и, кстати, то, о чем я говорил: ужимается до 34 при выводе в диапазон B1:K100:
[vba]
Код
for i=1to 1e3:[b:k].item(i)=i:next
[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Среда, 30.01.2013, 11:17
 
Ответить
Сообщениегы. можно ровно 1000 записать тремя символами. в остальном полностью совпали.
мой вариант (36 символов)
[vba]
Код
for i=1to 1e3:[b2:k2].item(i)=i:next
[/vba]
и, кстати, то, о чем я говорил: ужимается до 34 при выводе в диапазон B1:K100:
[vba]
Код
for i=1to 1e3:[b:k].item(i)=i:next
[/vba]
Автор - ikki
Дата добавления - 30.01.2013 в 11:12
Serge_007 Дата: Среда, 30.01.2013, 11:14 | Сообщение № 29
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[offtop]
Цитата (Gustav)
что у нас с тегом vba ?

А что с ним?[/offtop]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[offtop]
Цитата (Gustav)
что у нас с тегом vba ?

А что с ним?[/offtop]
Автор - Serge_007
Дата добавления - 30.01.2013 в 11:14
Gustav Дата: Среда, 30.01.2013, 11:28 | Сообщение № 30
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2757
Репутация: 1139 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
[offtop]
IE 9.0 Win7
К сообщению приложен файл: 2698212.png (52.1 Kb)

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Среда, 30.01.2013, 11:29
 
Ответить
Сообщение[offtop]
IE 9.0 Win7
Автор - Gustav
Дата добавления - 30.01.2013 в 11:28
Serge_007 Дата: Среда, 30.01.2013, 11:39 | Сообщение № 31
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[offtop]
Цитата (Gustav)
IE 9.0 Win7

Принято, спасибо за сигнал[/offtop]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[offtop]
Цитата (Gustav)
IE 9.0 Win7

Принято, спасибо за сигнал[/offtop]
Автор - Serge_007
Дата добавления - 30.01.2013 в 11:39
RAN Дата: Среда, 30.01.2013, 11:42 | Сообщение № 32
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
1e3:[b:k].item(i)=i
[/vba]
Это интересно, а без цикла?

[offtop]Офф
Аналогично.[/offtop]

К сообщению приложен файл: 1553184.jpg (32.5 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
1e3:[b:k].item(i)=i
[/vba]
Это интересно, а без цикла?

[offtop]Офф
Аналогично.[/offtop]

Автор - RAN
Дата добавления - 30.01.2013 в 11:42
Gustav Дата: Среда, 30.01.2013, 11:58 | Сообщение № 33
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2757
Репутация: 1139 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Цитата (RAN)
а без цикла?

Без цикла - банално 20 символов smile

[vba]
Код
[b2:k101]="=1+A2+K1"
[/vba]

МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение
Цитата (RAN)
а без цикла?

Без цикла - банално 20 символов smile

[vba]
Код
[b2:k101]="=1+A2+K1"
[/vba]
Автор - Gustav
Дата добавления - 30.01.2013 в 11:58
RAN Дата: Среда, 30.01.2013, 12:01 | Сообщение № 34
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не считается! Так в ячейках формулы появляются! cool

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНе считается! Так в ячейках формулы появляются! cool
Автор - RAN
Дата добавления - 30.01.2013 в 12:01
Serge_007 Дата: Суббота, 02.02.2013, 00:49 | Сообщение № 35
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[offtop]
Цитата (Gustav)

IE 9.0 Win7

Аналогично[/offtop]
К сообщению приложен файл: 2897244.gif (33.7 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[offtop]
Цитата (Gustav)

IE 9.0 Win7

Аналогично[/offtop]
Автор - Serge_007
Дата добавления - 02.02.2013 в 00:49
ikki Дата: Воскресенье, 03.02.2013, 14:41 | Сообщение № 36
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата (Gustav)
последовательно нумерующий ячейки

Цитата (RAN)
в ячейках формулы появляются

не вижу противоречий.

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата (Gustav)
последовательно нумерующий ячейки

Цитата (RAN)
в ячейках формулы появляются

не вижу противоречий.
Автор - ikki
Дата добавления - 03.02.2013 в 14:41
Rioran Дата: Вторник, 17.06.2014, 15:48 | Сообщение № 37
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
До просмотра ответов попробовал сам :D Решение длинное, как ипотека:

[vba]
Код
For Each cell In [b2:k101]: cell.Value = cell.Column - 1 + (cell.Row - 2) * 10: Next cell
[/vba]
Gustav, подскажите, в Вашем решении на 36 символов почему макрос проводит перенос строки, дойдя до столбца K? Будь я макросом, я бы сказал, что диапазон заполнен и мавр дело сделал B)

[vba]
Код
for i=1to 4^5:[b2:k2].item(i)=i:next
[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran - Вторник, 17.06.2014, 15:48
 
Ответить
СообщениеДо просмотра ответов попробовал сам :D Решение длинное, как ипотека:

[vba]
Код
For Each cell In [b2:k101]: cell.Value = cell.Column - 1 + (cell.Row - 2) * 10: Next cell
[/vba]
Gustav, подскажите, в Вашем решении на 36 символов почему макрос проводит перенос строки, дойдя до столбца K? Будь я макросом, я бы сказал, что диапазон заполнен и мавр дело сделал B)

[vba]
Код
for i=1to 4^5:[b2:k2].item(i)=i:next
[/vba]
Автор - Rioran
Дата добавления - 17.06.2014 в 15:48
Мир MS Excel » Работа и общение » Мозговой штурм » Пронумеровать ячейки диапазона (макросом в окне Immediate)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!