生成一段vba代码，做一个Excle 报价器

### 回答1：
好的。以下是一段生成 Excel 报价器的 VBA 代码示例：

Sub CreateQuotation()

' 定义变量
Dim product As String
Dim price As Double
Dim quantity As Integer
Dim total As Double

' 获取用户输入的产品名称、单价和数量
product = InputBox("请输入产品名称：")
price = InputBox("请输入单价：")
quantity = InputBox("请输入数量：")

' 计算总价
total = price * quantity

' 在工作表中插入新行并填写产品名称、单价、数量和总价
With ActiveSheet
    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).EntireRow.Insert
    .Cells(.Rows.Count, 1).End(xlUp).Value = product
    .Cells(.Rows.Count, 2).End(xlUp).Value = price
    .Cells(.Rows.Count, 3).End(xlUp).Value = quantity
    .Cells(.Rows.Count, 4).End(xlUp).Value = total
End With

End Sub

这段代码实现了以下功能：

1. 获取用户输入的产品名称、单价和数量。
2. 计算总价。
3. 在工作表中插入新行并填写产品名称、单价、数量和总价。

如果你想要在生成报价单时自动计算总价，你还可以添加一个按钮，点击按钮时调用上面的代码，实现自动生成报价单的功能。

希望这些内容对你有帮助。

### 回答2：
生成一个VBA代码，可以做一个Excel报价器。

Sub 报价器()

Dim 最终价格 As Double
Dim 定价表 As Range
Dim 产品列表 As Range
Dim 产品名称 As String
Dim 数量 As Integer

' 设置定价表范围，将定价表中的产品和价格输入到产品列表中
Set 定价表 = Sheets("定价表").Range("A2:B10")
Set 产品列表 = Sheets("报价表").Range("A2:C10")

' 清空报价表中的内容
Sheets("报价表").Range("A2:C10").ClearContents

' 输入产品名称和数量
产品名称 = InputBox("请输入产品名称:")
数量 = InputBox("请输入数量:")

' 在产品列表中查找对应产品的价格
For Each cell In 定价表.Columns(1).Cells
If cell.Value = 产品名称 Then
' 计算最终价格
最终价格 = cell.Offset(0, 1).Value * 数量
End If
Next cell

' 在报价表中插入产品名称、数量和价格
With 产品列表
.Find("", LookIn:=xlValues).Offset(0, 0).Value = 产品名称
.Find("", LookIn:=xlValues).Offset(0, 1).Value = 数量
.Find("", LookIn:=xlValues).Offset(0, 2).Value = 最终价格
End With

' 显示报价表
Sheets("报价表").Activate

End Sub

以上代码可实现以下功能：

1. 首先设置定价表的范围，将定价表中的产品和价格输入到产品列表中。

2. 清空报价表中的内容。

3. 弹出输入框，要求输入产品名称和数量。

4. 在产品列表中查找对应产品的价格。

5. 计算最终价格。

6. 在报价表中插入产品名称、数量和价格。

7. 显示报价表。

使用这段代码，你可以创建一个报价器，根据产品的名称和数量自动计算出最终的报价，并将结果显示在报价表中。

### 回答3：
下面是一个可以生成Excel报价单的VBA代码示例：

Sub 生成报价单()
Dim 报价单 As Workbook
Dim 报价表 As Worksheet
Dim i As Integer

'创建新的报价单
Set 报价单 = Workbooks.Add
Set 报价表 = 报价单.Worksheets(1)

'输入报价单标题
报价表.Range("A1").Value = "产品报价单"

'输入表头
报价表.Range("A3").Value = "产品名称"
报价表.Range("B3").Value = "价格"

'输入产品信息
For i = 1 To 5
'产品名称在第一个列
报价表.Cells(i + 3, 1).Value = InputBox("请输入产品名称")
'价格在第二个列
报价表.Cells(i + 3, 2).Value = InputBox("请输入产品价格")
Next i

'自动调整列宽
报价表.Columns.AutoFit

'保存报价单
报价单.SaveAs "C:\报价单.xlsx"

'关闭报价单
报价单.Close

'释放对象
Set 报价表 = Nothing
Set 报价单 = Nothing

MsgBox "报价单已生成并保存在C:\报价单.xlsx"
End Sub

通过上述VBA代码，我们创建了一个新的Excel报价单，其中包含了产品名称和价格两列。然后，通过一个For循环，循环5次，每次输入产品名称和价格。最后，自动调整列宽，并将报价单保存到指定路径。在代码结束后，弹出一个消息框，显示报价单已生成并保存的信息。