задачка с Экселем

222

Лунный Кот

11 августа 2008, 11:49

976

Имеется лист Excel. В нем содержится разнообразная информация, в том числе ячейки с денежным форматом. Необходимо значения всех этих ячеек умножить на определенное число. Они расположены в произвольном порядке, не в столбик.

Как-нибудь можно сделать автоматически? Именно сами значения ячеек, без создания дополнительных связанных ячеек.

Вы мне свои достижения жизненные продемонстируйте, пожалуйста, я, возможно, возьму свои слова обратно и извинюсь прилюдно. Только думается мне, что вы банальный лась. (с) Mirson

255

malls

11 августа 2008, 11:54

#1

Если ячейки расположены в свободном порядке - то можно! Но только макросом, который "вычленит" ячейки с определенным форматированием и изменит их содержимое как нужно...

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

Практическое приложение такой задачи - "накрутить" для себя маржу с чужой работы... Т.е. получив от субподрядчика смету, "накрутить" ее перед отсылкой заказчику. Этим занимаетесь?

Google облегчил форматирование фидов Прямые заходы ботов на Упал доход

222

Лунный Кот

11 августа 2008, 11:56

#2

malls, именно этим, но не я, а мой клиент :)

255

malls

11 августа 2008, 11:58

#3

Лунный Кот:
malls, именно этим, но не я, а мой клиент :)

Можно не оправдываться 😂 - это обычный бизнес...

ЗЫ: Имхо можно еще наверное (при слабом знании VB) конвертнуть в HTML/TEXT (знаки долларов/рублей должны остаться), а потом просто PHP-ником примитивным по регулярным выражениям переколбасить во что угодно...

47

FribbulusXax

11 августа 2008, 12:07

#4

Условным форматированием не пробовали? Или там не предусмотрены такие исправления?

upd:

Пардон, эту функцию использовать не получится.

Libertad tu eres mi cuerpo!

222

Лунный Кот

11 августа 2008, 12:08

#5

эх... опять ничего дельного не советуют :(

47

FribbulusXax

11 августа 2008, 12:22

#6

Вот макрос для умножения, собственно:

Dim x, cc As Range

x = InputBox("Введите число, на которое надо умножить выделенный диапазон")

If IsNumeric(x) Then

For Each cc In Selection.SpecialCells(xlCellTypeConstants, xlNumbers) 'или вместо Selection - range("D8:J129")

cc = Round(cc * x)

А вот как отобрать только ячейки с денежным форматом..😕

255

malls

11 августа 2008, 12:23

#7

Лунный Кот:
эх... опять ничего дельного не советуют :(

А чего ты ждал? Без кодинга не получится... Сл-но нужно просто определить на чем кодить, я два варианта предложил - мало?

FribbulusXax:
А вот как отобрать только ячейки с денежным форматом..😕

нужно искать что-то типа NumberFormat и соответствие #,##0.00$

[Удален]

11 августа 2008, 23:20

#8

В Экселе есть готовые формулы. Только я не в курсе, какие именно. Но если поштудировать справочники, нарыть можно.

Вышел новый Яндекс Браузер с YandexGPT и YandexART

Переиграть и победить: как анализировать конкурентов для продвижения сайта