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 = MySheet.Cells(j, 1)
ActVout = (Rup + Rdw) * (fVref / Rdw)
Accuracy = Abs((ActVout - fVout) / fVout)
If Accuracy < fAccur Then
MySheet.Cells(k, 6) = ActVout
MySheet.Cells(k, 6).NumberFormatLocal = “0.00”
MySheet.Cells(k, 7) = Accuracy
MySheet.Cells(k, 7).NumberFormatLocal = “0.00%”
MySheet.Cells(k, 8) = Rup
MySheet.Cells(k, 9) = Rdw
k = k + 1
End If
Next
Next
End Sub