求助有关excel vba

2011-05-24 12:42:41 136 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

手把手教你用RK3568开发板实现FPGA与Linux的DMA通信（含完整代码解析）本文详细介绍了如何在RK3568开发板上实现FPGA与Linux系统的DMA通信，包括硬件配置、软件环境搭建、DMA通信原理、驱动开发及性能优化。通过完整的代码解析和实战案例，帮助开发者快速掌握异构系统间的高效数据传输技术，适用于物联网和边缘计算等场景。阅读详情

Private Sub CommandButton1_Click()
Dim iFind As Range
Dim a As Integer '工作表的数目
Dim b As Double '暂存元件数量差值= 库存量 - 需求量
For a = 2 To Worksheets.Count Step 1
i = 5
Set BranchName = Worksheets(1).Range("A:A") '查询
Do While Worksheets(a).Cells(i, 2).Text <> ""
Set iFind = BranchName.Find(Worksheets(a).Cells(i, 2).Text)
If a = 2 Then

If Not iFind Is Nothing Then
TargetRow = iFind.Row
'MsgBox (Worksheets(1).Cells(TargetRow, 10).Value)
Worksheets(a).Cells(i, 8).Value = Worksheets(1).Cells(TargetRow, 10).Value
Else
Worksheets(a).Cells(i, 8).Value = ""
End If
b = Worksheets(1).Cells(TargetRow, 10).Value - Worksheets(a).Cells(i, 9).Value '求差
If b > 0 Then
Worksheets(1).Cells(i, 12).Value = b
Else
Worksheets(1).Cells(i, 12).Value = ""
End If
Else
If Not iFind Is Nothing Then
TargetRow = iFind.Row
'MsgBox (Worksheets(1).Cells(TargetRow, 10).Value)
Worksheets(a).Cells(i, 8).Value = Worksheets(1).Cells(TargetRow, 12).Value
Else
Worksheets(a).Cells(i, 8).Value = ""
End If
b = Worksheets(1).Cells(TargetRow, 12).Value - Worksheets(a).Cells(i, 9).Value '求差
If b > 0 Then
Worksheets(1).Cells(i, 12).Value = b '不能执行？？？？
Else
Worksheets(1).Cells(i, 12).Value = ""
End If

End If
i = i + 1
Loop
Next a
End Sub

其中b = Worksheets(1).Cells(TargetRow, 12).Value - Worksheets(a).Cells(i, 9).Value '求差
If b > 0 Then
Worksheets(1).Cells(i, 12).Value = b '不能执行？？？？
Else
Worksheets(1).Cells(i, 12).Value = ""
End If

他总是跳过Worksheets(1).Cells(i, 12).Value = b ，是不是他不能判断正负值啊？顺便在帮我看看整个程序还有啥问题？
还望多多批评指正

...全文