Каким должен быть формат ячеек, чтобы было сложение чисел, а не строк

@Sovsem_ne_Ta · Регистрация: 19.10.2012

Привет!

У меня есть таблица 240х180, я хочу усреднить значения в каждых четырех клетках, чтобы получить 120х90. Для начала пишу макрос, который усредняет в одном направлении (по горизонтали), потом туда же надо приписать то же самое по вертикали и итоговое, это всё понятно. Но возникает три проблемы. Так как с VBA я не дружу, то проблемы, наверное, идиотские

1. Первая строка (если цикл идёт сначала по строкам, а потом по столбцам) или первый столбец (если сначала по столбцам) - не складывает данные, а пишет непосредственно "значение ячейки1+значение ячейки2", видимо, проблема с форматом? Как исправить и почему с остальными все нормально?
2. Почему просуммировать две ячейки вот таким образом можно, а сделать среднее (то есть поделить пополам) нельзя? Когда я приписываю туда деление, пишут Type mismatch

Visual Basic

1	Sheets("List1").Cells(k, i).Value = Sheets("List0").Cells(k, j).Value + Sheets("List0").Cells(k, j + 1).Value

3. Макрос досчитывает до определенной ячейки, а дальше вылетает с ошибкой Application-defined or object-defined error. При этом данные все в исходной таблице в одинаковом формате. Почему так?

Таблица с макросом (называется Average) во вложении.

@~~Апострофф~~ · 19.10.2012, 10:13

Sovsem_ne_Ta, Данные в Вашей исходной таблице имеют строковый тип,
который надо преобразовывать в числовой
(а т.к. разделитель точка, то лучше взять Val(Sheets("List0").Cells(k, j).Value)) и т.д.

И какой смысл усреднять нули

@Sovsem_ne_Ta · 19.10.2012, 10:15 **[ТС]**

А как их тогда преобразовать? Там в том же файле есть макрос Format, который должен же был переделать их в обычный из строкового?

Усреднять нули большой смысл, потому что в таблице не только нули.

@~~Апострофф~~ · 19.10.2012, 10:25

Не разглядел

Пробуйте

Visual Basic

Sub Average()
Dim r0 As Range, r1 As Range, r As Long, c As Long
Set r0 = Worksheets("List0").Cells
Set r1 = Worksheets("List1").Cells
For r = 1 To 90
  For c = 1 To 120
    r1(r, c) = (Val(r0(r * 2 - 1, c * 2 - 1)) + Val(r0(r * 2, c * 2 - 1)) + Val(r0(r * 2 - 1, c * 2)) + Val(r0(r * 2, c * 2))) / 4
  Next c
Next r
End Sub

@Казанский · 19.10.2012, 10:33

XLSM посмотреть не могу. Можно формулой сделать. В файле 2 варианта: с обычной формулой и с "массивной" сразу на весь диапазон.

@Sovsem_ne_Ta · 19.10.2012, 12:03 **[ТС]**

Апострофф, о, спасибо, прекрасно! Не знала о существовании Val.

Комментарий модератора

Один вопрос - одна тема!
Перенес сюда: Как изменить макрос, чтобы он сохранял книгу без подтверждения

Скрипт · 19.10.2012, 12:13

Хоть задача уже решена, я отвечу на вопросы, которые есть в сообщении #1.

В России дробные числа пишутся с запятой: 0,1. Поэтому если в ячейке находится дробное число с точкой, то VBA воспринимает это как текст, а не как число.
Что можно сделать, чтобы работать с дробными числами, у которых точка:
- Можно сделать так, чтобы Excel воспринимал дробные числа с точкой, как числа, но такое изменение каснётся всех книг, с которыми будут работать на данном компьютере:
  - в Excel 2007: Круглая кнопка - Параметры Excel - Дополнительно - Параметры правки - флажок "Ипользовать системные разделители";
  - в Excel 2010: Файл - Параметры - Дополнительно - Параметры правки - флажок "Ипользовать системные разделители";
- Можно использовать средства VBA, а именно функцию Val. Эта функция превращает текст в число.
В VBA знак "+" можно использовать в двух случаях: для сложения чисел и для объединения нескольких фрагментов текста в один фрагмент. Если компьютер понимает, что перед ним числа, то он их складывает, а если компьютер видит, что перед ним текст, то объединяет текст в один фрагмент, например, если в ячейках Excel:
0,1 + 0,1 = 0,2
0.1 + 0.1 = 0.10.1
Знак деления "/" относится только к числам, поэтому, когда вы пытаетесь использовать знак деления с текстом, то возникает ошибка, что несовпадение типов данных.
В определённый момент в результате работы вашего кода переменная "j" будет больше, чем количество столбцов на листе.
Ошибка "Application-defined or object-defined error" означает, что нет такой ячейки на листе.

@~~Апострофф~~ Заблокирован
	19.10.2012, 10:13	2
	Sovsem_ne_Ta, Данные в Вашей исходной таблице имеют строковый тип, который надо преобразовывать в числовой (а т.к. разделитель точка, то лучше взять Val(Sheets("List0").Cells(k, j).Value)) и т.д. И какой смысл усреднять нули 0

@Sovsem_ne_Ta 0 / 0 / 0 Регистрация: 19.10.2012 Сообщений: 7
	19.10.2012, 10:15 [ТС]	3
	А как их тогда преобразовать? Там в том же файле есть макрос Format, который должен же был переделать их в обычный из строкового? Усреднять нули большой смысл, потому что в таблице не только нули. 0

Скрипт 5468 / 1148 / 50 Регистрация: 15.09.2012 Сообщений: 3,514
	19.10.2012, 12:13	7
	Хоть задача уже решена, я отвечу на вопросы, которые есть в сообщении #1. В России дробные числа пишутся с запятой: 0,1. Поэтому если в ячейке находится дробное число с точкой, то VBA воспринимает это как текст, а не как число. Что можно сделать, чтобы работать с дробными числами, у которых точка: Можно сделать так, чтобы Excel воспринимал дробные числа с точкой, как числа, но такое изменение каснётся всех книг, с которыми будут работать на данном компьютере: в Excel 2007: Круглая кнопка - Параметры Excel - Дополнительно - Параметры правки - флажок "Ипользовать системные разделители"; в Excel 2010: Файл - Параметры - Дополнительно - Параметры правки - флажок "Ипользовать системные разделители"; Можно использовать средства VBA, а именно функцию Val. Эта функция превращает текст в число. В VBA знак "+" можно использовать в двух случаях: для сложения чисел и для объединения нескольких фрагментов текста в один фрагмент. Если компьютер понимает, что перед ним числа, то он их складывает, а если компьютер видит, что перед ним текст, то объединяет текст в один фрагмент, например, если в ячейках Excel: 0,1 + 0,1 = 0,2 0.1 + 0.1 = 0.10.1 Знак деления "/" относится только к числам, поэтому, когда вы пытаетесь использовать знак деления с текстом, то возникает ошибка, что несовпадение типов данных. В определённый момент в результате работы вашего кода переменная "j" будет больше, чем количество столбцов на листе. Ошибка "Application-defined or object-defined error" означает, что нет такой ячейки на листе. 0

Опции темы