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

Вход

Регистрация

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

 

= Мир MS Excel/Увеличение числа в ячейке при автоматическом переходе на неё - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Увеличение числа в ячейке при автоматическом переходе на неё (Формулы/Formulas)
Увеличение числа в ячейке при автоматическом переходе на неё
Udjin1985 Дата: Четверг, 20.11.2014, 19:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день. Помогите пожалуйста с решением задачи
Как макросом выполнить, при автоматическом переходе, +1 к ячейке А3, от числа ячейки A2 и т.д.
Спасибо.
К сообщению приложен файл: 3458996.xls (27.0 Kb)


Сообщение отредактировал Udjin1985 - Четверг, 20.11.2014, 20:20
 
Ответить
СообщениеДобрый день. Помогите пожалуйста с решением задачи
Как макросом выполнить, при автоматическом переходе, +1 к ячейке А3, от числа ячейки A2 и т.д.
Спасибо.
Автор - Udjin1985
Дата добавления - 20.11.2014 в 19:16
JayBhagavan Дата: Четверг, 20.11.2014, 22:23 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
Зачем макрос?
1. Встаньте на A2, схватите мышью за нижний правый угол ячейки и протяните вниз с зажатой клавишей Ctrl.
2. Формула:
Код
=A2+1

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов
 
Ответить
СообщениеЗачем макрос?
1. Встаньте на A2, схватите мышью за нижний правый угол ячейки и протяните вниз с зажатой клавишей Ctrl.
2. Формула:
Код
=A2+1
Автор - JayBhagavan
Дата добавления - 20.11.2014 в 22:23
Udjin1985 Дата: Пятница, 21.11.2014, 09:39 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо за совет.
Дело в том что просто формулой я не обойдусь, в виду того что файл исходник это огромная таблица с автозаполнением и автопереходами. Поэтому считаю что нужен именно макрос.
 
Ответить
СообщениеСпасибо за совет.
Дело в том что просто формулой я не обойдусь, в виду того что файл исходник это огромная таблица с автозаполнением и автопереходами. Поэтому считаю что нужен именно макрос.
Автор - Udjin1985
Дата добавления - 21.11.2014 в 09:39
Udjin1985 Дата: Пятница, 21.11.2014, 09:41 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Просто весь исходник имеет очень большой размер 1,2 Мб , в пример не вмещается ...
 
Ответить
СообщениеПросто весь исходник имеет очень большой размер 1,2 Мб , в пример не вмещается ...
Автор - Udjin1985
Дата добавления - 21.11.2014 в 09:41
Pelena Дата: Пятница, 21.11.2014, 09:43 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19185
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата Udjin1985, 21.11.2014 в 09:39, в сообщении № 3
нужен именно макрос

А тема в разделе формул? Пеенесла

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата Udjin1985, 21.11.2014 в 09:39, в сообщении № 3
нужен именно макрос

А тема в разделе формул? Пеенесла
Автор - Pelena
Дата добавления - 21.11.2014 в 09:43
Rioran Дата: Пятница, 21.11.2014, 09:59 | Сообщение № 6
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Udjin1985, здравствуйте.

Предлагаю такую кнопку, во вложении. Отталкивается от ячейки А1.

[vba]
Код
Option Explicit
Option Base 1

Sub Rio_Run_for_the_Horizon()

Dim R, X&, A&

X = InputBox("До какой строки копать будем?")

ReDim R(X, 1)
R(1, 1) = Cells(1, 1).Value

For A = 2 To X
     R(A, 1) = R(A - 1, 1) + 1
Next A

Cells(1, 1).Resize(X, 1).Value = R

End Sub
[/vba]
К сообщению приложен файл: Rio_Roll.xlsm (16.6 Kb)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеUdjin1985, здравствуйте.

Предлагаю такую кнопку, во вложении. Отталкивается от ячейки А1.

[vba]
Код
Option Explicit
Option Base 1

Sub Rio_Run_for_the_Horizon()

Dim R, X&, A&

X = InputBox("До какой строки копать будем?")

ReDim R(X, 1)
R(1, 1) = Cells(1, 1).Value

For A = 2 To X
     R(A, 1) = R(A - 1, 1) + 1
Next A

Cells(1, 1).Resize(X, 1).Value = R

End Sub
[/vba]
Автор - Rioran
Дата добавления - 21.11.2014 в 09:59
Udjin1985 Дата: Пятница, 21.11.2014, 10:10 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena огромное спасибо!!!
 
Ответить
СообщениеPelena огромное спасибо!!!
Автор - Udjin1985
Дата добавления - 21.11.2014 в 10:10
Udjin1985 Дата: Пятница, 21.11.2014, 10:19 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Rioran спасибо за решение, но это не то.

Я видимо не верно поставил условия для задачи. (не бейте ногами...)

Попытаюсь условиться иначе.

Есть некая таблица, макросом задан переход по строке до последней ячейки защищенного диапазона (G5).
Следующий макрос, после заполнения G5, АВТОМАТИЧЕСКИ переходит в начало следующей строки (A6).

необходимо при переходе увеличить А6 на единицу относительно А5 и далее, далее, далее


Сообщение отредактировал Udjin1985 - Пятница, 21.11.2014, 10:20
 
Ответить
СообщениеRioran спасибо за решение, но это не то.

Я видимо не верно поставил условия для задачи. (не бейте ногами...)

Попытаюсь условиться иначе.

Есть некая таблица, макросом задан переход по строке до последней ячейки защищенного диапазона (G5).
Следующий макрос, после заполнения G5, АВТОМАТИЧЕСКИ переходит в начало следующей строки (A6).

необходимо при переходе увеличить А6 на единицу относительно А5 и далее, далее, далее
Автор - Udjin1985
Дата добавления - 21.11.2014 в 10:19
SkyPro Дата: Пятница, 21.11.2014, 10:27 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
В цикл, где переход в начало следующей строки вставьте [vba]
Код
cells(i,1) = cells(i-1,1) + 1
[/vba]

skypro1111@gmail.com
 
Ответить
СообщениеВ цикл, где переход в начало следующей строки вставьте [vba]
Код
cells(i,1) = cells(i-1,1) + 1
[/vba]
Автор - SkyPro
Дата добавления - 21.11.2014 в 10:27
Udjin1985 Дата: Пятница, 21.11.2014, 10:32 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Правильно?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturnDirection = xlDown
Cells(i, 1) = Cells(i - 1, 1) + 1
End Sub
 
Ответить
СообщениеПравильно?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturnDirection = xlDown
Cells(i, 1) = Cells(i - 1, 1) + 1
End Sub
Автор - Udjin1985
Дата добавления - 21.11.2014 в 10:32
Udjin1985 Дата: Пятница, 21.11.2014, 10:37 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
так не работает.
 
Ответить
Сообщениетак не работает.
Автор - Udjin1985
Дата добавления - 21.11.2014 в 10:37
SkyPro Дата: Пятница, 21.11.2014, 10:40 | Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Прошу прощения, сегодня передавали вспышки на солнце, которые мешают телепатическим способностям. Я даже лечить по фотографии сегодня не могу..

skypro1111@gmail.com
 
Ответить
СообщениеПрошу прощения, сегодня передавали вспышки на солнце, которые мешают телепатическим способностям. Я даже лечить по фотографии сегодня не могу..
Автор - SkyPro
Дата добавления - 21.11.2014 в 10:40
Udjin1985 Дата: Пятница, 21.11.2014, 10:43 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
SkyPro. Если Вам не сложно, то я могу выслать файл на мыло.
 
Ответить
СообщениеSkyPro. Если Вам не сложно, то я могу выслать файл на мыло.
Автор - Udjin1985
Дата добавления - 21.11.2014 в 10:43
Rioran Дата: Пятница, 21.11.2014, 10:45 | Сообщение № 14
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Udjin1985, обычно правильно сформулировать вопрос - значит наполовину решить задачу =)

Приложите пример - как всё выглядит до работы макроса и на другом листе: как Вы себе представляете результат.

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеUdjin1985, обычно правильно сформулировать вопрос - значит наполовину решить задачу =)

Приложите пример - как всё выглядит до работы макроса и на другом листе: как Вы себе представляете результат.
Автор - Rioran
Дата добавления - 21.11.2014 в 10:45
Pelena Дата: Пятница, 21.11.2014, 10:46 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 19185
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Udjin1985, файл надо выложить здесь, но не пустой, а в котором
Цитата Udjin1985, 21.11.2014 в 10:19, в сообщении № 8
Есть некая таблица, макросом задан переход по строке до последней ячейки защищенного диапазона (G5).
Следующий макрос, после заполнения G5, АВТОМАТИЧЕСКИ переходит в начало следующей строки (A6).

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеUdjin1985, файл надо выложить здесь, но не пустой, а в котором
Цитата Udjin1985, 21.11.2014 в 10:19, в сообщении № 8
Есть некая таблица, макросом задан переход по строке до последней ячейки защищенного диапазона (G5).
Следующий макрос, после заполнения G5, АВТОМАТИЧЕСКИ переходит в начало следующей строки (A6).
Автор - Pelena
Дата добавления - 21.11.2014 в 10:46
Udjin1985 Дата: Пятница, 21.11.2014, 10:48 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Я попытался, только он весит 1,2 МБ.

Сжал раром, 108К, меньше не выходит.
 
Ответить
СообщениеЯ попытался, только он весит 1,2 МБ.

Сжал раром, 108К, меньше не выходит.
Автор - Udjin1985
Дата добавления - 21.11.2014 в 10:48
SkyPro Дата: Пятница, 21.11.2014, 11:01 | Сообщение № 17
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Сохраните как двоичную книгу Excel.

skypro1111@gmail.com
 
Ответить
СообщениеСохраните как двоичную книгу Excel.
Автор - SkyPro
Дата добавления - 21.11.2014 в 11:01
Rioran Дата: Пятница, 21.11.2014, 11:02 | Сообщение № 18
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Udjin1985, сохраните файл в разрешении .xlsb (двоичная книга), уберите лишние строки (для понимания вопроса обычно достаточно около 30), уберите лишние листы.

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеUdjin1985, сохраните файл в разрешении .xlsb (двоичная книга), уберите лишние строки (для понимания вопроса обычно достаточно около 30), уберите лишние листы.
Автор - Rioran
Дата добавления - 21.11.2014 в 11:02
Udjin1985 Дата: Пятница, 21.11.2014, 11:21 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вот так
К сообщению приложен файл: ______.xlsb (82.4 Kb)
 
Ответить
СообщениеВот так
Автор - Udjin1985
Дата добавления - 21.11.2014 в 11:21
SkyPro Дата: Пятница, 21.11.2014, 11:35 | Сообщение № 20
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Я пас. Чуть час работы не угробил.

skypro1111@gmail.com
 
Ответить
СообщениеЯ пас. Чуть час работы не угробил.
Автор - SkyPro
Дата добавления - 21.11.2014 в 11:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Увеличение числа в ячейке при автоматическом переходе на неё (Формулы/Formulas)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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