excel中使用vba將美元轉(zhuǎn)換為人民幣

1、首先我們打開一個(gè)樣表作為例子。例子中的數(shù)值單位全是人民幣，我們將其轉(zhuǎn)換為美元單位。

2、我們按下ALT+ F11組合快捷鍵進(jìn)入vbe編輯其，插入一個(gè)新模塊，并在代碼編輯器中寫下如下代碼：

Option Explicit

Sub tousd()

Dim i As Integer

Dim c As Integer

For i = 6 To 17

c = Cells(i, 13).Value / 6

Cells(i, 13) = c

Next

End Sub

3、我們來閱讀一下這段代碼，首先是變量聲明，建立過程，然后聲明了2個(gè)變量i和c，其中i變量用來循環(huán)，c變量用來儲(chǔ)存單元格原值并計(jì)算。

4、使用for循環(huán)，將i值循環(huán)賦予6to17，每次都將13列單元格值計(jì)算后寫入原對(duì)應(yīng)單元格中，使用的公式為人民幣與美元的匯率6:1。

5、在活動(dòng)列表中使用這個(gè)宏，可以看到實(shí)發(fā)工資變?yōu)榱嗣涝獑挝唬遣]有顯示出來，而且這種方法并不完美，如果需要添加數(shù)據(jù)，需要在vbe中修改對(duì)應(yīng)的代碼。

6、我們可以修改一下代碼，新建一個(gè)變量s，并且使用inputbox函數(shù)來給s賦值，然后修改i循環(huán)為6tos。這樣添加數(shù)據(jù)我們也能快速的獲得答案了。

相關(guān)推薦：

Excel2010怎么利用SmartArt功能將數(shù)據(jù)轉(zhuǎn)換成圖形?

excel怎么把漢字轉(zhuǎn)換成拼音?excel實(shí)現(xiàn)漢字拼音轉(zhuǎn)換的教程

Mac中怎么將excel行列轉(zhuǎn)換?Excel2016行列轉(zhuǎn)換的詳細(xì)教程