Для начала - здравствуйте!
У меня вот такой вопрос.
Допустим у нас есть столбец под названием "Платеж". Т.е. поступающие в различной валюте платежи расположены в одном столбце. Для примера - две валюты ($ и Руб). Рядом есть два столбца (Рублевые платежи и долларовые платежи). Надо написать макрос, чтобы платежи из общего списка раскидывались по соответствующим своей валюте и считалась общая сумма платежа в каждой валюте.
Поможете?

А как идентифицируется валюта с столбце "Платеж"? Указание типа валюты должно присутствовать в той же колонке или в соседней. А иначе как понять в какой валюте указана сумма?

Рубли - р.
Доллары - знак $ в конце суммы платежа. И эти суммы расположены друг под другом в разном порядке.

Тогда надо брать строку, определять в ней пробел, первый с конца, отчленять символы признака валюты и анализировать их. А потом разносить согласно этим признакам. Работать со строками умеешь?

Понимаешь, в чем проблема, у меня получилось разогнать платежи в разных валютах по столбцам с помощью автофильтра. То есть пишем макрос, использующий автофильтр и все отлично - получаются два столбца с разной валютой. Но посчитать сумму в таких случаях не удастся, так как данные в ячейках в таком случае текстовые. Путем ПСТР и Значен их можно преобразовать в числовые и просуммировать. У меня так получилось и все прекрасно, за исключением одного, остаются столбцы с этими самыми преобразованиями.
Изначально-то конечно хотелось, чтобы в ячейках с соответствующей валютой был задан денежный формат. Но вот как фильтровать в этом случае - не понимаю.

А что если для расчетов параллельно сделать скрытые столбцы.

Старуха

Цитата(Guest @ 10.11.2004, 12:34)

А что если для расчетов параллельно сделать скрытые столбцы.

Было бы отлично, если бы знать как? Я не знаю, где это установить.

А таблица в какой -то программе (может в xl)?

Цитата

ПСТР и Значен

-Похоже ты в xl.
Формат-Столбец-Скрыть
И еще
=C1&"$" может пригодиться.(к значению в С1 прицепить знак доллара)

А с кодом на VBA не поможете? С помощью автофильтра и промежуточных значений, скрывая столбцы где они расположены - работает, но когда второй раз запускаешь комп надолго задумывается, так что без кода на VBA не обойтись. Не поможете хотя бы примерно с кодом?

Я сделаю сегодня.Может отправить не получится с работы .Тогда вечером из дома отправлю.

Это если на одном листе делать

Код

Private Sub CommandButton1_Click() Dim a As String d = Лист1.UsedRange.Rows.Count For rwIndex = 1 To d '2 - начальная строчка, d - конечная Range("C" & rwIndex).Value = Mid((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text) - 2), 3) 'отсекаем Руб(У тебя так написано) If Range("C" & rwIndex).Value = "Руб" Then 'если ячейка в D равна Руб Range("D" & rwIndex).Value = Left((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text) - 2) - 1) 'будет число Range("E" & rwIndex).Value = 0 'будет ноль Else 'если ячейка в D не равна Руб Range("E" & rwIndex).Value = Left((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text)) - 1) Range("D" & rwIndex).Value = 0 End If Next End Sub

Запрос на выборку.Исполняется впервые.
Вобщем этот код рааскидывает по листам

Код

Private Sub CommandButton1_Click() Лист2.Columns("A:B").ClearContents 'Очищаем листы Лист3.Columns("A:C").ClearContents d = Лист1.UsedRange.Rows.Count For rwIndex = 1 To d Range("D" & rwIndex).Value = Mid((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text) - 2), 3) 'Отсекаем руб If Range("D" & rwIndex).Value = "Руб" Then Range("B" & rwIndex).Value = Left((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text) - 2) - 1) Range("C" & rwIndex).Value = 0 Лист2.Range("A2", "B2").Value = Range("A" & rwIndex, "B" & rwIndex).Value Лист2.Rows("2").Insert Shift:=xlDown Else Range("C" & rwIndex).Value = Left((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text)) - 1) Range("B" & rwIndex).Value = 0 Лист3.Range("A2", "C2").Value = Range("A" & rwIndex, "C" & rwIndex).Value Лист3.Rows("2").Insert Shift:=xlDown End If Next   Лист3.Columns("B").Delete Shift:=xlToLeft 'Удаляем столбец 'Лист3.Columns("B").Hidden = True 'Так потом скроешь столбцы End Sub

Огромное спасибо!! . Все работает отлично. Эх, жаль что нельзя поднять репутацию. Значит еще раз спасибо)

Это сообщение отредактировал(а) Mrak - 14.11.2004, 12:34