excel中使用vba將美元轉換為人民幣

1、首先我們打開一個樣表作為例子。例子中的數值單位全是人民幣，我們將其轉換為美元單位。

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

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個變量i和c，其中i變量用來循環，c變量用來儲存單元格原值并計算。

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

5、在活動列表中使用這個宏，可以看到實發工資變為了美元單位，但是并沒有顯示出來，而且這種方法并不完美，如果需要添加數據，需要在vbe中修改對應的代碼。

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

相關推薦：

Excel2010怎么利用SmartArt功能將數據轉換成圖形?

excel怎么把漢字轉換成拼音?excel實現漢字拼音轉換的教程

Mac中怎么將excel行列轉換?Excel2016行列轉換的詳細教程