형식 셀 범위 셀 값에 따라 특정 통화

Question

나는 이것을 달성하기 위해 IF 문과 case 문을 수행하려고 시도했지만 아무 것도 원격으로 성공하지 못했습니다.

기본적으로 나는 각 시트 내에서 통화 형식이어야하는 다른 명명 된 범위가있는 5 개의 탭 통합 문서가 있습니다.

그러나 첫 번째 탭의 셀 값 (예 : CAD, USD, NOK 등)을 기준으로 셀 범위의 통화 형식이 변경되어야합니다.

e.e. 탭 1의 셀 값이 CAD와 같으면 NOK "kr"등의 경우 USD가 여전히 "$"인 경우 탭 2-5의 모든 명명 된 범위는 "$"이어야합니다.

도움이 될 것입니다. 고맙다!

Answer 1

기록 매크로

Selection.NumberFormat = "[$kr-414] #,##0.00" 

당신은 대신 다수의 Case Select 사용을 고려할 수 If의

Answer 2

당신은이 코드를 넣을 수 있습니다 .. 통화 형식 구문을 얻고 즉, 당신의 IF 문에 추가 Tab1의 시트 코드. A1 셀 변경 값은 필요한 시트의 테이블을 트리거합니다.

Option Explicit 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Select Case Range("A1").Value 
     Case "CAD" 
     Worksheets("Sheet2").Range("Table1").NumberFormat = "#,##0.00 [$CAD]" 
     Worksheets("Sheet3").Range("Table2").NumberFormat = "#,##0.00 [$CAD]" 
     Worksheets("Sheet4").Range("Table3").NumberFormat = "#,##0.00 [$CAD]" 
    Case "USD" 
     Worksheets("Sheet2").Range("Table1").NumberFormat = "#,##0.00 [$USD]" 
     Worksheets("Sheet3").Range("Table2").NumberFormat = "#,##0.00 [$USD]" 
     Worksheets("Sheet4").Range("Table3").NumberFormat = "#,##0.00 [$USD]" 
    Case "NOK" 
     Worksheets("Sheet2").Range("Table1").NumberFormat = "#,##0.00 [$NOK]" 
     Worksheets("Sheet3").Range("Table2").NumberFormat = "#,##0.00 [$NOK]" 
     Worksheets("Sheet4").Range("Table3").NumberFormat = "#,##0.00 [$NOK]" 
    End Select 

End Sub