[已解决]谢谢Zipall 老师。提取利率。

lhj323323

老师：
我在上传的附件中有详细的说明，与以前遇到的索引导入数据有根本的不同。请教如何写程序，谢谢了。

最佳答案

月排行榜 / 总排行榜

Zipall

2011-5-17 14:57

lhj323323 发表于 2011-5-17 14:23
回复 Zipall 的帖子

一定要用，因为这只是整个程序中的一小部分，

vba中也可以使用工作表函数
Private Sub CommandButton1_Click()
    With Sheets("报价")
        For r = 2 To .[d65536].End(xlUp).Row
            If .Cells(r, 4) < Sheets("利率").[b2] Then
                .Cells(r, 8) = "无记录"
                Else
                .Cells(r, 8) = Application.WorksheetFunction.VLookup(.Cells(r, 4), Sheets("利率").[b2:c7], 2, 1)
            End If
        Next
    End With
End Sub

跳转到最佳答案楼层

Zipall

一定要vba吗?用公式就很方便

=IF(D2<利率!$B$2,"无记录",VLOOKUP(D2,利率!B:C,2))

lhj323323

回复 Zipall 的帖子

一定要用，因为这只是整个程序中的一小部分，

Zipall

lhj323323 发表于 2011-5-17 14:23
回复 Zipall 的帖子

一定要用，因为这只是整个程序中的一小部分，

vba中也可以使用工作表函数
Private Sub CommandButton1_Click()
    With Sheets("报价")
        For r = 2 To .[d65536].End(xlUp).Row
            If .Cells(r, 4) < Sheets("利率").[b2] Then
                .Cells(r, 8) = "无记录"
                Else
                .Cells(r, 8) = Application.WorksheetFunction.VLookup(.Cells(r, 4), Sheets("利率").[b2:c7], 2, 1)
            End If
        Next
    End With
End Sub