Есть два столбца A и B с диапазоном ячеек

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

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

Есть два столбца A и B с диапазоном ячеек (Макросы/Sub)

Igorka001

Дата: Понедельник, 27.11.2023, 14:31 | Сообщение № 1

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

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

Сообщений: 24

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

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

Есть два столбца A и B с диапазоном ячеек A1:A30 и B1:B30, значения записываются только в столбец A, допустим A5 = 10, тогда при нажатии кнопки значение попадает в ячейку B5, потом значение в ячейке A5 может быть изменено к примеру A5 = 15, тогда в ячейке B5 уже происходит такая запись 10+15 то есть сумма, при этом сумма записывается в B5, а значение в ячейке A5 обнуляется, вот такая метаморфоза)
Буду раз вашей поддержке

Ответить

msi2102

Дата: Понедельник, 27.11.2023, 14:54 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 415

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

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

Excel 2007

Попробуйте так, в модуль листа
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If IsNumeric(Target) Then Target.Offset(0, 1) = Target.Offset(0, 1) + Target: Target = ""
    Application.EnableEvents = True
End Sub

[/vba]

К сообщению приложен файл: a_b.xlsm (13.9 Kb)

Ответить

Igorka001

Дата: Вторник, 28.11.2023, 08:08 | Сообщение № 3

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

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

Сообщений: 24

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

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

Не работает такая конструкция(

Сообщение отредактировал Serge_007 - Вторник, 28.11.2023, 13:48

Ответить

mgt

Дата: Вторник, 28.11.2023, 08:27 | Сообщение № 4

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

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

Сообщений: 103

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

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

Excel 2010

Попробуйте так. Работает с любым количеством строк в столбцах А и В

К сообщению приложен файл: 5383887.xlsm (19.4 Kb)

Ответить

Igorka001

Дата: Вторник, 28.11.2023, 11:29 | Сообщение № 5

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

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

Сообщений: 24

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

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

Отлично!!! Благодарствую!

Сообщение отредактировал Igorka001 - Вторник, 28.11.2023, 12:49

Ответить

Igorka001

Дата: Вторник, 28.11.2023, 13:40 | Сообщение № 6

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

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

Сообщений: 24

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

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

а как всё то же самое, но в диапазоне допустим c a3

Ответить

msi2102

Дата: Вторник, 28.11.2023, 14:14 | Сообщение № 7

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

Ранг: Обитатель

Сообщений: 415

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

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

Excel 2007

Цитата Igorka001, 28.11.2023 в 08:08, в сообщении № 3 (

)

Не работает такая конструкция(

А что именно у Вас не работает?

Ответить

Igorka001

Дата: Вторник, 28.11.2023, 14:31 | Сообщение № 8

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

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

Сообщений: 24

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

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

У меня почему то ошибка, конечно я могу что-то делать неверно, не исключаю

Сообщение отредактировал Igorka001 - Вторник, 28.11.2023, 14:43

Ответить

msi2102

Дата: Вторник, 28.11.2023, 14:43 | Сообщение № 9

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

Ранг: Обитатель

Сообщений: 415

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

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

Excel 2007

Цитата Igorka001, 27.11.2023 в 14:31, в сообщении № 1 (

)

а значение в ячейке A5 обнуляется

сами же писали
Измените диапазон в этой строке, например на
[vba]

Код

If Intersect(Target, Range("A3:A10")) Is Nothing Then Exit Sub

[/vba]

Ответить

Igorka001

Дата: Вторник, 28.11.2023, 14:45 | Сообщение № 10

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

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

Сообщений: 24

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

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

в этой строке и выдает ошибку

Ответить

mgt

Дата: Среда, 29.11.2023, 09:21 | Сообщение № 11

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

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

Сообщений: 103

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

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

Excel 2010

Цитата Igorka001, 28.11.2023 в 13:40, в сообщении № 6 (

)

а как всё то же самое, но в диапазоне допустим c a3

Строку
[vba]

Код

For i = 1 To Range("a65536").End(xlUp).Row

[/vba]
замените на
[vba]

Код

For i = 3 To Range("a65536").End(xlUp).Row

[/vba]

Если хотите до определенной строки, то вставьте ее номер вместо Range в этой же строке. Например:
[vba]

Код

For i = 1 To 30

[/vba]

Ответить

Igorka001

Дата: Среда, 29.11.2023, 10:55 | Сообщение № 12

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

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

Сообщений: 24

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

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

Цитата mgt, 29.11.2023 в 09:21, в сообщении № 11 (

)

1 To 30

Спасибо вам! Мне мне стыдно( и ведь при чем я попробовал, только 1 заменил везде))

Ответить

Есть два столбца A и B с диапазоном ячеек (Макросы/Sub)

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