VB高手指点， 有个启用宏的EXCEL表格，文件如下 在此表格中，我右键，会将此参数发送到此表格的第一页，，只有型号，描述，数量三列内容会发送到第一页上，此代码如下， 现在想将单价里的内容页发送到第一页面，不知道代码该如何改动。请高手指点！

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)    On Error Resume Next        Dim 型号 As String    Dim 描述 As String    Dim 单价 As Currency            Cancel = True        If Target.Column = 1 Then        型号 = Target.Value        描述 = Target.Offset(0, 1).Value        单价 = CCur(Target.Offset(0, 3).Value)    ElseIf Target.Column = 2 Then        型号 = Target.Offset(0, -1).Value        描述 = Target.Value        单价 = CCur(Target.Offset(0, 2).Value)    End If        AddToQutation Me.Name, 型号, 描述, 单价End Sub