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

Регистрация

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

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

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин

Пронумеровать ячейки диапазона (макросом в окне Immediate)

Пронумеровать ячейки диапазона

Дата: Воскресенье, 27.01.2013, 14:58 | Сообщение № 1

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Задание: для окна отладки (Immediate) редактора VBA написать однострочный макрос, последовательно нумерующий ячейки диапазона 100 строк x 10 столбцов значениями от 1 до 1000, адрес диапазона: B2:K101 текущего рабочего листа.

После выполнения макроса ячейки диапазона должны отображать тысячу значений:
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
............................................................
981 982 983 984 985 986 987 988 989 990
991 992 993 994 995 996 997 998 999 1000

Картина не должна меняться после повторных выполнений макроса.

Мои решения:
* 36 символов - c циклом (имхо, интереснее поломать голову именно здесь)
* 33 32 20 символов - без цикла (имхо, гораздо прозаичнее)

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

Сообщение отредактировал Gustav - Понедельник, 28.01.2013, 00:25

Ответить

Дата: Воскресенье, 27.01.2013, 15:23 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

34 33 (без цикла)

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

Сообщение отредактировал ikki - Воскресенье, 27.01.2013, 15:30

Ответить

Дата: Воскресенье, 27.01.2013, 15:31 | Сообщение № 3

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Да, я не подумал, что надо ужесточить условие циклом. Хорошо, с 33 понятно. Как насчёт цикла? smile

smile

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

Ответить

Дата: Воскресенье, 27.01.2013, 15:35 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

думаю...
пока 39
upd за 40 минут додумался до варианта с циклом в 37 символов. 36 - никак. видимо, другой подход нужен.
upd через 3 минуты - 36. king

king

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

Сообщение отредактировал ikki - Воскресенье, 27.01.2013, 16:24

Ответить

Дата: Воскресенье, 27.01.2013, 16:39 | Сообщение № 5

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата (ikki)

через 3 минуты - 36

Ай, молодца, неужели обнаружил все мои секретки?! biggrin

biggrin

А я тем временем улучшил безцикловую версию на 1 знак - 32. В предположении, что первая строка и первый столбец листа - пустые. Собственно это неявно сразу предполагалось, поскольку диапазон начинается с B2, а не с A1. Тем не менее, спешу озвучить это явно.

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

Ответить

Дата: Воскресенье, 27.01.2013, 16:40 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

вопрос-предложение smile

smile

а если изменить диапазон на B1:K100?
можно уменьшить длину решения?
в моем варианте получилось 34.

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

Ответить

Дата: Воскресенье, 27.01.2013, 16:42 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

Цитата (Gustav)

неужели обнаружил все мои секретки?!

хочешь - отправлю в личку?

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

Сообщение отредактировал ikki - Воскресенье, 27.01.2013, 16:53

Ответить

Дата: Воскресенье, 27.01.2013, 16:45 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

Цитата (Gustav)

это неявно сразу предполагалось

нифига не согласен! сказано:

Цитата (Gustav)

адрес диапазона: B2:K101 текущего рабочего листа

и всё.
"текущий лист" не обязан быть пустым.

с другой строны, в "текущем" листе может быть вообще чёрти-чё - например, текстовые форматы ячеек.
и тогда некоторые варианты решений не будут рабочими.
думаю, на будущее надо формулировать условия более четко. wink

wink

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

Ответить

Дата: Воскресенье, 27.01.2013, 17:03 | Сообщение № 9

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата (ikki)

а если изменить диапазон на B1:K100?
можно уменьшить длину решения?
в моем варианте получилось 34

хм... а у меня все равно 36... стабильное такое решение...

Цитата (ikki)

думаю, на будущее надо формулировать условия более четко

хорошо, хорошо! впредь буду чётче, все равно безцикловая версия меня не так прёт, как цикл smile

smile

Цитата (ikki)

хочешь - отправлю в личку?

как хочешь, похоже, алгоритмы всё же разные, могу и вскрытия дождаться

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

Ответить

Дата: Воскресенье, 27.01.2013, 17:05 | Сообщение № 10

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

Цитата (Gustav)

а у меня все равно 36...

Цитата (Gustav)

похоже, алгоритмы всё же разные

да, похоже, что разные.
ладно, вскрытие покажет smile

smile

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

Ответить

Дата: Воскресенье, 27.01.2013, 17:38 | Сообщение № 11

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

в предположении, что первая строка и первый столбец пустые - есть решение без цикла в 27 символов.

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

Сообщение отредактировал ikki - Воскресенье, 27.01.2013, 17:41

Ответить

Дата: Воскресенье, 27.01.2013, 17:47 | Сообщение № 12

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата (ikki)

есть решение без цикла в 27 символов.

вах! есть мнение, что формулисты могут тоже активно поучаствовать в теме

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

Ответить

Дата: Воскресенье, 27.01.2013, 17:58 | Сообщение № 13

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

формула для левой верхней ячейки (копируемая) - 15 символов (вместе с =)

при предположении, что текущий лист - вообще пустой, формула - 8 символов (вместе с =)
соответствующее решение в immediate - 20 символов.
biggrin

biggrin

(думаю, из всего вышесказанного решение очевидно)

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

Сообщение отредактировал ikki - Воскресенье, 27.01.2013, 18:03

Ответить

Дата: Воскресенье, 27.01.2013, 21:15 | Сообщение № 14

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата (ikki)

при предположении, что текущий лист - вообще пустой

Очень хорошее предположение, думаю, надо было мне сразу об этом сказать. А также о том, что за пределами оговоренного диапазона B2:K101 может происходить что угодно, например, любые вспомогательные вычисления (без необходимости обязательной подчистки).

Цитата (ikki)

думаю, из всего вышесказанного решение очевидно

Эх, для меня пока даже 15(27) не очевидно, а ты уже про 8(20) говоришь...

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

Ответить

Дата: Воскресенье, 27.01.2013, 22:40 | Сообщение № 15

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

файлик не цепляется sad

sad

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

Сообщение отредактировал ikki - Воскресенье, 27.01.2013, 22:44

Ответить

Дата: Воскресенье, 27.01.2013, 22:42 | Сообщение № 16

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата (ikki)

формула - 8 символов

Саш, она без функций что ли? smile

smile

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Воскресенье, 27.01.2013, 22:44 | Сообщение № 17

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

Цитата (Serge_007)

без функций

конечно.
и та, которая в 15 символов, тоже.

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

Сообщение отредактировал ikki - Воскресенье, 27.01.2013, 22:46

Ответить

Дата: Воскресенье, 27.01.2013, 23:28 | Сообщение № 18

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата (ikki)

конечно.

Так не интересно...

Решение в 8 символов (вместе с =) есть, выслал в личку

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Воскресенье, 27.01.2013, 23:51 | Сообщение № 19

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

Цитата (Serge_007)

Так не интересно...

я не виноват, что задача свелась к такому варианту.
точнее - никто не виноват.
придумывать хорошие задачи нелегко.
ты и сам с этим сталкивался.

пс. вариант Сержа неожиданно совпал с моим. biggrin

biggrin

biggrin

biggrin

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

Сообщение отредактировал ikki - Воскресенье, 27.01.2013, 23:52

Ответить

Дата: Понедельник, 28.01.2013, 00:11 | Сообщение № 20

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Уф, ёлки! Асилил 8 наконец (они же 20 в Immediate)! Слава Богу, а то бы мучался и не выспался перед рабочей неделей biggrin

biggrin

Цитата (ikki)

я не виноват, что задача свелась к такому варианту.

Задача не свелась к такому варианту, этот вариант не рассматривался как главный. Главный - это цикл. Моя "вина" в том, что я не исключил формульный вариант постановкой. Но я ничуть не огорчен, мне и он понравился. Кстати, эта формула на 8 знаков - неплохой тест при приеме на работу, простенько и со вкусом wink

wink

Что касается циклового варианта, то в своих 36 символах насчитал 4 если не "изюминки", то "пикантности", которые в него заложены. В общем, дождёмся вскрытия. Хотя, может кому-то они таковыми и не покажутся.

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

Сообщение отредактировал Gustav - Понедельник, 28.01.2013, 00:26

Ответить

Пронумеровать ячейки диапазона (макросом в окне Immediate)

Страница 1 из 2
1
2
»

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