Excel как увеличит значение ячейки на 1 - Word и Excel - помощь в работе с программами

как сделать увеличение на единицу числа в ячейке при нажатии

mefisto

Дата: Суббота, 23.03.2013, 18:51 |
Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 116

и еще вопросик… в ячейке находится целое число, которое можно ввести вручную… интересует какая-то функция (макрос) при котором рядом с этой ячейкой существует знак плюса или какая-то кнопка при нажатии на которую число в ячейке увеличивается на единицу..

спасибо)))

Ответить

RAN

Дата: Суббота, 23.03.2013, 18:59 |
Сообщение № 2

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

Ранг: Экселист

Сообщений: 5645

Да сколько угодно
[vba]

Код

Sub x()
[A1] =[A1] + 1
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

mefisto

Дата: Суббота, 23.03.2013, 19:07 |
Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 116

я наверное деревянный очень… спасибо большое, но знать бы куда это вставить…

Ответить

RAN

Дата: Суббота, 23.03.2013, 19:16 |
Сообщение № 4

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

Ранг: Экселист

Сообщений: 5645

В файл.

Быть или не быть, вот в чем загвоздка!

Ответить

mefisto

Дата: Суббота, 23.03.2013, 19:17 |
Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 116

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

Ответить

RAN

Дата: Суббота, 23.03.2013, 19:21 |
Сообщение № 6

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

Ранг: Экселист

Сообщений: 5645

Эээээээээээ???

Цитата (mefisto)

кнопочка рядом с ячейкой, нажимаешь и +1

А это не принудительно?
Вставить кнопку, ПКМ — назначить макрос.
Создастся макрос.
Вставить туда код.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN — Суббота, 23.03.2013, 19:24

Ответить

mefisto

Дата: Суббота, 23.03.2013, 19:22 |
Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 116

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

Ответить

новенький	Дата: Воскресенье, 31.03.2013, 08:17 \| Сообщение № 8
	а можно ли сделать макрос, чтобы он увеличивал на единицу значение текущей ячейки?

Ответить

Rave

Дата: Воскресенье, 31.03.2013, 08:55 |
Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 25

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

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

может проще через элементы управления (вкладка Разработчик) поставить счетчик?
[/sub]см.вложенный файл (Excel 2010)

К сообщению приложен файл:

2438856.xlsx
(10.7 Kb)

Ответить

Wasilich

Дата: Воскресенье, 31.03.2013, 08:59 |
Сообщение № 10

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

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

Сообщений: 1232

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

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

2003

Цитата (новенький)

а можно ли сделать макрос, чтобы он увеличивал на единицу значение текущей ячейки?

Можно.

К сообщению приложен файл:

8619734.xls
(23.5 Kb)

Ответить

Sergey	Дата: Среда, 06.11.2013, 21:45 \| Сообщение № 11
	В выделенной ячейке дата, например 06.11.2010 У меня похожий вопрос: можно ли сделать макрос, чтобы он увеличивал на единицу значение даты?

Ответить

RAN

Дата: Среда, 06.11.2013, 21:50 |
Сообщение № 12

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

Ранг: Экселист

Сообщений: 5645

Да сколько угодно[vba]

Код

Sub x()
[A1] =[A1] + 1
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Sergey	Дата: Четверг, 07.11.2013, 12:04 \| Сообщение № 13
	Спасибо! А как это будет выглядеть для выделенного диапазона ячеек?

Ответить

Источник

Neo1379

Пользователь

Сообщений: 7
Регистрация: 14.08.2018

Добрый день! Не могу додуматься и собрать из того что есть на форумах макрос, который выполнял бы следующее:

Выделяем необходимый нам диапазон с значениями — нажимаем гор. клавишу макроса — получаем значения для выделенного диапазона увеличенных на 1.

New

Пользователь

Сообщений: 4581
Регистрация: 06.01.2013

19.10.2021 16:31:26

Добавьте макрос в свой файл, сохраните файл с расширением XLSM, задайте этому макросу свои горячие клавиши в Параметрах макроса (Alt+F8)

Код

Sub Add_1()
Dim iCell As Range

    If Selection.Cells.Count = 1 Then Exit Sub
    Application.ScreenUpdating = False
    For Each iCell In Selection
        If IsNumeric(iCell) Then iCell = iCell + 1
    Next iCell
    Application.ScreenUpdating = True
End Sub

Изменено: New — 19.10.2021 16:31:42

Jack Famous

Пользователь

Сообщений: 10846
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

19.10.2021 16:31:27

Neo1379, здравствуйте

Код
Sub t() Dim cl As Range For Each cl In Selection cl.Value2=cl.Value2 + 1 Next cl End Sub

Цитата
New: If Selection.Cells.Count = 1 Then Exit Sub

почему выходим?

Изменено: Jack Famous — 19.10.2021 16:32:51

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

tutochkin

Пользователь

Сообщений: 558
Регистрация: 13.02.2019

19.10.2021 16:37:17

Neo1379, (я не так понял… то то ещё подумал — а зачем? ).

Код

Sub Выделено()
MsgBox "Ячеек: " & Selection.Count & Chr(10) _
& "Строк: " & Selection.Rows.Count & Chr(10) _
& "Столбцов: " & Selection.Columns.Count & Chr(10) _
& " + 1 ко всем значениям" & Chr(10) _
& "Ячеек: " & Selection.Count + 1 & Chr(10) _
& "Строк: " & Selection.Rows.Count + 1 & Chr(10) _
& "Столбцов: " & Selection.Columns.Count + 1
End Sub

Изменено: tutochkin — 19.10.2021 16:39:07

в любую ячейку пишете 1
копируете эту ячейку
отмечаете диапазон, который нужно увеличить на 1
правая кнопка мыши

специальная вставка, только значения, операция — сложить, ок

готово (это все без макросов)

Изменено: Ігор Гончаренко — 19.10.2021 16:43:16

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

New Пользователь Сообщений: 4581 Регистрация: 06.01.2013	Jack Famous, это значит человек случайно запустил макрос ) когда не выделил диапазон на листе Изменено: New — 19.10.2021 16:49:06

Пытливый

Пользователь

Сообщений: 4586
Регистрация: 22.12.2012

19.10.2021 16:43:45

Добрый день. Можно еще через спец.вставку, без перебора значений в выделении, типа такого (выделить диапазон, запустить макрос):

Код

Sub AddByPasteSpecial()
    Application.ScreenUpdating = False
    With Cells(Selection.Cells(1).Row, Selection.Cells(1).Column + Selection.Columns.Count).Offset(0, 3)
        .Formula = "1"
        .Copy
    End With
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    Cells(Selection.Cells(1).Row, Selection.Cells(1).Column + Selection.Columns.Count).Offset(0, 3).Clear
    Application.CutCopyMode = False
    Selection.Cells(1).Select
    Application.ScreenUpdating = True
End Sub

Изменено: Пытливый — 19.10.2021 16:44:40

Кому решение нужно — тот пример и рисует.

Neo1379 Пользователь Сообщений: 7 Регистрация: 14.08.2018	Всем большое спасибо за ответы, то что нужно!

Jack Famous

Пользователь

Сообщений: 10846
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

19.10.2021 16:51:48

New, не факт — вдруг одно и нужно преобразовать?)

Цитата
tutochkin: Chr(10)

не понял, зачем ваш код, но можно использовать встроенную VBA-константу vbLf и не вызывать функцию (хотя она очень быстрая)

Изменено: Jack Famous — 19.10.2021 16:53:49

New

Пользователь

Сообщений: 4581
Регистрация: 06.01.2013

#10

19.10.2021 16:55:38

Jack Famous, видишь, что ТС написал в первом сообщении

Цитата
Neo1379 написал: Выделяем необходимый нам диапазон с значениями

вот я от этого и отталкивался ) Если бы ТС написал «выделяем ячейку», то я бы не писал этого условия)

Изменено: New — 19.10.2021 16:56:56

tutochkin

Пользователь

Сообщений: 558
Регистрация: 13.02.2019

#11

19.10.2021 17:00:09

Jack Famous,так повелось, что пользуюсь Chr(10)… Впрочем беглый поиск даёт интересные результаты

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=82953

Цитата
не понял, зачем ваш код

Я в первый раз прочитал вопрос топикстартера как «увеличить значение количества выделенных ячеек на единицу. Впрочем после вставки моего кода (гы) прочитал ваши посты и понял что был не прав.

Jack Famous

Пользователь

Сообщений: 10846
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#12

19.10.2021 17:05:22

Цитата
New: Если бы ТС написал «выделяем ячейку», то я бы не писал этого условия)

ну так-то ячейка это тоже частный случай диапазона
В любом случае, лишним не будет, а захочет — уберёт

Цитата
tutochkin: интересные результаты

и чем же?
Для MsgBox ВООБЩЕ ПОФИГ, какой из 4ёх переносов вы будет использовать, т.к. это ВИЗУАЛ
В остальном, отличие только в том, что некоторые это «чистый» перенос (один символ), а в некоторых перенос с кареткой (2 символа) — как в константе vbCrLf)

Изменено: Jack Famous — 19.10.2021 17:10:12

tutochkin Пользователь Сообщений: 558 Регистрация: 13.02.2019

БМВ Модератор Сообщений: 21376 Регистрация: 28.12.2016 Excel 2013, 2016	Вопрос к ТС . В ячейках всегда константы или могут быть формулы? Изменено: БМВ — 19.10.2021 19:38:14 По вопросам из тем форума, личку не читаю.

Jack Famous

Пользователь

Сообщений: 10846
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#15

20.10.2021 09:26:44

БМВ,

Цитата
Neo1379: то что нужно!

вроде подошло, но, если написал, то выкладывай — чё прятать

БМВ

Модератор

Сообщений: 21376
Регистрация: 28.12.2016

Excel 2013, 2016

#16

20.10.2021 14:36:07

Цитата
Jack Famous написал: но, если написал,

Даже не начинал, но подумал

По вопросам из тем форума, личку не читаю.

Источник

Есть макрос для excel, привязываю его к фигуре, фигура находится в определенной ячейке. В данном случае в B6, как сделать так, чтобы мне не приходилось менять вручную адрес ячейки, а получать его в зависимости от места расположения фигуры? Например, фигура расположена в ячейке B9, соответственно получаю адрес ячейки из расположения фигуры и делаю уже инкремент.

Sub mac1()
    With Range("B6")
    If IsNumeric(.Value) Then
    Application.EnableEvents = False
    .Value = .Value + 1
    Application.EnableEvents = True
    End If
    End With
End Sub

задан 23 июн 2020 в 12:38

Событие выделения ячейки (ЛКМ) не сосовсем удобно в данном случае.

Вариант: при ПКМ +1. Если ошиблись, отнять единичку — DoubleClick

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Range("B2:B100"), Target) Is Nothing Then
        Cancel = True
        Target.Value = Target.Value + 1
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Range("B2:B100"), Target) Is Nothing Then
        Cancel = True
        Target.Value = Target.Value - 1
    End If
End Sub

Код разместить в модуле листа

ответ дан 23 июн 2020 в 13:25

Источник

Как увеличить числа при изменении значения в другом столбце?

Предположим, у вас есть список значений в столбце A, и теперь вы хотите увеличить число на 1 в столбце B, когда значение в столбце A изменяется, что означает, что числа в столбце B увеличиваются до тех пор, пока значение в столбце A не изменится, затем приращение числа снова начинается с 1, как показано на скриншоте слева. В Excel вы можете решить эту задачу следующим образом.

Увеличение числа при изменении значения в каждой группе с помощью формулы

Увеличение числа при изменении значения в каждой группе с помощью формулы

Чтобы увеличить числа на основе другого столбца при изменении значения, вам может помочь следующая простая формула.

1. Введите эту формулу: = ЕСЛИ (A2 <> A1,1; B1 + 1) в пустую ячейку рядом с вашими данными, B2, например, см. снимок экрана:

2. Затем перетащите дескриптор заполнения вниз к ячейкам, которые вы хотите заполнить порядковыми номерами, и перезапустите для каждого изменения в столбце A, см. Снимок экрана:

Внимание: Вот еще одна формула = СЧЁТЕСЛИ ($ A $ 2: A2; A2) также может помочь вам создать последовательность номеров, которая перезапускается при каждом изменении в другом столбце.

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (13)

Оценок пока нет. Оцените первым!

Источник

Например, у меня есть ячейка с буквенно-цифровой строкой «KTE-16CN-0001-skyyang», и теперь я хочу перетащить и увеличить буквенно-цифровую строку на 1, чтобы заполнить ячейки следующим образом: «KTE-16CN-0002-skyyang, KTE-16CN-0003-skyyang… »Если я перетащу маркер заполнения напрямую, ячейки не будут увеличиваться, как я могу заполнить ячейки с помощью буквенно-цифрового увеличения в Excel?

Увеличить буквенно-цифровую строку на 1 для столбца с формулой

Увеличение буквенно-цифровой строки на 1 для столбца с Kutools for Excel

На самом деле, обычный дескриптор автозаполнения не может помочь нам завершить эту работу, но вы можете применить формулу, чтобы справиться с этим, пожалуйста, сделайте следующее:

Пожалуйста, введите эту формулу: = «KTE-16CN -» & ТЕКСТ (СТРОКИ ($ 1: 1), «0000») & «- skyyang» в любую нужную ячейку, а затем перетащите дескриптор заполнения вниз к ячейкам, которые вы хотите заполнить буквенно-цифровыми строками приращения, чтобы получить следующий результат:

Примечание: В приведенной выше формуле: текст «КТЭ-16ЦН-«И»-сайян»Являются константами вашей текстовой строки, вы можете заменить их на нужный текст, а число«0000»- это переменная, которая будет увеличиваться путем перетаскивания маркера заполнения, и вы также можете изменить ее на необходимое начальное число.

Если вас смущает приведенная выше формула, я представлю вам удобный инструмент — Kutools for Excel, С этими Вставить порядковый номер утилита, вы сможете быстро и легко решить эту задачу.

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Выберите столбец или диапазон, в котором вы хотите заполнить ячейки увеличивающейся буквенно-цифровой строкой.

2. Затем нажмите Кутулс > Вставить > Вставить порядковый номер, см. снимок экрана:

3. В Вставить порядковый номер диалоговое окно, щелкните Новинки кнопку, чтобы развернуть диалоговое окно, см. снимок экрана:

4. В расширенном Вставить порядковый номер диалоговом окне выполните следующие операции:

(1.) Введите Имя и фамилия для этой последовательности как вам нужно;

(2.) Укажите начальный номер, приращение и количество цифр по своему усмотрению;

(3.) Наконец, вы можете ввести префикс и суффикс текстовой строки.

Скачать Kutools for Excel Сейчас !

5. Затем нажмите Добавить кнопку, чтобы добавить эту последовательность в приведенный выше список, и нажмите Диапазон заполнения Кнопка, текстовые строки приращения последовательности будут заполнены в выбранные ячейки, см. снимок экрана:

Скачать и бесплатную пробную версию Kutools for Excel Сейчас !

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (2)

Оценок пока нет. Оцените первым!

Источник