vba數字計算(VBA貨幣換算計算器)
2023-04-17 08:31:12
【分享成果,隨喜正能量】人生最難得「心安」二字。所謂「心安」,就是心裡沒有後悔的事、沒有虧心的事、沒有想不開的事,不為名所累,不為利所役,清清白白做人,乾乾淨淨做事。如果患得患失,心浮氣躁,人生就會疲憊不堪、了無生氣。唯有保持一顆寧靜的心,不眼熱權勢,不豔羨富貴,活得純粹、活得自然,才能求得一個心安。
《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
【分享成果,隨喜正能量】人生無常,心安便是歸處。人生的道路上,有選擇,有放棄,有挫折,有擔當,有成功,有失敗。時間過濾了記憶中的那些傷痛與不悅,也沉澱了喜樂與瘋狂。而這些曾經的美好回憶,伴隨著我一路走來,經歷了人生的風風雨雨。
,