Excel中使用vba函數(shù)制作余弦計(jì)算器的操作技巧
excel中使用vba制作余弦計(jì)算器的方法,具體該怎么去操作的呢?今天,學(xué)習(xí)啦小編就教大家在Excel中使用vba函數(shù)制作余弦計(jì)算器的操作技巧。
Excel中使用vba函數(shù)制作余弦計(jì)算器的操作步驟如下:
首先我們打開(kāi)一個(gè)工作樣表作為例子。
使用alt+f11組合快捷鍵進(jìn)入vbe編輯器,插入一個(gè)新的模塊,并在模塊中輸入以下代碼:
Option Explicit
Sub qiuyuxuan()
Dim jiaodu As Integer
Dim yuxuan As Integer
jiaodu = InputBox("請(qǐng)輸入角度值", "余弦計(jì)算器")
yuxuan = Cos(Application.WorksheetFunction.Radians(jiaodu))
MsgBox ("余弦值為:" & yuxuan)
End Sub
我們需要先聲明jiaodu和yuxuan兩個(gè)變量為整數(shù)型,這里數(shù)據(jù)類(lèi)型不能錯(cuò),如果錯(cuò)了不能得到正確的結(jié)果。
其中jiaodu變量我們需要使用inputbox函數(shù)來(lái)獲取,也就是需要手動(dòng)輸入這個(gè)數(shù)值來(lái)進(jìn)行運(yùn)算。我還添加了提示語(yǔ),并將面板作了一個(gè)標(biāo)題。
這里是余弦的運(yùn)算公式,因?yàn)閏os()函數(shù)使用的是弧度,所以我們需要將角度轉(zhuǎn)換為弧度,而radians函數(shù)是excel函數(shù)而不是vba函數(shù),所以我們需要調(diào)用工作表函數(shù)來(lái)寫(xiě)這段代碼。
最后使用msgbox來(lái)輸出結(jié)果,當(dāng)然我們還可以將結(jié)果寫(xiě)進(jìn)excel表格中,這里可以寫(xiě)下這段代碼,同時(shí)顯示msgbox和表格結(jié)果。
Excel中使用vba函數(shù)制作余弦計(jì)算器的操作相關(guān)文章: