Страницы: 1
RSS
Нужна помощь!
 
Очень нужна помощь в создании макроса.  
Есть таблица с текстовыми и цифровыми значениями, цены выделены желтым цветом. Необходимо увеличить цены на 5%. Как это можно сделать?    
Заранее спасибо!
 
{quote}{login=YAna}{date=11.06.2008 10:19}{thema=Нужна помощь!}{post}Очень нужна помощь в создании макроса.  
Есть таблица с текстовыми и цифровыми значениями, цены выделены желтым цветом. Необходимо увеличить цены на 5%. Как это можно сделать?    
Заранее спасибо!{/post}{/quote}  
 
А зачем именно макрос?
 
{quote}{login=YAna}{date=11.06.2008 10:19}{thema=Нужна помощь!}{post}Очень нужна помощь в создании макроса.  
Есть таблица с текстовыми и цифровыми значениями, цены выделены желтым цветом. Необходимо увеличить цены на 5%. Как это можно сделать?    
Заранее спасибо!{/post}{/quote}Увы, это невозможно ни формулами, ни макросом пока цены выделены желтым. Снимите заливку (рекомендуется) или в крайнем случае используйте зеленый цвет.
 
Иногда, независимо даже от цвет заливки, помогает...  
В любой свободной ячейке введите 1,05.  
Скопируйте эту ячейку.  
Затем выделите ячейки с ценами.  
Войдите в меню Правка-Специальная-Вставка и в нем поставте галочку/точку на пункте УМНОЖИТЬ.  
Нажмите ОК.  
Должно помочь.  
Если нет, тогда не лечится, клиника...
 
А преп сказал Макросом и в Желтеньких...
 
Спасибо Igor67, все получилось как Вы предложили.  
Только вопрос насчет макроса остается актуальным - так как очень большой массив данных и операция часто по времени повторяется
 
После сессии. Не хочу делать работу просто ради работы, или из-за того, что кто-то не учился целый год.  
Повторите вопрос в июле - может буду на сайте, помогу.
 
{quote}{login=YAna}{date=11.06.2008 11:53}{thema=Спасибо  Igor67}{post}Спасибо Igor67, все получилось как Вы предложили.  
Только вопрос насчет макроса остается актуальным - так как очень большой массив данных и операция часто по времени повторяется{/post}{/quote}Запишите то, что Вам посоветовал Игорь макрорекордером - получите макрос.
 
макрос умножить_жёлтые  
назначить непустые_ячейки_с_цифрами = выбратьячейки(специальныеячейки,во_всём_листе,значение_как_цифра)  
для ячейка в непустые_ячейки_с_цифрами    
если ячейка.формат.цвет = "жёлтый" то  
ячейка.значение = ячейка.значение * 1.05  
конец если  
следующая ячейка  
конец макрос  
 
переведите на английский и будет вам sub
 
Sub multiplicate_yellow()  
 
Set not_empty_cells_with_numbers = _  
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)  
For Each cell In not_empty_cells_with_numbers  
If cell.Interior.ColorIndex = 6 Then  
cell.Value = cell.Value + 1  
End If  
Next cell  
 
End Sub
 
И это Яна забыла подписаться?  
С языком - Отл., а математика..., или просто не обратили внимания?  
 
Работает действительно только по желтеньким!!!  
 
Sub multiplicate_yellow()  
Dim x As Single  
Dim not_empty_cells_with_numbers As Range, cell As Range  
 
'От себя добавил-бы  
x = InputBox("Введите процент наценки", , 1)  
x = 1 + x / 100  
Set not_empty_cells_with_numbers = _  
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)  
For Each cell In not_empty_cells_with_numbers  
If cell.Interior.ColorIndex = 6 Then  
cell.Value = cell.Value * x  
End If  
Next cell  
 
End Sub
 
Ай да Дед (DL) - как ненавязчиво мозгами заставляет шевелить!!!  
И Вам - Игорь - спасибо!  
PS Когда с настроением - все получается.
Страницы: 1
Наверх