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

Вход

Регистрация

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

 

= Мир MS Excel/Сумма Значений 2-х результатов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма Значений 2-х результатов (Макросы/Sub)
Сумма Значений 2-х результатов
Болт Дата: Понедельник, 22.12.2014, 12:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Присутствует результат 2х значений.

Результат вычислений: 1) Лист Окружная Спартакиада КАО (в столбце AD)
2) Лист Баллы КАО город (в столбце AD)

к каждому Вычислению привязана КНОПКА ! (СТАРТ) (+Город).

Некоторая проблема с суммирование этих 2- х результатов в один столбец (АЕ), Хотел чтобы данное вычисление происходило с
кнопки (+ Город)
К сообщению приложен файл: _2014-2015_-_.rar (40.3 Kb)


Сообщение отредактировал Болт - Понедельник, 22.12.2014, 12:14
 
Ответить
СообщениеПрисутствует результат 2х значений.

Результат вычислений: 1) Лист Окружная Спартакиада КАО (в столбце AD)
2) Лист Баллы КАО город (в столбце AD)

к каждому Вычислению привязана КНОПКА ! (СТАРТ) (+Город).

Некоторая проблема с суммирование этих 2- х результатов в один столбец (АЕ), Хотел чтобы данное вычисление происходило с
кнопки (+ Город)
Автор - Болт
Дата добавления - 22.12.2014 в 12:12
DJ_Marker_MC Дата: Понедельник, 22.12.2014, 13:20 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Ни "Добрый день Вам";
Ни "помогите ПОЖАЛУЙСТА с решением проблемы".
Для подобной обязаловки в стиле:

Цитата Болт, 22.12.2014 в 12:12, в сообщении № 1
Хотел чтобы

есть соответствующий раздел РАБОТА / ФРИЛАНС


Сообщение отредактировал DJ_Marker_MC - Понедельник, 22.12.2014, 13:22
 
Ответить
СообщениеНи "Добрый день Вам";
Ни "помогите ПОЖАЛУЙСТА с решением проблемы".
Для подобной обязаловки в стиле:

Цитата Болт, 22.12.2014 в 12:12, в сообщении № 1
Хотел чтобы

есть соответствующий раздел РАБОТА / ФРИЛАНС
Автор - DJ_Marker_MC
Дата добавления - 22.12.2014 в 13:20
Болт Дата: Вторник, 23.12.2014, 19:06 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Правила форума :
2.Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы и указывайте предпочитаемый способ решения (формулы или макросы).
Создавать темы типа «ХЕЛП», «Условное форматирование», «Проблема с макросом», «ПОМОГИТЕ», «Не работает формула», «Как решить?» и подобные - НЕЛЬЗЯ!!! Такие темы будут закрываться или удаляться.

Извините, меня что не стал расписывать как я давно уже пытаюсь решить данную тему, но тем не менее , мне Помог один человек, я больше не смею его беспокоить обратился в очередной раз на данный форум, а мне ответ, почему не на коленях и где деньги за услугу.!
 
Ответить
СообщениеПравила форума :
2.Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы и указывайте предпочитаемый способ решения (формулы или макросы).
Создавать темы типа «ХЕЛП», «Условное форматирование», «Проблема с макросом», «ПОМОГИТЕ», «Не работает формула», «Как решить?» и подобные - НЕЛЬЗЯ!!! Такие темы будут закрываться или удаляться.

Извините, меня что не стал расписывать как я давно уже пытаюсь решить данную тему, но тем не менее , мне Помог один человек, я больше не смею его беспокоить обратился в очередной раз на данный форум, а мне ответ, почему не на коленях и где деньги за услугу.!
Автор - Болт
Дата добавления - 23.12.2014 в 19:06
gling Дата: Вторник, 23.12.2014, 19:24 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Цитата
почему не на коленях и где деньги за услугу.!
Думаю, что речь не о коленях. Вспомните как Вы разговариваете на улице, чтобы узнать где находится какой либо дом. Думаю что на колени Вы не падаете, но соблюдаете минимальные требования уважения (этикета). В противном случае вам не ответят или еще хуже отправят ...., не по адресу. Вам будет неприятно как сейчас. Например не зная человека я начинаю разговор с "Здравствуйте! ...."

ЯД-41001506838083
 
Ответить
Сообщение
Цитата
почему не на коленях и где деньги за услугу.!
Думаю, что речь не о коленях. Вспомните как Вы разговариваете на улице, чтобы узнать где находится какой либо дом. Думаю что на колени Вы не падаете, но соблюдаете минимальные требования уважения (этикета). В противном случае вам не ответят или еще хуже отправят ...., не по адресу. Вам будет неприятно как сейчас. Например не зная человека я начинаю разговор с "Здравствуйте! ...."
Автор - gling
Дата добавления - 23.12.2014 в 19:24
Leanna Дата: Среда, 24.12.2014, 00:40 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Болт, какая именно "некоторая" проблема, что именно не так суммирует и как надо? Порой проще написать что-то с нуля, чем копать чужой код, логику которого плохо представляешь.
Проблема с суммированием AD на листе Окружная Спартакиада КАО и AD на листе Баллы КАО город (в столбце AD)??? (так у вас написано наверху) Вы хотите эту возможность в ваш макрос забить? или она там уже есть(не заметила)?

Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеБолт, какая именно "некоторая" проблема, что именно не так суммирует и как надо? Порой проще написать что-то с нуля, чем копать чужой код, логику которого плохо представляешь.
Проблема с суммированием AD на листе Окружная Спартакиада КАО и AD на листе Баллы КАО город (в столбце AD)??? (так у вас написано наверху) Вы хотите эту возможность в ваш макрос забить? или она там уже есть(не заметила)?
Автор - Leanna
Дата добавления - 24.12.2014 в 00:40
Leanna Дата: Среда, 24.12.2014, 01:08 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
если просто сложить колонки, то можно так
[vba]
Код

Dim shOkr, shKAO, i, j
Set shOkr = Sheets("Окружная Спартакиада КАО")
Set shKAO = Sheets("Баллы КАО город ")
For i = 6 To shOkr.Cells(Rows.Count, 1).End(xlUp).Row
For j = 6 To shKAO.Cells(Rows.Count, 1).End(xlUp).Row
If shOkr.Cells(i, 1) = shKAO.Cells(j, 1) Then shOkr.Cells(i, "AE") = shKAO.Cells(j, "AD") + shOkr.Cells(i, "AD"): Exit For
Next
Next
[/vba]

Лучше день потерять, потом за пять минут долететь!
 
Ответить
Сообщениеесли просто сложить колонки, то можно так
[vba]
Код

Dim shOkr, shKAO, i, j
Set shOkr = Sheets("Окружная Спартакиада КАО")
Set shKAO = Sheets("Баллы КАО город ")
For i = 6 To shOkr.Cells(Rows.Count, 1).End(xlUp).Row
For j = 6 To shKAO.Cells(Rows.Count, 1).End(xlUp).Row
If shOkr.Cells(i, 1) = shKAO.Cells(j, 1) Then shOkr.Cells(i, "AE") = shKAO.Cells(j, "AD") + shOkr.Cells(i, "AD"): Exit For
Next
Next
[/vba]
Автор - Leanna
Дата добавления - 24.12.2014 в 01:08
Болт Дата: Среда, 24.12.2014, 07:42 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Уважаемая Leanna я вам очень признателен в Помощи!

если я был Нелеп и груб извиняюсь.

ЕЩЁ раз спасибо! как Говорят " ЗАРАБОТАЛО" Спасибо! вы даже не представляете сколько я уже бьюсь над данной формулой!
 
Ответить
СообщениеУважаемая Leanna я вам очень признателен в Помощи!

если я был Нелеп и груб извиняюсь.

ЕЩЁ раз спасибо! как Говорят " ЗАРАБОТАЛО" Спасибо! вы даже не представляете сколько я уже бьюсь над данной формулой!
Автор - Болт
Дата добавления - 24.12.2014 в 07:42
Болт Дата: Четверг, 25.12.2014, 11:06 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Как быть если у меня по аналогии 5 округов а он при изменении пишет что ошибка. Очень буду признателен.


Сообщение отредактировал Болт - Пятница, 26.12.2014, 10:32
 
Ответить
СообщениеКак быть если у меня по аналогии 5 округов а он при изменении пишет что ошибка. Очень буду признателен.
Автор - Болт
Дата добавления - 25.12.2014 в 11:06
Leanna Дата: Четверг, 25.12.2014, 14:42 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Имена листов не задали?
Честно говоря не понимаю что вы пытаетесь сделать, выложите файл пример и на нем покажите какие с какими колонки складываете, можно с вашим макросом 'по аналогии', который выдает ошибку.

Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеИмена листов не задали?
Честно говоря не понимаю что вы пытаетесь сделать, выложите файл пример и на нем покажите какие с какими колонки складываете, можно с вашим макросом 'по аналогии', который выдает ошибку.
Автор - Leanna
Дата добавления - 25.12.2014 в 14:42
Болт Дата: Пятница, 26.12.2014, 10:23 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Вот где то так!
К сообщению приложен файл: _2014-2015_-.rar (42.7 Kb)


Сообщение отредактировал Болт - Пятница, 26.12.2014, 10:25
 
Ответить
СообщениеВот где то так!
Автор - Болт
Дата добавления - 26.12.2014 в 10:23
Болт Дата: Пятница, 26.12.2014, 10:26 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Данная процедура аналогичная ко всем округам.
К сообщению приложен файл: 6259643.rar (42.7 Kb)
 
Ответить
СообщениеДанная процедура аналогичная ко всем округам.
Автор - Болт
Дата добавления - 26.12.2014 в 10:26
Болт Дата: Пятница, 26.12.2014, 10:29 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всего 5 округов города. Пытался вашу разработку поставить в каждую таблицу но не получается.

Данная таблица необходима для подсчёта очков в окружной спартакиаде округов. Это такие как Центральный, Октябрьский, Ленинский, Советский, Кировский.

Кировский это тот который вы помогли сделать!
К сообщению приложен файл: 3394133.rar (42.7 Kb)


Сообщение отредактировал Болт - Пятница, 26.12.2014, 10:32
 
Ответить
СообщениеВсего 5 округов города. Пытался вашу разработку поставить в каждую таблицу но не получается.

Данная таблица необходима для подсчёта очков в окружной спартакиаде округов. Это такие как Центральный, Октябрьский, Ленинский, Советский, Кировский.

Кировский это тот который вы помогли сделать!
Автор - Болт
Дата добавления - 26.12.2014 в 10:29
Leanna Дата: Пятница, 26.12.2014, 11:06 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Дело в том что вы не правильно указали название листа.
Правильно Sheets("Баллы ЦАО город "), а не Sheets("Баллы ЦАО город ") - у вас два пробела в названии листа в конце. Поэтому копируйте лучше имя листа и вставляйте его, а не пишите вручную.
К сообщению приложен файл: 3219490.rar (46.6 Kb)

Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеДело в том что вы не правильно указали название листа.
Правильно Sheets("Баллы ЦАО город "), а не Sheets("Баллы ЦАО город ") - у вас два пробела в названии листа в конце. Поэтому копируйте лучше имя листа и вставляйте его, а не пишите вручную.
Автор - Leanna
Дата добавления - 26.12.2014 в 11:06
Болт Дата: Пятница, 26.12.2014, 11:30 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо! сейчас буду пробовать!
 
Ответить
СообщениеСпасибо! сейчас буду пробовать!
Автор - Болт
Дата добавления - 26.12.2014 в 11:30
Болт Дата: Пятница, 26.12.2014, 12:34 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всё работает ! Спасибо! Большое!
 
Ответить
СообщениеВсё работает ! Спасибо! Большое!
Автор - Болт
Дата добавления - 26.12.2014 в 12:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма Значений 2-х результатов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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