Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / HTML, JavaScript, VBScript, CSS Новый топик    Ответить
 [VBS] требуется в HTML формулы переделать  [new]
bearka
Member

Откуда:
Сообщений: 19
Доброго времени суток всем!
Исходное: есть html файл (периодический отчет), отдельные значения на которой требуется разово редактировать.

открываю в Excel, изменяю формулами, но не получается вставить обновленные данные на старое место - много объединенных ячеек и т.п. (плюс не смог сохранить без изменений внешний вид, типо пустой ячейки..)

формулы
для столбца "С":
=ЕСЛИ(A1="Итого";ОКРУГЛ(C1*118/100;4);(ЕСЛИ(C1>0;C1;Т(" "))))
для столбца "D":
=ЕСЛИ(D1>0;(ЕСЛИ(ИЛИ(C1="Всего получено";C1="Итого:";C1="Периодические услуги");ОКРУГЛ((D1*118/100);4);ЕСЛИ(A1="Абонентская плата";ОКРУГЛ(D1*118/100;4);D1)));Т(" "))

Вопрос:
возможно ли написать макрос, который бы делал поиск по столбцам (данные расположены по столбцам, формулы приведены для первой строки) и производил указанное изменение?
1. построчный поиск по столбцу А ячеек с текстом "Итого" и увеличения значения на 18% в ячейках столбца С, в той же строке
2. построчный поиск по столбцу С ячейки с тестом "Всего получено" или "Периодические услуги" или "Абонентская плата" и увеличения значения на 18% в ячейках столбца D, в той же строке

Если да, то прошу его написать.

ps сам нуб (( если с формулами еще мудрить могу, то азы программирования остались в далеком детстве =)
19 июн 10, 13:59    [8967969]     Ответить | Цитировать Сообщить модератору
 Re: [VBA Excel] требуется помошь формулы переделать в макрос  [new]
Hugo121
Member

Откуда: Рига
Сообщений: 1549
bearka, а прямо в html изменить не лучше ли? Вам же потом надо результат опять назад вставить?
Открываете скриптом vbs как текст, анализируете строки и подменяете значения, сохраняете новый html. Правда это уже не совсем по профилю раздела, но можно это и в VBA Экселя сделать.
20 июн 10, 00:03    [8969026]     Ответить | Цитировать Сообщить модератору
 Re: [VBA Excel] требуется помошь формулы переделать в макрос  [new]
bearka
Member

Откуда:
Сообщений: 19
Просто как увеличивать значение на 18% автоматически в неЕкселе, как-то представляю с трудом.
Хотя да, думал, что в txt править проще.

по первому условию строки в txt имеют вид:
<td style="font-weight: bold; font-size: 11pt; text-align: left; width: 87.75%;">Итого </td>
<td style="font-weight: bold; font-size: 11pt; text-align: right; width: 14.25%;">384,1741</td>

по второму
<td class="WithUpLine" style="text-align:left; padding-left:5mm">Итого:</td>
<td class="WithUpLine" style="text-align:right; padding-right:1mm;">503,7709</td>
или
<td style="text-align:left;">Периодические услуги</td>
<td class="WithLRspaces" style="text-align:right;">358,7506</td>
или
<td style="text-align: left;">Всего получено</td>
<td style="text-align: center;">01.05.2010 - 31.05.2010</td>
<td style="text-align: right;">358,7506</td>

2 модераторы: просьба наверное перенести тему в раздел с соответствующей тематикой (VB или VBScript) т.к. оптимальное решение вопроса все таки связано с обработкой txt скриптом.
20 июн 10, 04:28    [8969159]     Ответить | Цитировать Сообщить модератору
 Re: [VBA Excel] требуется помошь формулы переделать в макрос  [new]
bearka
Member

Откуда:
Сообщений: 19
пока курю поиск по форуму
20 июн 10, 04:31    [8969160]     Ответить | Цитировать Сообщить модератору
 Re: [VBA Excel] требуется помошь формулы переделать в макрос  [new]
bearka
Member

Откуда:
Сообщений: 19
чет ничего подобного не нашел (

дополнительно:
каждое значение повторяется 60 раз, а вот "Всего получено" может быть от 60 и до много...
20 июн 10, 07:54    [8969166]     Ответить | Цитировать Сообщить модератору
 Re: [VBA Excel] требуется помошь формулы переделать в макрос  [new]
bearka
Member

Откуда:
Сообщений: 19
по первому условию
<td style="font-weight: bold; font-size: 11pt; text-align: right; width: 14.25%;">384,1741</td>
начало строки уникально (до значения), изменяется только значение само (384,1741)

по второму условию - аналогично
<td class="WithUpLine" style="text-align:right; padding-right:1mm;">

но следующие ("Периодические услуги" и "Всего получено") не уникальны
20 июн 10, 09:19    [8969194]     Ответить | Цитировать Сообщить модератору
 Re: [VBA Excel] требуется помошь формулы переделать в макрос  [new]
big-duke
Member

Откуда:
Сообщений: 6639
bearka
2 модераторы: просьба наверное перенести тему в раздел с соответствующей тематикой (VB или VBScript) т.к. оптимальное решение вопроса все таки связано с обработкой txt скриптом.
Ok. И я вам название топика переделал.
Модератор: Тема перенесена из форума "Microsoft Office".
20 июн 10, 10:47    [8969239]     Ответить | Цитировать Сообщить модератору
 Re: [VBS] требуется в HTML формулы переделать  [new]
bearka
Member

Откуда:
Сообщений: 19
big-duke спасибо.
Поиск и замена значение в html файле больше подойдет )
а то начали с экселя, а пришли к скриптовой обработке содержимого этого файла в txt
20 июн 10, 11:45    [8969313]     Ответить | Цитировать Сообщить модератору
 Re: [VBS] требуется в HTML формулы переделать  [new]
bearka
Member

Откуда:
Сообщений: 19
вот почти живой пример отчета http://slil.ru/29364220
наглядно - требуется увеличивать на 18% следующие показатели:
-в "Сводная страница счета" ( в начале):
-- Периодические услуги
-- НДС
-- Итого:
- далее по тексту, в "Расходы расчетного периода" у каждого номера
-- Всего получено
-- Итого

т.к. манипуляцию приходится делать постоянно, то хотелось бы ее максимально автоматизировать
20 июн 10, 16:25    [8969748]     Ответить | Цитировать Сообщить модератору
 Re: [VBS] требуется в HTML формулы переделать  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 13059
bearka, так в чем проблемы-то?
20 июн 10, 22:24    [8970638]     Ответить | Цитировать Сообщить модератору
 Re: [VBS] требуется в HTML формулы переделать  [new]
vkle
Member

Откуда: Самара
Сообщений: 13938

bearka
Исходное: есть html файл (периодический отчет)

Так понимаю, html-файл всё же не сам по себе живёт, а чем то создаётся из данных какой то базы. Мож есть смысл заглянуть в те края? Вроде подсунуть изменённые данные или в программу создания отчёта ввести коэффициент.

Posted via ActualForum NNTP Server 1.4

20 июн 10, 22:37    [8970681]     Ответить | Цитировать Сообщить модератору
 Re: [VBS] требуется в HTML формулы переделать  [new]
bearka
Member

Откуда:
Сообщений: 19
vkle
чем то создаётся из данных какой то базы. Мож есть смысл заглянуть в те края

это вне моей досягаемости -(
krvsa
так в чем проблемы-то?

Прошу помочь - написать скрипт для обработки файла.
21 июн 10, 01:43    [8971001]     Ответить | Цитировать Сообщить модератору
 Re: [VBS] требуется в HTML формулы переделать  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 13059
bearka
Прошу помочь - написать скрипт для обработки файла.

Давай тестовый пример...
21 июн 10, 08:11    [8971167]     Ответить | Цитировать Сообщить модератору
 Re: [VBS] требуется в HTML формулы переделать  [new]
bearka
Member

Откуда:
Сообщений: 19
вопрос снят с повестки т.к. скрипт мне сделали.

всем откликнувшимся спасибо

тему можно OFF
21 июн 10, 13:21    [8972946]     Ответить | Цитировать Сообщить модератору
Все форумы / HTML, JavaScript, VBScript, CSS Ответить