Как в excel-е автоматом изменить содержимое ячеек ?

31.01.13

✎

16:02

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

1 GROOVY

31.01.13

✎

16:04

макрос напиши.

2 palpetrovich

31.01.13

✎

16:07

(1) не умею :(

3 Жан Пердежон

31.01.13

✎

16:08

1. берешь автомат
2. находишь GROOVY
3. ...
4. profit!

4 palpetrovich

31.01.13

✎

16:11

(3) :)

5 Ayvengo

31.01.13

✎

16:12

http://infostart.ru/public/57401/
http://www.sky1c.ru/node/88

6 Ayvengo

31.01.13

✎

16:13

(0) или ты это в экселе делать хочешь?

7 palpetrovich

31.01.13

✎

16:23

(6) ну да, хотелось-бы

8 mikecool

31.01.13

✎

16:26

а без макроса формулой можно? прям в этой же ячейке
или в рекурсию уйдет?

9 StanLee

31.01.13

✎

16:29

http://yandex.ru/yandsearch?text=vba+перебор+ячеек

10 palpetrovich

31.01.13

✎

16:29

(8) даже боюсь об этом думать :)

11 palpetrovich

31.01.13

✎

16:57

(9) спасибо, почитаю

12 palpetrovich

31.01.13

✎

17:34

короче напрямую не смог, пришлось из 1с:

Процедура КнопкаВыполнитьНажатие(Кнопка)

Попытка
Excel = новый COMОбъект("Excel.Application");
Книга = Excel.Workbooks.Open(ИмяФайла);
Исключение
Возврат;
КонецПопытки;

ПроцПроц = 1 + Процент/100;
Лист = Книга.Worksheets(НомерЛиста).UsedRange;
Для Стр = НачСтрока По КонСтрока Цикл
ОбработкаПрерыванияПользователя();
Для Кол = НачСтолбец По КонСтолбец Цикл
Попытка
Лист.Cells(Стр, Кол).Value = Лист.Cells(Стр, Кол).Value * ПроцПроц;
Исключение КонецПопытки;
КонецЦикла;
состояние("Строка: " + Стр);
КонецЦикла;
Excel.WorkBooks.Close();
Excel = "";

КонецПроцедуры

:)

13 Wobland

31.01.13

✎

17:35

for i=1 to 200
Cells(i, 1).Value=0.2*Cells(i, 1).Value
next i

14 palpetrovich

31.01.13

✎

17:40

(13) это макрос? ...а после исполнения его можно удалить из листа?

15 Утконос

31.01.13