Excel分压电阻计算

Excel 对象应用

Excel VBA代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'声明变量
Dim MySheet As Worksheet

Dim i, j, k As Integer

Dim RcountStar, RcountEnd, RcountStep As Integer
Dim fVref, fVout, fAccur As Single

Dim Rup, Rdw As Long
Dim ActVout, Accuracy As Single

'定义
Set MySheet = Worksheets(“分压电阻计算”)
k = 3
RcountStar = 2
RcountEnd = MySheet.Cells(2, 2) + 1
RcountStep = 1
fVref = MySheet.Cells(2, 3)
fVout = MySheet.Cells(2, 4)
fAccur = MySheet.Cells(2, 5)

'计算
For i = RcountStar To RcountEnd Step RcountStep
For j = RcountStar To RcountEnd Step RcountStep
Rup = MySheet.Cells(i, 1)
Rdw = My