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

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

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

Помогите создать таблицу из расчетов кальклятора (Создала на работе сложный калькулятор, выкладываю пример, ож)

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

emorehi

Дата: Суббота, 28.04.2012, 12:57 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 5

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

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

Не могу додуматься как сделать добавление в таблицу расчетов, посмотрите пример:

К сообщению приложен файл: 2837394.xlsx (12.2 Kb)

Ответить

Serge_007

Дата: Суббота, 28.04.2012, 13:00 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote

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

Только макросом

ЮMoney:41001419691823 | WMR:126292472390

Ответить

emorehi

Дата: Суббота, 28.04.2012, 13:29 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 5

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

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

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

Ответить

RAN

Дата: Суббота, 28.04.2012, 14:02 | Сообщение № 4

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

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

Сообщений: 5660

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

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

2010

[vba]

Code

Sub qq()
Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(, 4).Value = Range("C9:F9").Value
End Sub

[/vba]

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

Ответить

light26

Дата: Воскресенье, 29.04.2012, 10:58 | Сообщение № 5

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

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

Сообщений: 1351

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

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

2007, 2010, 2013

В данном случае

Code

=ПОВТОР(C9;1)

равносильно

Code

=C9

.
Так зачем вводить лишних 10 символов?

Я не волшебник. Я только учусь

Ответить

emorehi

Дата: Пятница, 04.05.2012, 12:39 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 5

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

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

RAN,
Sub qq()
Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(, 4).Value = Range("C9:F9").Value
End Sub

РАБОТАЕТ!!!!!! ОГРОМНОЕ СПАСИБО !!!! я ваш должник
Для абсолютного понимания можете объяснить)))):
- что значит qq()?
- почему здесь Range("C" & Rows.Count)?
- и еще одну штучку Resize(, 4)?
Просто это был пример, хочу у знать чтобы применить на болле сложном?

Ответить

RAN

Дата: Пятница, 04.05.2012, 14:06 | Сообщение № 7

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

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

Сообщений: 5660

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

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

2010

Не нравится qq, напишите bb. biggrin

Это имя макроса.
Range("C" & Rows.Count).End(xlUp) - последняя заполненная ячейка в столбце С.
Offset(1) - ячейка строкой ниже
Resize(, 4) - расширяем диапазон с 1 ячейки до 4
.Value = Range("C9:F9").Value - заполняем полученный диапазон значениями из диапазона ("C9:F9").

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

Ответить

emorehi

Дата: Суббота, 05.05.2012, 09:01 | Сообщение № 8

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

Ранг: Прохожий

Сообщений: 5

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

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

Большое спасибо, все получилось!

Ответить

Serge_007

Дата: Суббота, 05.05.2012, 09:21 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (RAN)

Resize(, 4) - расширяем диапазон с 1 ячейки до 4

А почему нельзя сразу указать диапазон?
Типа Offset(1, 4)?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

_Boroda_

Дата: Суббота, 05.05.2012, 09:38 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Quote (Serge_007)

Цитата, RAN писал(а):
Resize(, 4) - расширяем диапазон с 1 ячейки до 4

А почему нельзя сразу указать диапазон?
Типа Offset(1, 4)?

Потому, что Offset - это смещение. И таким образом получится просто смещение на 1 строку и 4 столбца. Но для вставки будет только одна ячейка. А Ресайзом(,4) мы эту одну переделываем в 4 по горизонтали

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Serge_007

Дата: Суббота, 05.05.2012, 09:47 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (_Boroda_)

Потому, что Offset - это смещение

Саш, спасибо. В этом-то и вопрос smile

Именованый диапазон со СМЕЩ() в аналогичном случае будет содержать одну строку и четыре столбца, а почему так в VBA нельзя?
Почему нужно дополнительно Resize (аналога в формулах нет?) использовать? Или я чего не понимаю?

ЗЫ Спрошу проще: Offset <> СМЕЩ()?