请高手支招！！！

ccschina

我在用DO UNTIL语句时发现只打到第一条记录就退出特循还了，为什么？？？

ccschina

这个程序有的记录只找一条，有的记录可找多条，但一般都不能找全，为什么？


Sub Outputtext()

Dim i As Integer
    Dim b As Long
    i = 6
    b = 2
    Sheets("数据").Select
   
        Do Until ActiveSheet.Cells(b, 3) = ""
        If Sheets("数据").Cells(b, 3) = Range("chbm").Value And Sheets("数据").Cells(b, 9) = Range("ckmc").Value And Sheets("数据").Cells(b, 1) >= Range("sdate").Value And Sheets("数据").Cells(b, 1) <= Range("edate").Value Then
        
            
            
            
            Sheets("查询").Select
             ActiveSheet.Cells(i, 1) = Sheets("数据").Cells(b, 1)
              ActiveSheet.Cells(i, 2) = Sheets("数据").Cells(b, 2)
              ActiveSheet.Cells(i, 3) = Sheets("数据").Cells(b, 9)
              ActiveSheet.Cells(i, 4) = Sheets("数据").Cells(b, 8)
              ActiveSheet.Cells(i, 5) = Sheets("数据").Cells(b, 9)
              ActiveSheet.Cells(i, 6) = Sheets("数据").Cells(b, 10)
              ActiveSheet.Cells(i, 7) = Sheets("数据").Cells(b, 8)
              ActiveSheet.Cells(i, 8) = Sheets("数据").Cells(b, 12)
            i = i + 1
            
        End If
        b = b + 1
        Loop
   
        
   Sheets("查询").Select

End Sub

AQiu2011

请教高手两点：
一、如何求“本次交易余款”
二、当选择现金转建行，如何把现金减去本次金额，建行加上本次金额

不管能不能帮忙，我都谢谢大家
菜鸟望高手们把函数直接写到表单里说。传给我chuangfu_qjh@qq.com QQ :277149312

youen2008

If Sheets("数据").Cells(b, 3) = Range("chbm").Value And Sheets("数据").Cells(b, 9) = Range("ckmc").Value 中里面的"chbm"和"ckmc" 代表什么意思。看不懂，请高手请点，

ccschina

哦,那个我都不记得是哪个里面的了,现在忘记的差不多了