Денежный формат ячейки по условию

[alexsampler]

Добрый день, Друзья!

Excel 2003 SP3
Возник такой вопрос: можно ли задать денежный формат ячейке по условию.
Например: в ячейке В1 стоит 10,50 если в А1 стоит 840 (код доллара США), то ячейка В1 принимает формат $10,50.
Если в А1 стоит 978 (код ЕВРО), то В1 принимает формат
€ 10,50 , ну а если А1 – 810(РУБ), то В1 остается неизменным 10,50
СПАСИБО

[Hugo121]

Макросом по событию изменения кода?

[Михаил С.]

Возможно, если офис не ниже 2007

[alexsampler]

Офис однозначно 2003

[alexsampler]

Сообщение от Hugo121

Макросом по событию изменения кода?

А макрос сложный?
И как он будет работать автоматчески при заполнении соответствующих ячеек или ....?

[Hugo121]

Можно по событию изменения, можно дополнительно по событию активации листа - это если коды массово копипастятся или заносятся кодом.
Если коды меняются вручную по одному - хватит в
Private Sub Worksheet_Change(ByVal Target As Range)
вписать обработку Target.

[alexsampler]

Сообщение от Hugo121

Можно по событию изменения, можно дополнительно по событию активации листа - это если коды массово копипастятся или заносятся кодом.
Если коды меняются вручную по одному - хватит в
Private Sub Worksheet_Change(ByVal Target As Range)
вписать обработку Target.

Ох! с VBA я сильно на «ВЫ» на уровне пользователя, но не создателя…
Помочь кто ни будь может? Пожалуйста…..

[Hugo121]

Кликните ПКМ по ярлыку листа, выберите "Исходный код" или похожее (у меня "View Code") и закопипасьте туда

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    Select Case Target
    Case 840: Target.Offset(, 1).NumberFormat = "[$$-409]#,##0.00"
    Case 978: Target.Offset(, 1).NumberFormat = "[$ˆ-2] #,##0.00"
    Case Else: Target.Offset(, 1).NumberFormat = "#,##0.00$"
    End Select
End Sub

Вместо Target.Offset(, 1) можно было писать [B1], ну да ладно, так менять проще.

[vikttur]

В соседнюю ячейку не хотите? Можно без объединения - только название.