/ / VBA의 환율 계산기

Excel VBA의 환율 계산기

아래에서 우리는 Excel VBA 이는 사용자 폼을 생성합니다. 개종자 하나의 금액 통화 다른 것으로.

우리가 생성 할 Userform은 다음과 같습니다.

Excel VBA의 환율 계산기

이 사용자 정의 폼을 만들려면 다음 단계를 수행하십시오.

1. Visual Basic Editor를 엽니 다. 프로젝트 탐색기가 보이지 않으면보기, 프로젝트 탐색기를 클릭하십시오.

2. Insert, Userform을 클릭하십시오. 도구 상자가 자동으로 나타나지 않으면보기, 도구 상자를 클릭하십시오. 화면은 다음과 같이 설정해야합니다.

Excel VBA의 사용자 폼 화면 설정

삼. 레이블, 목록 상자 (첫 번째는 왼쪽, 두 번째는 오른쪽), 텍스트 상자 (첫 번째는 왼쪽, 두 번째는 오른쪽) 및 명령 단추를 추가하십시오. 이 작업이 완료되면 이전에 표시된 Userform 그림과 일치해야합니다. 예를 들어 도구 상자에서 ListBox를 클릭하여 목록 상자 컨트롤을 만듭니다. 다음으로, 사용자 정의 폼의 목록 상자를 끌 수 있습니다.

4. 컨트롤의 이름과 캡션을 변경할 수 있습니다. 이름은 Excel VBA 코드에서 사용됩니다. 자막은 화면에 나타나는 자막입니다. 컨트롤의 이름을 변경하는 것이 좋지만이 예제에는 컨트롤이 몇 개 있기 때문에 여기서는 필요하지 않습니다. 사용자 정의 폼, 명령 단추 및 레이블 캡션을 변경하려면보기, 속성 창을 클릭하고 각 컨트롤을 클릭하십시오.

5. 사용자 정의 폼을 표시하려면 워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가하십시오.

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

이제 Sub UserForm_Initialize를 만들겠습니다. 사용자 정의 폼에 Show 메서드를 사용하면이 하위가 자동으로 실행됩니다.

6. Visual Basic Editor를 엽니 다.

7. 프로젝트 탐색기에서 UserForm1을 마우스 오른쪽 단추로 누른 다음 코드보기를 누릅니다.

8. 왼쪽 드롭 다운 목록에서 사용자 양식을 선택하십시오. 오른쪽 드롭 다운 목록에서 초기화를 선택하십시오.

9. 다음 코드 행을 추가하십시오.

Private Sub UserForm_Initialize()

With ListBox1
    .AddItem "Euro"
    .AddItem "Us Dollar"
    .AddItem "British Pound"
End With

With ListBox2
    .AddItem "Euro"
    .AddItem "Us Dollar"
    .AddItem "British Pound"
End With

ListBox1.ListIndex = 1
ListBox2.ListIndex = 0

TextBox1.Value = 1
TextBox2.Value = 0.722152

End Sub

설명 : 먼저 두 개의 목록 상자가 채워집니다. 그런 다음 첫 번째 목록 상자에서 미국 달러 통화가 기본값으로 설정되고 EURO 통화가 두 번째 목록 상자에서 기본값으로 설정됩니다. 마지막으로 값 1은 첫 번째 텍스트 상자에 입력되고 값 0.722152는 두 번째 텍스트 상자에 입력됩니다.

우리는 이제 Userform의 첫 번째 부분을 만들었습니다. 이미 깔끔하게 보이지만 Go 버튼을 클릭하면 아무 것도 나타나지 않습니다.

10. 프로젝트 탐색기에서 UserForm1을 두 번 누릅니다.

11. 이동 버튼을 두 번 클릭하십시오.

12. 다음 코드 행을 추가하십시오.

Private Sub CommandButton1_Click()

Dim rates(0 To 2, 0 To 2) As Double, i As Integer, j As Integer

rates(0, 0) = 1
rates(0, 1) = 1.38475
rates(0, 2) = 0.87452

rates(1, 0) = 0.722152
rates(1, 1) = 1
rates(1, 2) = 0.63161

rates(2, 0) = 1.143484
rates(2, 1) = 1.583255
rates(2, 2) = 1

For i = 0 To 2
    For j = 0 To 2
        If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * rates(i, j)
    Next j
Next i

End Sub

설명 : 먼저 배열을 선언합니다. 배열에는 두 가지 차원이 있습니다. 3 행 3 열로 구성됩니다. 다음으로 배열의 각 요소를 초기화합니다. 예를 들어 환율 (1,0)은 미국 달러에서 유로까지의 환율입니다. 다음으로 우리는 이중 루프를 시작합니다. 목록 상자에서 선택한 통화에 따라 Excel VBA는 첫 번째 텍스트 상자에 입력 된 금액을 변환하고 두 번째 텍스트 상자에 결과를 표시합니다.

예 : i = 2 및 j = 1이고 첫 번째 텍스트 상자에 값 2를 입력하면 Excel VBA는 두 번째 텍스트 상자에 2 * rates (2,1) = 2 * 1.583255 = 3.16651 값을 배치합니다.

13. 사용자 정의 폼을 테스트하십시오.

결과:

환율 계산기 결과

또한 읽으십시오 :