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

Вход

Регистрация

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

 

= Мир MS Excel/Первая свободная ячейка в столбце снизу (VBA) - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 3
  • «
  • 1
  • 2
  • 3
  • »
Модератор форума: китин  
Мир MS Excel » Работа и общение » Мозговой штурм » Первая свободная ячейка в столбце снизу (VBA) (макросом в окне Immediate)
Первая свободная ячейка в столбце снизу (VBA)
ikki Дата: Среда, 17.09.2014, 20:39 | Сообщение № 21
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата Саня, 17.09.2014 в 20:16, в сообщении № 19
когда вскрываемся?
когда каждый до варианта на 33 символа додумается :D

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата Саня, 17.09.2014 в 20:16, в сообщении № 19
когда вскрываемся?
когда каждый до варианта на 33 символа додумается :D
Автор - ikki
Дата добавления - 17.09.2014 в 20:39
MCH Дата: Среда, 17.09.2014, 20:55 | Сообщение № 22
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

Цитата Gustav, 17.09.2014 в 20:09, в сообщении № 18
IsEmpty(Cells(1,1))

тогда 48
 
Ответить
Сообщение
Цитата Gustav, 17.09.2014 в 20:09, в сообщении № 18
IsEmpty(Cells(1,1))

тогда 48
Автор - MCH
Дата добавления - 17.09.2014 в 20:55
Rioran Дата: Четверг, 18.09.2014, 10:00 | Сообщение № 23
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Окончательный вариант 30 знаков вместе со знаком "?".

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

Сообщение отредактировал Rioran - Четверг, 18.09.2014, 10:15
 
Ответить
СообщениеОкончательный вариант 30 знаков вместе со знаком "?".
Автор - Rioran
Дата добавления - 18.09.2014 в 10:00
Gustav Дата: Четверг, 18.09.2014, 10:26 | Сообщение № 24
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2757
Репутация: 1139 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Цитата Rioran, 18.09.2014 в 10:00, в сообщении № 23
Считаем с вопросительным знаком перед строкой?

Да, конечно. А у кого-то он и не в начале строки может быть...

Цитата Саня, 17.09.2014 в 20:16, в сообщении № 19
когда вскрываемся?

Я думаю, в понедельник. По традиции, так сказать. Если нет иных мнений.

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

Сообщение отредактировал Gustav - Четверг, 18.09.2014, 10:28
 
Ответить
Сообщение
Цитата Rioran, 18.09.2014 в 10:00, в сообщении № 23
Считаем с вопросительным знаком перед строкой?

Да, конечно. А у кого-то он и не в начале строки может быть...

Цитата Саня, 17.09.2014 в 20:16, в сообщении № 19
когда вскрываемся?

Я думаю, в понедельник. По традиции, так сказать. Если нет иных мнений.
Автор - Gustav
Дата добавления - 18.09.2014 в 10:26
Саня Дата: Четверг, 18.09.2014, 10:30 | Сообщение № 25
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
Цитата Rioran, 18.09.2014 в 10:00, в сообщении № 23
Окончательный вариант 30 знаков вместе со знаком "?"

hands

Цитата Rioran, 18.09.2014 в 10:00, в сообщении № 23
вместе со знаком "?".

я без считал

Цитата Gustav, 18.09.2014 в 10:26, в сообщении № 24
Я думаю, в понедельник.

теперь то уже да...


Сообщение отредактировал Саня - Четверг, 18.09.2014, 10:32
 
Ответить
Сообщение
Цитата Rioran, 18.09.2014 в 10:00, в сообщении № 23
Окончательный вариант 30 знаков вместе со знаком "?"

hands

Цитата Rioran, 18.09.2014 в 10:00, в сообщении № 23
вместе со знаком "?".

я без считал

Цитата Gustav, 18.09.2014 в 10:26, в сообщении № 24
Я думаю, в понедельник.

теперь то уже да...
Автор - Саня
Дата добавления - 18.09.2014 в 10:30
MCH Дата: Четверг, 18.09.2014, 17:45 | Сообщение № 26
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

Хотелось бы внести ряд уточнений:
Если столбец A пустой - то выводим A1 (или $A$1)
Если значение только в A1 - то выводим A2
Если A1 пустая ячейка, а значения находятся в A2:A10 - то выводим A11
Если в последней заполненной ячейке (например A5) находится значение ошибки #Н/Д или #ДЕЛ/0! то все работает правильно и выводим A6 (это вдруг кто то использует Cells()<>"")

У всех так?

у меня пока 45


Сообщение отредактировал MCH - Четверг, 18.09.2014, 19:13
 
Ответить
СообщениеХотелось бы внести ряд уточнений:
Если столбец A пустой - то выводим A1 (или $A$1)
Если значение только в A1 - то выводим A2
Если A1 пустая ячейка, а значения находятся в A2:A10 - то выводим A11
Если в последней заполненной ячейке (например A5) находится значение ошибки #Н/Д или #ДЕЛ/0! то все работает правильно и выводим A6 (это вдруг кто то использует Cells()<>"")

У всех так?

у меня пока 45
Автор - MCH
Дата добавления - 18.09.2014 в 17:45
SM Дата: Четверг, 18.09.2014, 19:20 | Сообщение № 27
Группа: Друзья
Ранг: Участник
Сообщений: 64
Репутация: 59 ±
Замечаний: 0% ±

2003
39.
Простите, погорячился © - 46.
Цитата MCH, 18.09.2014 в 17:45, в сообщении № 26
(это вдруг кто то использует Cells()<>"")

Excel изощрён, но не злонамерен

Сообщение отредактировал SM - Четверг, 18.09.2014, 20:05
 
Ответить
Сообщение39.
Простите, погорячился © - 46.
Цитата MCH, 18.09.2014 в 17:45, в сообщении № 26
(это вдруг кто то использует Cells()<>"")
Автор - SM
Дата добавления - 18.09.2014 в 19:20
Gustav Дата: Четверг, 18.09.2014, 19:20 | Сообщение № 28
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2757
Репутация: 1139 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Цитата MCH, 18.09.2014 в 17:45, в сообщении № 26
У всех так?

У меня - да, консенсус по всем пунктам.

И пока 51.

МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение
Цитата MCH, 18.09.2014 в 17:45, в сообщении № 26
У всех так?

У меня - да, консенсус по всем пунктам.

И пока 51.
Автор - Gustav
Дата добавления - 18.09.2014 в 19:20
Саня Дата: Пятница, 19.09.2014, 11:09 | Сообщение № 29
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
Цитата MCH, 18.09.2014 в 17:45, в сообщении № 26
Если в последней заполненной ячейке (например A5) находится значение ошибки #Н/Д или #ДЕЛ/0!


Цитата Саня, 17.09.2014 в 14:41, в сообщении № 13
33 - для xl>2003

это с ошибками в ячейках не работает.
 
Ответить
Сообщение
Цитата MCH, 18.09.2014 в 17:45, в сообщении № 26
Если в последней заполненной ячейке (например A5) находится значение ошибки #Н/Д или #ДЕЛ/0!


Цитата Саня, 17.09.2014 в 14:41, в сообщении № 13
33 - для xl>2003

это с ошибками в ячейках не работает.
Автор - Саня
Дата добавления - 19.09.2014 в 11:09
AndreTM Дата: Пятница, 19.09.2014, 21:02 | Сообщение № 30
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Сделал 49.

Мысли ещё есть... но вот, хоть убей, - на 30 знаков никаких даже намёков нет :)

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеСделал 49.

Мысли ещё есть... но вот, хоть убей, - на 30 знаков никаких даже намёков нет :)
Автор - AndreTM
Дата добавления - 19.09.2014 в 21:02
Rioran Дата: Пятница, 19.09.2014, 21:49 | Сообщение № 31
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
AndreTM, твои слова могли бы посеять во мне сомнения =) Кому бы скинуть своё решение на проверку, просто чтобы спать спокойно?.. =)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеAndreTM, твои слова могли бы посеять во мне сомнения =) Кому бы скинуть своё решение на проверку, просто чтобы спать спокойно?.. =)
Автор - Rioran
Дата добавления - 19.09.2014 в 21:49
MCH Дата: Пятница, 19.09.2014, 22:29 | Сообщение № 32
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

Цитата Rioran, 19.09.2014 в 21:49, в сообщении № 31
Кому бы скинуть своё решение на проверку

до "вскрытия" лучше не высылать, но проверить по условиям из 26 сообщения можно
 
Ответить
Сообщение
Цитата Rioran, 19.09.2014 в 21:49, в сообщении № 31
Кому бы скинуть своё решение на проверку

до "вскрытия" лучше не высылать, но проверить по условиям из 26 сообщения можно
Автор - MCH
Дата добавления - 19.09.2014 в 22:29
Rioran Дата: Пятница, 19.09.2014, 22:43 | Сообщение № 33
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Жаль, решение не прошло условие пустого столбца... Эх...

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеЖаль, решение не прошло условие пустого столбца... Эх...
Автор - Rioran
Дата добавления - 19.09.2014 в 22:43
MCH Дата: Пятница, 19.09.2014, 23:13 | Сообщение № 34
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

ну без проверки на пустой столбец у меня - 26
 
Ответить
Сообщениену без проверки на пустой столбец у меня - 26
Автор - MCH
Дата добавления - 19.09.2014 в 23:13
Rioran Дата: Суббота, 20.09.2014, 00:23 | Сообщение № 35
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Цитата MCH, 19.09.2014 в 23:13, в сообщении № 34
без проверки на пустой столбец у меня - 26

Выложи его потом тоже, интересно =)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщение
Цитата MCH, 19.09.2014 в 23:13, в сообщении № 34
без проверки на пустой столбец у меня - 26

Выложи его потом тоже, интересно =)
Автор - Rioran
Дата добавления - 20.09.2014 в 00:23
Gustav Дата: Воскресенье, 21.09.2014, 10:13 | Сообщение № 36
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2757
Репутация: 1139 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Улучшился до 47 в основной задаче.

Без проверки на пустой столбец - 28.

Получается, что проигрываю Мише 2 символа и там, и там. Полагаю, надо вытягивать решение без пустого столбца и тогда главная задача сама улучшится :)

P.S. 20:45. О, уже только один символ. Обнаружил банальнейшее улучшение на 1 символ, которое не проверил в самом начале. Итого соответственно 46 и 27.

P.S. 22:15. Всё! Выжал 45 и 26. Поскольку догонял вехи, расставленные Михаилом, то готов вскрыться перед ним.

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

Сообщение отредактировал Gustav - Воскресенье, 21.09.2014, 22:19
 
Ответить
СообщениеУлучшился до 47 в основной задаче.

Без проверки на пустой столбец - 28.

Получается, что проигрываю Мише 2 символа и там, и там. Полагаю, надо вытягивать решение без пустого столбца и тогда главная задача сама улучшится :)

P.S. 20:45. О, уже только один символ. Обнаружил банальнейшее улучшение на 1 символ, которое не проверил в самом начале. Итого соответственно 46 и 27.

P.S. 22:15. Всё! Выжал 45 и 26. Поскольку догонял вехи, расставленные Михаилом, то готов вскрыться перед ним.
Автор - Gustav
Дата добавления - 21.09.2014 в 10:13
Саня Дата: Понедельник, 22.09.2014, 10:15 | Сообщение № 37
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Код
?"A"&cells(4^8,1).End(xlUp).Row+1   ' [33]
?"A"&[A65002].End(xlUp).Row+1  ' [29]
?"A"&[MATCH(,A:A,-1)]+1    ' [23] - не работает с ошибками в ячейках
[/vba]

[vba]
Код
set c=[A65002].End(xlUp):?c.offset(-(c<>"")).address  ' [52]
?[A65002].End(xlUp).offset(-[COUNTA(A:A)>0]).address     '    [52]
?"A"&[A65002].End(xlUp).Row-[COUNTA(A:A)>0]  ' [43] - OK!!!
?"A"&[IFERROR(MATCH(,A:A,-1),0)+1]  ' [34] - не работает с ошибками в ячейках
[/vba]


Сообщение отредактировал Саня - Понедельник, 22.09.2014, 10:48
 
Ответить
Сообщение[vba]
Код
?"A"&cells(4^8,1).End(xlUp).Row+1   ' [33]
?"A"&[A65002].End(xlUp).Row+1  ' [29]
?"A"&[MATCH(,A:A,-1)]+1    ' [23] - не работает с ошибками в ячейках
[/vba]

[vba]
Код
set c=[A65002].End(xlUp):?c.offset(-(c<>"")).address  ' [52]
?[A65002].End(xlUp).offset(-[COUNTA(A:A)>0]).address     '    [52]
?"A"&[A65002].End(xlUp).Row-[COUNTA(A:A)>0]  ' [43] - OK!!!
?"A"&[IFERROR(MATCH(,A:A,-1),0)+1]  ' [34] - не работает с ошибками в ячейках
[/vba]
Автор - Саня
Дата добавления - 22.09.2014 в 10:15
Gustav Дата: Понедельник, 22.09.2014, 10:46 | Сообщение № 38
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2757
Репутация: 1139 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Цитата Саня, 22.09.2014 в 10:15, в сообщении № 37
?"A"&[MATCH(,A:A,-1)]+1

Цитата Саня, 22.09.2014 в 10:15, в сообщении № 37
?"A"&[A65002].End(xlUp).Row-[COUNTA(A:A)>0] ' [43] - OK!!!
?"A"&[IFERROR(MATCH(,A:A,-1),0)+1]

Саня, круто! Не знал, что в квадратных скобках можно такие конструкции с функциями городить. Классно! P.S. А я еще думал, чего это ты оговариваешь про 2003, неужели в VBA что-то новенькое появилось?! А оказалось вон оно что - IFERROR.

И, может, спойлер удалишь? Это должно быть видно всем и сразу.

P.S. И обещаю тебе улучшение твоего рекорда 43 еще как минимум на 3 после того, как мы с MCH вскроемся... ;)

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

Сообщение отредактировал Gustav - Понедельник, 22.09.2014, 10:53
 
Ответить
Сообщение
Цитата Саня, 22.09.2014 в 10:15, в сообщении № 37
?"A"&[MATCH(,A:A,-1)]+1

Цитата Саня, 22.09.2014 в 10:15, в сообщении № 37
?"A"&[A65002].End(xlUp).Row-[COUNTA(A:A)>0] ' [43] - OK!!!
?"A"&[IFERROR(MATCH(,A:A,-1),0)+1]

Саня, круто! Не знал, что в квадратных скобках можно такие конструкции с функциями городить. Классно! P.S. А я еще думал, чего это ты оговариваешь про 2003, неужели в VBA что-то новенькое появилось?! А оказалось вон оно что - IFERROR.

И, может, спойлер удалишь? Это должно быть видно всем и сразу.

P.S. И обещаю тебе улучшение твоего рекорда 43 еще как минимум на 3 после того, как мы с MCH вскроемся... ;)
Автор - Gustav
Дата добавления - 22.09.2014 в 10:46
Саня Дата: Понедельник, 22.09.2014, 10:52 | Сообщение № 39
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
Цитата Gustav, 22.09.2014 в 10:46, в сообщении № 38
Не знал, что в квадратных скобках можно такие конструкции с функциями городить.

посмотри справку по evaluate

Цитата Gustav, 22.09.2014 в 10:46, в сообщении № 38
И обещаю тебе улучшения твоего рекорда 43 еще как минимум на 3 после того, как мы с MCH вскроемся...

давайте уже...


Сообщение отредактировал Саня - Понедельник, 22.09.2014, 10:53
 
Ответить
Сообщение
Цитата Gustav, 22.09.2014 в 10:46, в сообщении № 38
Не знал, что в квадратных скобках можно такие конструкции с функциями городить.

посмотри справку по evaluate

Цитата Gustav, 22.09.2014 в 10:46, в сообщении № 38
И обещаю тебе улучшения твоего рекорда 43 еще как минимум на 3 после того, как мы с MCH вскроемся...

давайте уже...
Автор - Саня
Дата добавления - 22.09.2014 в 10:52
AndreTM Дата: Понедельник, 22.09.2014, 10:55 | Сообщение № 40
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Да уж, спорить не с чем :)
Я вот отсутствовал полгода - и совсем упускаю из виду, что в квадратных скобках можно использовать и функции тоже. Хотя тут надо учесть, что я обычно не работаю с WorkSheetFunctions в коде, так что такие решения приходят в голову в последнюю очередь.

Поэтому и "самое длинное" :) решение имею:
[vba]
Код
set c=[a65001].End(xlUp):?"A"&c.row--isempty(c)+1
[/vba]

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеДа уж, спорить не с чем :)
Я вот отсутствовал полгода - и совсем упускаю из виду, что в квадратных скобках можно использовать и функции тоже. Хотя тут надо учесть, что я обычно не работаю с WorkSheetFunctions в коде, так что такие решения приходят в голову в последнюю очередь.

Поэтому и "самое длинное" :) решение имею:
[vba]
Код
set c=[a65001].End(xlUp):?"A"&c.row--isempty(c)+1
[/vba]
Автор - AndreTM
Дата добавления - 22.09.2014 в 10:55
Мир MS Excel » Работа и общение » Мозговой штурм » Первая свободная ячейка в столбце снизу (VBA) (макросом в окне Immediate)
  • Страница 2 из 3
  • «
  • 1
  • 2
  • 3
  • »
Поиск:

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