作业帮 > 综合 > 作业

例如A1=10,B1=3,C2=4.求B2,C2 就是求几个B1加几个C1等于A1问题补充:在B2和C2中写公式 A1是

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/16 10:03:22
例如A1=10,B1=3,C2=4.求B2,C2 就是求几个B1加几个C1等于A1问题补充:在B2和C2中写公式 A1是不固定的
VB怎么写
例如A1=10,B1=3,C2=4.求B2,C2 就是求几个B1加几个C1等于A1问题补充:在B2和C2中写公式 A1是
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k, s
s = IIf(Cells(1, 1) \ Cells(1, 2) > Cells(1, 1) \ Cells(1, 3), Cells(1, 1) \ Cells(1, 2), Cells(1, 1) \ Cells(1, 3))
For i = 1 To s
For j = 1 To s
If Cells(1, 2) * i + Cells(1, 3) * j = Cells(1, 1) Then
Cells(2, 1) = Cells(1, 2) & "*" & i & "+" & Cells(1, 3) & "*" & j & "=" & Cells(1, 1)
Exit Sub
End If
Next
Next
Cells(2, 1) = s & " 个循环内无解"
End Su