【分享成果，隨喜正能量】人生最難得心安二字。所謂心安，就是心里沒有后悔的事、沒有虧心的事、沒有想不開的事，不為名所累，不為利所役，清清白白做人，干干凈凈做事。如果患得患失，心浮氣躁，人生就會疲憊不堪、了無生氣。唯有保持一顆寧靜的心，不眼熱權勢，不艷羨富貴，活得純粹、活得自然，才能求得一個心安。

《VBA之Excel應用》是非常經典的，是我推出的第七套教程，定位于初級。這套教程從簡單的錄制宏開始講解，一直到窗體的搭建，內容豐富，實例眾多。大家可以非常容易的掌握相關的知識，這套教程共三冊，十七章，都是我們在利用EXCEL工作過程中需要掌握的知識點，希望大家能掌握利用。今日講解的內容是VBA之EXCEL應用的第十七章 用戶窗體（Userform）的實例應用的第6節：VBA貨幣換算計算器

第六節 貨幣換算計算器的制作（一）

我們這講的內容將制作一個貨幣轉換計算器，通過這個計算器可以實現貨幣的自由轉換，我們這講的例子仍是窗體的實際操作，這個操作中我們將數組的應用結合窗體的應用，讓大家更為熟練地應用之前學到的各種知識。

1 貨幣轉換計算器的應用場景

我們總是會講到匯率，特別是在做外貿的時候，匯率的轉換更是經常要做的，對于匯率而言，一個是月初的匯率，往往作為外貿企業的核算基準，在月初人民銀行公布外匯牌價的時候，我們可以把這個牌價最為我們整個月度計算的基準，在整個月度間執行這個匯率，在各個幣種間進行匯率的轉換。如下表：

為美元，人民幣，日元間的相互轉換，這個值是2020年11月19日的值，我們以此為基準，構建一個匯率轉換器，可以得出給出的幣種值間的轉換。對于給出的值，只要給出對應的幣種就可以求出需要得出的幣種換算后的值。

2 實現貨幣轉換計算器的思路分析

為了實現貨幣轉換，我們整理一下過程思路：

1）建立一個窗口，這種窗口中有兩個列表框，代表轉換前的幣種和轉換后的幣種。

2）在窗口中建立兩個文本框，代表轉換前的值和轉換后的值。

3）建立一個命令按鈕來執行上述轉換的操作。

4）在窗體的加載事件中要在兩個列表框中加載各個幣種。

5）在點擊命令按鈕時，要將工作表中的匯率轉換基準值寫入數組，這個數組的寫入要對應匯率間的轉換，然后在計算時，根據用戶在列表框中的選擇來判斷這個基準數值的取值，也就是幣種間匯率的轉換值。

以上就是實現貨幣轉換計算器的思路分析，下面的內容中我們要一步步地實現，大家要在理解的基礎上靈活運用。

3 實現貨幣轉換器的窗體搭建及控件屬性的設置

我們看下面的窗體：

上面的窗體中，我們布局了兩個標簽，兩個列表框，兩個文本框，一個命令按鈕。我們看各個控件的屬性：

這個窗體上的控件其實我們只有三個屬性需要設置:一個是Caption這個屬性是控件在窗體上的顯示值；一個是Font屬性，這個屬性是控件的字體設置，我們采用地是下面截圖的設置：

還有一個屬性是ForeColor屬性，這個屬性是控件字體或顯示值的顏色，我們選的是藍色：如下截圖：

上面的屬性設置完成后，我們就完成了窗體的搭建。

今日內容回向：

1） 窗體的加載事件需要實現哪些工作？

2） 數組的值是如何與窗體加載關聯的？

本講內容參考程序文件：工作簿17.xlsm

【分享成果，隨喜正能量】人生無常，心安便是歸處。人生的道路上，有選擇，有放棄，有挫折，有擔當，有成功，有失敗。時間過濾了記憶中的那些傷痛與不悅，也沉淀了喜樂與瘋狂。而這些曾經的美好回憶，伴隨著我一路走來，經歷了人生的風風雨雨。