Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Формула в VBA
 
#1
13.08.2013 09:32:14
Доброе всем утро!

Делаю так, чтобы число в ячейке умножалось на 1,18
Подскажите, пожалуйста, почему VBA не нравится формула?
Ругается именно на нее  :cry:

Код
Sub UmnojitNDS()
    Dim C As Range
    Dim X As Variant
       
    With Selection
        For Each C In Selection
            X = C.Value
            C.Formula = "=" & X & "*1.18"
        Next C
    End With
    
End Sub
В полете голова - важнее крыльев
 
 
 
#2
13.08.2013 09:42:10
Зачем формула? Сразу умножайте
Код
C.Value=C.Value*1.18
 
 
 
#3
13.08.2013 09:44:30
Сама я могу умножить
Именно в этом и дело - нужно чтобы в каждой ячейке сохранилось значение, которое в ней было до моей обработки
Понимаю, что это можно сделать, но не понимаю - что именно я делаю не так...
Изменено: Li$$@ - 13.08.2013 09:45:36
В полете голова - важнее крыльев
 
 
 
#4
13.08.2013 09:46:22
Вы сами себе противоречите: нужно умножить значение в ячейке на 1,18 и в то же время чтобы сохранилось "старое" значение. Где истина?
 
 
 
#5
13.08.2013 09:47:41
Нужно, чтобы в ячейке после выполнения операции в режиме редактирования видели вот это:
=7,2 * 1,18
а не 8,496
В полете голова - важнее крыльев
 
 
 
#6
13.08.2013 09:50:53
Тогда запишите

C.Value=C.Value & "*" & 1.18
Когда испробованы все варианты, я начинаю плясать с бубном. Как правило — помогает.
 
 
 
#7
13.08.2013 09:54:18
Abakumov, спасибо
Это я и пытаюсь сделать, только без знака равно результата вычислений не видно, а прилепить его  в начале не получается - беру его в кавычки, сцепляю при помощи & и не нравится VBA такой код почему-то ((
Изменено: Li$$@ - 13.08.2013 09:55:37
В полете голова - важнее крыльев
 
 
 
#8
13.08.2013 09:55:35
Попробуйте так:
Код
C.Value = "'=" & C.Text & "* 1,18"
 
 
 
#9
13.08.2013 09:57:09
Цитата
только без знака равно результата вычислений не видно
Так Вам нужен РЕЗУЛЬТАТ или отобразить ФОРМУЛУ? Формулируйте точнее...
 
 
 
#10
13.08.2013 09:58:39
Юрий М, пробую - тогда я вижу содержимое ячейки не только в режиме редактирования
А без этой кавычки никак не хочет писать  
Что ж ему нужно-то .. :cry:
Изменено: Li$$@ - 13.08.2013 09:59:15
В полете голова - важнее крыльев
 
 
 
#11
13.08.2013 10:00:16
А Вам ЧТО нужно?
 
 
 
#12
13.08.2013 10:00:23
Коллеги, ну я же, простите, сформулировала ..
"Нужно, чтобы в ячейке после выполнения операции в режиме редактирования видели вот это: "
И с этого и начала - просто к значению дописать формулу
Изменено: Li$$@ - 13.08.2013 10:02:10
В полете голова - важнее крыльев
 
 
 
#13
13.08.2013 10:02:00
Ещё раз (последний) Вам нужен результат или визуальное отображение формулы?
 
 
 
#14
13.08.2013 10:03:19
Мне нужно, чтобы в я чейке было написано = старое значение * 1,18
БЕЗ  каких либо апострофов и одинарных кавычек в начале
Чтобы формула была обычная и выводила результат, но в режиме редактирования видно было  = старое значение * 1,18
В полете голова - важнее крыльев
 
 
 
#15
13.08.2013 10:05:31
Ага, кажись понял, нужно только это делать через R1C1

http://www.planetaexcel.ru/techniques/11/113/?sphrase_id=129492
Когда испробованы все варианты, я начинаю плясать с бубном. Как правило — помогает.
 
 
 
#16
13.08.2013 10:08:42
Abakumov, мне не нужно делать ссылку ни на одну ячейку, поэтому R1C1 ничем не поможет
нужно к старому значению дописать = в начале и в конце *1.18

Дописываться не хочет именно знак =
Изменено: Li$$@ - 13.08.2013 10:09:38
В полете голова - важнее крыльев
 
 
 
#17
13.08.2013 10:10:41
Тогда у Вас будет ссылка на саму ту ячейку, где находится значение. Попробуйте вручную написать такую формулу. Получится? В ячейке может быть ИЛИ формула, или константа. Выход - формулу писать в соседнюю ячейку.
 
 
 
#18
13.08.2013 10:14:29
Юрий М, я поэтому и хочу записать значение ячейки в переменную, а затем написать там формулу с использованием значения переменной
Ручками это как раз сделать получается - зайти в ячейку, где написано 7,2, и в начале дописать =, а в конце *1.18

Вот такой код работает вообще без проблем

Код
Sub UmnojitNDS()
    Dim C As Range
    Dim X As Variant
       
    With Selection
        For Each C In Selection
            X = C.Value
            C.ClearContents
            C.Value = X
        Next C
    End With
    
End Sub


Но если я хочу использовать значение, записанное в X, для формулы в ячейке, в которой только что сделала ClearContents, то ничего не выходит
В этом и прошу помочь разобраться
Изменено: Li$$@ - 13.08.2013 10:15:30
В полете голова - важнее крыльев
 
 
 
#19
13.08.2013 10:16:38
Это VBA знает, что такое переменная, а ячейка (формула) этого не понимает.
 
 
 
#20
13.08.2013 10:20:35
Так я и делаю в VBA - записала значение ячейки в переменную, в пошаговой отладке хорошо видно, что все нормально работает. И далее хочу использовать это значение в формуле

Хотите сказать, что это невозможно сделать в VBA?

Т.е. после знаков, находящихся в ячейке, знаки и символы свои добавить можно, а перед - нельзя?
Изменено: Li$$@ - 13.08.2013 10:23:49
В полете голова - важнее крыльев
 
 
 
#21
13.08.2013 10:25:40
Вы никак меня не поймёте: в VBA возможно или вычислить, или вставить в ячейку формулу. Но формула не знает, что такое переменная - она остаётся "внутри" VBA. Вставляйте ОБЫЧНУЮ формулу (без переменной) в соседнюю ячейку.
 
 
 
#22
13.08.2013 10:35:26
Юрий М, если бы допустимо было решить вопрос в соседней ячейке - я бы с этим не морочилась вообще...
В итоге мне нужно будет каждое значение ячейки огромного диапазона умножать на значение, зафиксированное в отдельной ячейке. Переделать это вручную - грустно (

Ок, а если разбить задачу на две части
1. сделать как вы предложили
Код
C.Value = "'=" & C.Text & "* 1,18"

2. убрать тот самый знак ' из ячейки программного как-то можно? Я попробовала - не вышло
Изменено: Li$$@ - 13.08.2013 10:40:04
В полете голова - важнее крыльев
 
 
 
#23
13.08.2013 10:37:41
И не выйдет: повторюсь - в ячейке может быть или формула, или ЗНАЧЕНИЕ.
 
 
 
#24
13.08.2013 10:41:45
Пусть у меня просто будет файл, в котором будет много цифр, перед которыми написан этот апостроф (НЕ этот пример вообще) - я не могу никак удалить эту одинарную кавычку?
Только руками заходить в каждую ячейку и удалять?!!!
В полете голова - важнее крыльев
 
 
 
#25
13.08.2013 10:42:42
Можете: Replace
 
 
 
#26
13.08.2013 10:47:46
Хотя, с удалением ведущего апострофа будут проблемы. Помнится, что подобная проблема уже обсуждалась. Но удаление апострофа не решит Вашей задачи - вы пытаетесь в ячейке получить ТЕКСТ, который ничего вычислять не будет.
 
 
 
#27
13.08.2013 10:51:27
Ну если текст формулы уже сложился, то теперь удалить из нее лишний знак и обновить содержимое ячейки - мне думается можно, должно заработать
Сейчас поищу про удаление апострофа
В полете голова - важнее крыльев
 
 
 
#28
13.08.2013 10:54:28
Ещё вариант: в ячейке вычислять значение макросом а формулу отображать в примечании.
 
 
 
#29
13.08.2013 11:16:40
Ух сколько понаписано.
А у меня прекрасно работает макрос из первого поста :)
Главное чтоб не было пустых ячеек в выделенном. И текста.
Так что всё дело в "волшебных" разделителях.
 
 
 
#30
13.08.2013 11:26:46
Hugo, как я вам завидую!!!

У меня нет пустых ячеек и текста и ничо не работает
Мне кажется, у меня редактор сошел с ума, потому что даже код  с сайта Майкрософт (http://support.microsoft.com/kb/213440) по удалению апострофа не работает тоже  :o - не мой сегодня день  :evil:
В полете голова - важнее крыльев
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх