sub main()
if cells(1,"A").value="中國" then cells(1,"B")="111"
if cells(1,"A").value="美國" then cells(1,"B")="1123"
end sub
以此為例,在Excel中調用VBA程序的操作步驟如下(Excel2007為例):
1.選擇”開發工具“選項卡,點擊”Visual Basic“(或者用快捷鍵Alt+F11)
2.出現VBA編輯界面,註意看左側,選擇需要運行代碼的工作表,此例為Sheet1;雙擊進入Sheet1相關程序編輯界面
3.在程序編輯區域,復制上上述代碼
4.點擊上面的三角號,運行程序
5.關閉VBA界面,返回工作表,就可以看到程序運行結果,如下圖:
6.如果再次運行程序,可以用快捷鍵Alt+F8(或者步驟1中的”宏“),出現如下圖界面,選擇要運行的宏,點擊執行即可。