Замена части данных ячейки на формулу с переменными

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

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

Замена части данных ячейки на формулу с переменными (Замена части данных ячейки на формулу с переменными)

Замена части данных ячейки на формулу с переменными

muxa

Дата: Пятница, 18.01.2013, 19:23 | Сообщение № 1

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

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

Сообщений: 15

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

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

Без переменных макрос работает нормально. Как доходит дело до переменных выскакивает ошибка. Как исправить никак не пойму.

К сообщению приложен файл: SmLocF4New1.xls (28.0 Kb)

Ответить

RAN

Дата: Пятница, 18.01.2013, 19:55 | Сообщение № 2

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

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

Сообщений: 5660

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

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

2010

Цитата (muxa)

Без переменных макрос работает нормально.

"Не мешай машине работать!"

Цитата (muxa)

Как доходит дело до переменных

Где? До каких?

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

Ответить

ikki

Дата: Пятница, 18.01.2013, 20:03 | Сообщение № 3

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

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

Сообщений: 1906

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

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

Excel 2003, 2010

[vba]

Код

ActiveCell.Replace What:="-", Replacement:= _
"=" & Index & "*" & Kof & "/1000 * "

[/vba]
с форматами разбирайтесь сами.

пс. но способ дурацкий, извините меня. smile

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Пятница, 18.01.2013, 20:03

Ответить

AlexM

Дата: Пятница, 18.01.2013, 21:38 | Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 4514

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

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

Excel 2003

Так это может первый макрос. Ошибка дальше середины кода. Это может быть большой успех. smile

В файле, в модуле1 макрос в стиле оригинала, в модуле2 - оригинал (исправленный).

К сообщению приложен файл: SmLocF4New1_new.xls (32.5 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Пятница, 18.01.2013, 22:35

Ответить

muxa

Дата: Суббота, 19.01.2013, 03:24 | Сообщение № 5

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

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

Сообщений: 15

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

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

О , круто! Заработало. clap

Но если ввести индекс и коэффициент с запятой, то получаются целые числа, а нужно с точностью до 2 или 3 знака после запятой

Обязательно нужна "защита от дураков"

Сообщение отредактировал muxa - Суббота, 19.01.2013, 03:48

Ответить

AlexM

Дата: Суббота, 19.01.2013, 08:27 | Сообщение № 6

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

Ранг: Участник клуба

Сообщений: 4514

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

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

Excel 2003

замените строки
[vba]

Код

Index = Val(InputBox("Введите индекс..."))
Kof = Val(InputBox("Введите коэффициент к индексу..."))

[/vba]
на строки
[vba]

Код

Index = Val(Application.Substitute(InputBox("Введите индекс..."), ",", "."))
Kof = Val(Application.Substitute(InputBox("Введите коэффициент к индексу..."), ",", "."))

[/vba]
У вас в коде это было, я убрал случайно.

Цитата (muxa)

Обязательно нужна "защита от дураков"

Что вы имеете ввиду?

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

muxa

Дата: Суббота, 19.01.2013, 12:50 | Сообщение № 7

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

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

Сообщений: 15

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

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

Спасибо!!! Это и нужно было. Вы очень помогли!!!

Ответить

Замена части данных ячейки на формулу с переменными (Замена части данных ячейки на формулу с переменными)

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