Can I change the formatting of a cell (currency) based on a different cell?

[AbrahamGluck]

Is there any way for the display formatting to be changed automatically dependent on whether ISO code I write?

ALL	Lek
AFN	؋
ARS	$
AWG	ƒ
AUD	$
AZN	₼
BSD	$
BBD	$
BYR	p.
BZD	BZ$
BMD	$
BOB	$b
BAM	KM
BWP	P
BGN	лв
BRL	R$
BND	$
KHR	៛
CAD	$
KYD	$
CLP	$
CNY	¥
COP	$
CRC	₡
HRK	kn
CUP	₱
CZK	Kč
DKK	kr
DOP	RD$
XCD	$
EGP	£
SVC	$
EEK	kr
EUR	€
FKP	£
FJD	$
GEL	₾
GHC	¢
GIP	£
GTQ	Q
GGP	£
GYD	$
HNL	L
HKD	$
HUF	Ft
ISK	kr
INR	₹
IDR	Rp
IRR	﷼
IMP	£
ILS	₪
JMD	J$
JPY	¥
JEP	£
KZT	лв
KPW	₩
KRW	₩
KGS	лв
LAK	₭
LVL	Ls
LBP	£
LRD	$
LTL	Lt
MKD	ден
MYR	RM
MUR	₨
MXN	$
MNT	₮
MZN	MT
NAD	$
NPR	₨
ANG	ƒ
NZD	$
NIO	C$
NGN	₦
NOK	kr
OMR	﷼
PKR	₨
PAB	B/.
PYG	Gs
PEN	S/.
PHP	₱
PLN	zł
QAR	﷼
RON	lei
RUB	₽
SHP	£
SAR	﷼
RSD	Дин.
SCR	₨
SGD	$
SBD	$
SOS	S
ZAR	S
LKR	₨
SEK	kr
CHF	CHF
SRD	$
SYP	£
TWD	NT$
THB	฿
TTD	TT$
TRL	₺
TVD	$
UAH	₴
GBP	£
USD	$
UYU	$U
UZS	лв
VEF	Bs
VND	₫
YER	﷼
ZWD	Z$

<tbody>
</tbody>

 

[HackSlash]

First I would declare all of the formatting rules for each type using:

Range.NumberFormat Property (Excel)
https://msdn.microsoft.com/en-us/library/office/ff196401.aspx

Then I would make a VBA macro that uses a "select case" statement on the cell that defines the format for the range of cells you want to format

Select Case Range("A1").Text[INDENT]Case "ALL"[/INDENT]
[INDENT=2]Worksheets("Sheet1").Columns("C").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
[/INDENT]
[INDENT]...
[/INDENT]
 End Select

Finally,
I would make a trigger that runs this macro whenever the value of the defining cell is changed using a technique like this:

https://support.microsoft.com/en-us/kb/213612

That should be all the tools you need to get there. Good luck!
​