Question

关于Excel vba中的代码问题

1、我想在VBA窗体中添加一个“销售金额”的空间，属性是文本框，使其根据销售数量和销售单价来直接得出，而不用我去输入，希望各位能给我下代码，并告知在哪里建立这个代码。
2、我想在Excel里面某个表的某个单元格里通过按钮宏来自动生成“销售评价”这个字段。
3、根据销售人员的销售额实现对人员的业绩评价，比如大于几百就是“良好”，并可以自动输入评价标准，对其的业绩评价也会跟着变。
快答辩了，设计遇到瓶颈，还请各位大虾帮帮忙，如果能够解决，我会追加分的
第一、二个问题已经解决了，第三个问题的销售评价，需要根据汇总的销售金额进行评价（一张表中会有重复的姓名，要求将重复的姓名的销售额进行汇总后在评价，并且销售人员是在不断变化的，可增加可减少可修改）

Answer 1

看了你的问题，觉得你是要做一个统计销售人员的销售统计。

1.打开vba编辑器。建立一个模块，为模块1.复制以下代码到模块1.

Sub test()

Dim quantity As Integer, price As Integer, endline As Integer, i As Integer, pricetotal As Integer

endline = Sheet1.Range("a65536").End(xlUp).Row

For i = 2 To endline

    price = Sheet1.Cells(i, 2).Value

    quantity = Sheet1.Cells(i, 3).Value

    pricetotal = price * quantity

    Sheet1.Cells(i, 4).Value = pricetotal

    If pricetotal > 1000 Then

        Sheet1.Cells(i, 5).Value = "良"

    Else

        Sheet1.Cells(i, 5).Value = "差"

    End If

Next

End Sub

点击运行就生成你想要的结果了。

下面是表格的附图及效果。你可以在这个模块里面进行扩展。

你再加个按钮在表格上就可以一键完成了。

Answer 2

直接把表发过来我给你搞定OK