開啟分步閱讀模式
步驟/方法
01
首先,我要知道商品的單價是12.5,在D1單元格輸入商品單價,在D2單元格輸入12.5
02
接著我們打開vb界面,在常用工具欄上執行:開發工具--visual basic。
03
打開vb以後,我們要先建立壹個模塊,如圖所示,在菜單欄上執行:插入--模塊,這樣就直接插入並打開了壹個模塊。
04
在打開的模塊中,我們輸入如下的代碼:
Const Price As Single = 12.5
Sub 計算銷售額()
Dim sh As Worksheet
Set sh = Worksheets("sheet1")
Dim n As Integer
n = 2
Do
sh.Cells(n, 3) = sh.Cells(n, 2) * Price
n = n + 1
Loop Until sh.Cells(n, 2) = ""
End Sub
05
保存模塊:在菜單欄上執行文件--保存,或者按下快捷鍵ctrl+s
06
接著按下F5,快速執行宏,在打開的宏對話框中,找到我們編輯的這個宏,計算銷售額,然後點擊運行
這就是經過計算得到的銷售額了: