ExcelTip.Net留存知识帖 ---【注：附件之前被网盘供应商清空后，现已修复-现已修复-现已修复为本地下载！】
现在位置：首页 > E文精选 > 综合应用 > 细品RibbonX(56)：使用Visual Studio开发Excel商务应用程序(2)

细品RibbonX(56)：使用Visual Studio开发Excel商务应用程序(2)

作者：绿色风 分类： 时间：2022-08-17 浏览：148
楼主
apolloh		 让我们接着上文介绍，继续丰富已开发的应用程序。
下面，让应用程序执行更丰富的计算。例如，可能想计算一定范围内的抵押值，而不是单个值，以便为客户提供多种选择。在上例中，我们能够指导用户输入不同的值，执行相同的计算多次，然而这种方式往往会花费很多时间。因此，需要使用不同的方法使应用程序更好的执行任务。
较好的解决方案是使用对话框来输入计算范围，而使用对话框启动器来访问对话框。添加了对话框启动器的新界面如下图。

 
相应的XML代码如下：


  3.           <dialogBoxLauncher>
  4.             <button id="RedundantCalcsLaunch"
  5.                     screentip="多重计算"
  6.                     supertip="多次执行同一公式的计算."
  7.                     onAction="DisplayRedundantCalc"/>
  8.           </dialogBoxLauncher>

要实现本例的功能，需要：
  • 为每个等式创建不同的对话框，需要创建3个对话框。
  • 代码必须区分不同的等式。
  • 任何用于与用户交互的对话框需要与功能区中的信息相链接，功能区控件同样需要从对话框中更新。
  • 代码对所需的ThisAddIn方法作多次调用，填充单元格区域中的单元格。
  • 取决于你的需求，可以提供额外的信息，例如列标题和行标题，使输出更易理解。设计对话框
    本例限定用户选择两个范围，这样可以在表中显示输出。设计的“选择贷款范围”窗体如下图所示。

     
    “选择年金范围”窗体设计如下图所示。

     
    “选择有效利率范围”窗体设计如下图所示。

     
    注：设计功能区的目的是减少复杂性。如果由于一些多余的设计选择而增加了更多的复杂性，那么用户将不会感受到使用功能区的任何好处。
    创建计算代码
    执行一次或多次计算实质上是相同的，但稍有不同。代码如下：
    [/code]
        ' 计算贷款金额并包括位置数据    Public Sub CalculatePMT(ByVal Rate As Double, ByVal NPer As Int32, ByVal PV As Int32, ByVal X As Int32, ByVal Y As Int32)        ' 计算利率.        Dim PeriodicRate As Double = (Rate / 100) / 12         ' 计算期数.        Dim Periods As Int32 = NPer * 12         ' 执行计算.        Application.ActiveWindow.ActiveCell.Cells(X, Y) = _              "=PMT(" + PeriodicRate.ToString() + "," + _              Periods.ToString() + "," + PV.ToString() + ",0,0)"        Application.ActiveWindow.ActiveCell.Calculate()    End Sub     ' 计算年金金额并包括位置数据.    Public Sub CalculateFV(ByVal Rate As Double, ByVal NPer As Int32, ByVal PMT As Int32, ByVal PV As Int32, ByVal X As Int32, ByVal Y As Int32)        ' 计算利率.        Dim PeriodicRate As Double = (Rate / 100) / 12         ' 计算期数.        Dim Periods As Int32 = NPer * 12         ' 执行计算.        Application.ActiveWindow.ActiveCell.Cells(X, Y) = _           "=FV(" + PeriodicRate.ToString() + "," + _           Periods.ToString() + "," + PMT.ToString() + "," + _           PV.ToString() + ",0)"        Application.ActiveWindow.ActiveCell.Calculate()    End Sub     ' 计算有效利率并包括数据位置.    Public Sub CalculateEFFECT(ByVal Rate As Double, ByVal X As Int32, ByVal Y As Int32)        ' 计算利率.        Dim PeriodicRate As Double = (Rate / 100) / 12         ' 执行计算.        Application.ActiveWindow.ActiveCell.Cells(X, Y) = _           "=EFFECT(" + PeriodicRate.ToString() + ",12)"        Application.ActiveWindow.ActiveCell.Calculate()         ' 格式单元格.        Dim ThisRange As Excel.Range        ThisRange = Application.Cells(X, Y)        ThisRange.NumberFormat = "0.0000%"    End Sub[/code]

    可以将上述代码与前文中相应的示例代码比较。最大的不同在于，添加了两个额外的位置参数，使得可以在任何位置放置输出的值。
    定义对现有数据的链接
    为功能区应用程序创建对话框时，需要创建对话框与合适的功能区控件的链接，否则两个元素将不同步并且应用程序会显示错误的数据。要创建链接，需要：
  • 从功能区中获取信息
  • 在功能区中设置信息
  • 在XML中定义需要的回调创建链接的XML代码如下：


    3.           <editBox id="Rate"
    4.                    label="有效利率"
    5.                    onChange="GetRateText"
    6.                    getText="SetRateText"/>
    7.           <dropDown id="Term"
    8.                     label="期数"
    9.                     getVisible="TermVisible"
    10.                     getItemCount="TermCount"
    11.                     getItemID="TermItemID"
    12.                     getItemLabel="TermItemLabel"
    13.                     onAction="GetSelectedTerm"
    14.                     getSelectedItemIndex="SetSelectedTerm"/>
    15.           <editBox id="Payment"
    16.                    label="期初支付"
    17.                    getVisible="PaymentVisible"
    18.                    onChange="GetPaymentText"
    19.                    getText="SetPaymentText"/>
    20.           <editBox id="Amount"
    21.                    getLabel="AmountLabel"
    22.                    getVisible="AmountVisible"
    23.                    onChange="GetAmountText"
    24.                    getText="SetAmountText"/>
    用于实现链接的属性取决于控件类型。大多数控件使用getText属性，从应用程序中提取信息并在控件中显示（例如，本例中的文本框）；一些控件需要使用其它属性，例如本例中的getSelectedItemIndex属性。回调代码如下：


    3.     Public Function SetRateText(ByVal control As Office.IRibbonControl) As String
    4.         ' 返回Rate变量的当前值.
    5.         Return Rate.ToString()
    6.     End Function

    8.     Public Function SetSelectedTerm(ByVal control As Office.IRibbonControl) As Int32
    9.         ' 设置贷款项.
    10.         If CalcType = "Loan" Then
    11.             Select Case Term
    12.                 Case 10
    13.                     Return 0
    14.                 Case 15
    15.                     Return 1
    16.                 Case 20
    17.                     Return 2
    18.                 Case 30
    19.                     Return 3
    20.             End Select
    21.         End If

    23.         ' 设置年金项.
    24.         If CalcType = "Annuity" Then
    25.             Select Case Term
    26.                 Case 5
    27.                     Return 0
    28.                 Case 7
    29.                     Return 1
    30.                 Case 10
    31.                     Return 2
    32.                 Case 15
    33.                     Return 3
    34.                 Case 20
    35.                     Return 4
    36.             End Select
    37.         End If

    39.         ' 提供缺省的返回值.
    40.         Return 0
    41.     End Function

    43.     Public Function SetPaymentText(ByVal control As Office.IRibbonControl) As String
    44.         ' 返回Payment变量的当前值.
    45.         Return Payment.ToString()
    46.     End Function

    48.     Public Function SetAmountText(ByVal control As Office.IRibbonControl) As String
    49.         ' 返回Amount变量的当前值.
    50.         Return Amount.ToString()
    51.     End Function
    执行更丰富的计算
    对话框启动器dialogBoxLauncher仅有一个onAction属性，因此任何计算的开始点都是该属性指向的方法DisplayRedundantCalc。当然，由于每个等式都不相同，因此都需要采用某种方式单独实现调用。


    3.     Public Sub DisplayRedundantCalc(ByVal control As Office.IRibbonControl)
    4.         ' 选择正确的过程.
    5.         Select Case CalcType
    6.             Case "Loan"
    7.                 PerformLoanRangeCalc()
    8.             Case "Annuity"
    9.                 PerformAnnuityRangeCalc()
    10.             Case "Effective Rate"
    11.                 PerformEffectiveRateRangeCalc()
    12.         End Select
    13.     End Sub
    代码根据所选择的项目不同，调用不同的对话框计算程序。


    3.     Private Sub PerformLoanRangeCalc()
    4.         ' 创建对话框.
    5.         Dim ThisSelection As LoanRangeSelection = New LoanRangeSelection()

    7.         ' 在对话框中添加已存在的变量.
    8.         ThisSelection.txtIntBeg.Text = Rate.ToString()
    9.         ThisSelection.txtIntEnd.Text = Rate.ToString()
    10.         ThisSelection.txtIntInc.Text = "1"
    11.         ThisSelection.cbTermBeg.Text = Term.ToString()
    12.         ThisSelection.cbTermEnd.Text = Term.ToString()
    13.         ThisSelection.txtLoanAmt.Text = Amount.ToString()

    15.         ' 显示对话框并且如果用户单击确定则处理数据.
    16.         If ThisSelection.ShowDialog() = DialogResult.OK Then
    17.             ' 转换数据值为Int32egers.
    18.             Rate = Int32.Parse(ThisSelection.txtIntBeg.Text)
    19.             Term = Int32.Parse(ThisSelection.cbTermBeg.Text)
    20.             Amount = Int32.Parse(ThisSelection.txtLoanAmt.Text)

    22.             ' 创建本地变量,包括计算数据.
    23.             Dim EndRate As Int32 = Int32.Parse(ThisSelection.txtIntEnd.Text)
    24.             Dim IncRate As Int32 = Int32.Parse(ThisSelection.txtIntInc.Text)
    25.             Dim EndTerm As Int32 = Int32.Parse(ThisSelection.cbTermEnd.Text)

    27.             ' 更新功能区中的值.
    28.             ribbon.InvalidateControl("Rate")
    29.             ribbon.InvalidateControl("Term")
    30.             ribbon.InvalidateControl("Amount")

    32.             ' 添加初始标题.
    33.             Globals.ThisAddIn.SetHeading("利息", 1, 1)

    35.             ' 执行计算.
    36.             Dim i As Int32
    37.             For i = Rate To EndRate

    39.                 ' 计算X和Y的位置值.
    40.                 Dim X As Int32 = i + 2 - Rate
    41.                 Dim Y As Int32 = 2

    43.                 ' 打印Int32erest利率.
    44.                 Globals.ThisAddIn.SetHeading(i.ToString() + "%", X, 1)

    46.                 ' 使用一系列if语句确定年设置.
    47.                 If Term = 10 And EndTerm >= 10 Then
    48.                     ' 执行计算.
    49.                     Globals.ThisAddIn.CalculatePMT(i, 10, Amount, X, Y)

    51.                     ' 打印标题.
    52.                     Globals.ThisAddIn.SetHeading("10年", 1, Y)

    54.                     ' 如果已经使用则增加Y.
    55.                     Y = Y + 1
    56.                 End If

    58.                 If Term <= 15 And EndTerm >= 15 Then
    59.                     ' 执行计算.
    60.                     Globals.ThisAddIn.CalculatePMT(i, 15, Amount, X, Y)

    62.                     ' 打印标题.
    63.                     Globals.ThisAddIn.SetHeading("15年", 1, Y)

    65.                     ' 如果已经使用则增加Y.
    66.                     Y = Y + 1
    67.                 End If

    69.                 If Term <= 20 And EndTerm >= 20 Then
    70.                     ' 执行计算.
    71.                     Globals.ThisAddIn.CalculatePMT(i, 20, Amount, X, Y)

    73.                     ' 打印标题.
    74.                     Globals.ThisAddIn.SetHeading("20年", 1, Y)

    76.                     ' 如果已经使用则增加Y.
    77.                     Y = Y + 1
    78.                 End If

    80.                 If Term <= 30 And EndTerm >= 30 Then
    81.                     ' 执行计算.
    82.                     Globals.ThisAddIn.CalculatePMT(i, 30, Amount, X, Y)

    84.                     ' 打印标题.
    85.                     Globals.ThisAddIn.SetHeading("30年", 1, Y)

    87.                     ' 如果已经使用则增加Y.
    88.                     Y = Y + 1
    89.                 End If
    90.             Next
    91.         End If
    92.     End Sub

    94.     Private Sub PerformAnnuityRangeCalc()
    95.         ' 创建对话框.
    96.         Dim ThisSelection As AnnuityRangeSelection = New AnnuityRangeSelection()

    98.         ' 在对话框中添加已存在的变量.
    99.         ThisSelection.txtIntBeg.Text = Rate.ToString()
    100.         ThisSelection.txtIntEnd.Text = Rate.ToString()
    101.         ThisSelection.txtIntInc.Text = "1"
    102.         ThisSelection.cbTermBeg.Text = Term.ToString()
    103.         ThisSelection.cbTermEnd.Text = Term.ToString()
    104.         ThisSelection.txtLoanAmt.Text = Amount.ToString()
    105.         ThisSelection.txtPayment.Text = Payment.ToString()

    107.         ' 显示对话框并且如果用户单击确定则处理数据.
    108.         If ThisSelection.ShowDialog() = DialogResult.OK Then

    110.             ' 转换数据值为Int32egers.
    111.             Rate = Int32.Parse(ThisSelection.txtIntBeg.Text)
    112.             Term = Int32.Parse(ThisSelection.cbTermBeg.Text)
    113.             Amount = Int32.Parse(ThisSelection.txtLoanAmt.Text)
    114.             Payment = Int32.Parse(ThisSelection.txtPayment.Text)

    116.             ' 创建本地变量以包含计算数据.
    117.             Dim EndRate As Int32 = Int32.Parse(ThisSelection.txtIntEnd.Text)
    118.             Dim IncRate As Int32 = Int32.Parse(ThisSelection.txtIntInc.Text)
    119.             Dim EndTerm As Int32 = Int32.Parse(ThisSelection.cbTermEnd.Text)

    121.             ' 更新功能区中的值.
    122.             ribbon.InvalidateControl("Rate")
    123.             ribbon.InvalidateControl("Term")
    124.             ribbon.InvalidateControl("Amount")
    125.             ribbon.InvalidateControl("Payment")

    127.             ' 添加初始标题.
    128.             Globals.ThisAddIn.SetHeading("利息", 1, 1)

    130.             ' 执行计算.
    131.             Dim i As Int32
    132.             For i = Rate To EndRate

    134.                 ' 计算X和Y的位置值.
    135.                 Dim X As Int32 = i + 2 - Rate
    136.                 Dim Y As Int32 = 2

    138.                 ' 打印Int32erest利率.
    139.                 Globals.ThisAddIn.SetHeading(i.ToString() + "%", X, 1)

    141.                 ' 使用一系列if语句决定年设置.
    142.                 If Term = 5 And EndTerm >= 5 Then
    143.                     ' 执行计算.
    144.                     Globals.ThisAddIn.CalculateFV(i, 5, Amount, Payment, X, Y)

    146.                     ' 打印标题.
    147.                     Globals.ThisAddIn.SetHeading("5年", 1, Y)

    149.                     ' 如果已经使用则增加Y.
    150.                     Y = Y + 1
    151.                 End If

    153.                 If Term <= 7 And EndTerm >= 7 Then
    154.                     ' 执行计算.
    155.                     Globals.ThisAddIn.CalculateFV(i, 7, Amount, Payment, X, Y)

    157.                     ' 打印标题.
    158.                     Globals.ThisAddIn.SetHeading("7年", 1, Y)

    160.                     ' 如果已经使用则增加Y.
    161.                     Y = Y + 1
    162.                 End If

    164.                 If Term <= 10 And EndTerm >= 10 Then
    165.                     ' 执行计算.
    166.                     Globals.ThisAddIn.CalculateFV(i, 10, Amount, Payment, X, Y)

    168.                     ' 打印标题.
    169.                     Globals.ThisAddIn.SetHeading("10年", 1, Y)

    171.                     ' 如果已经使用则增加Y.
    172.                     Y = Y + 1
    173.                 End If

    175.                 If Term <= 15 And EndTerm >= 15 Then
    176.                     ' 执行计算.
    177.                     Globals.ThisAddIn.CalculateFV(i, 15, Amount, Payment, X, Y)

    179.                     ' 打印标题.
    180.                     Globals.ThisAddIn.SetHeading("15年", 1, Y)

    182.                     ' 如果已经使用则增加Y.
    183.                     Y = Y + 1
    184.                 End If

    186.                 If Term <= 20 And EndTerm >= 20 Then
    187.                     ' 执行计算.
    188.                     Globals.ThisAddIn.CalculateFV(i, 20, Amount, Payment, X, Y)

    190.                     ' 打印标题.
    191.                     Globals.ThisAddIn.SetHeading("20年", 1, Y)

    193.                     ' 如果已经使用则增加Y.
    194.                     Y = Y + 1
    195.                 End If
    196.             Next
    197.         End If
    198.     End Sub

    200.     Private Sub PerformEffectiveRateRangeCalc()
    201.         ' 创建对话框.
    202.         Dim ThisSelection As EffectiveRateRangeSelection = New EffectiveRateRangeSelection()

    204.         ' 在对话框中添加已存在的变量.
    205.         ThisSelection.txtIntBeg.Text = Rate.ToString()
    206.         ThisSelection.txtIntEnd.Text = Rate.ToString()
    207.         ThisSelection.txtIntInc.Text = "1"

    209.         ' 显示对话框并且如果用户单击确定则处理数据.
    210.         If ThisSelection.ShowDialog() = DialogResult.OK Then

    212.             ' 转换数据值为Int32egers.
    213.             Rate = Int32.Parse(ThisSelection.txtIntBeg.Text)

    215.             ' 创建本地变量以包含计算数据.
    216.             Dim EndRate As Int32 = Int32.Parse(ThisSelection.txtIntEnd.Text)
    217.             Dim IncRate As Int32 = Int32.Parse(ThisSelection.txtIntInc.Text)

    219.             ' 更新功能区中的值.
    220.             ribbon.InvalidateControl("Rate")

    222.             ' 添加初始标题.
    223.             Globals.ThisAddIn.SetHeading("利息", 1, 1)
    224.             Globals.ThisAddIn.SetHeading("有效利率", 1, 2)

    226.             ' 执行计算.
    227.             Dim i As Int32
    228.             For i = Rate To EndRate
    229.                 ' 计算X和Y位置值.
    230.                 Dim X As Int32 = i + 2 - Rate

    232.                 ' 打印Int32erest利率.
    233.                 Globals.ThisAddIn.SetHeading(i.ToString() + "%", X, 1)

    235.                 ' 执行计算.
    236.                 Globals.ThisAddIn.CalculateEFFECT(i, X, 2)
    237.             Next
    238.         End If
    239.     End Sub
    考虑数据识别需求
    对输出结果添加有意义的标题。当执行多重计算时，为使数据意义明确，必须提供标题。代码如下：


    3.     Public Sub SetHeading(ByVal Heading As String, ByVal X As Int32, ByVal Y As Int32)
    4.         ' 添加所需要的标题.
    5.         Application.ActiveWindow.ActiveCell.Cells(X, Y) = Heading
    6.     End Sub
    现在，一切准备就绪。运行代码，在窗体中选择区域，输入相应数据，得到的输出结果如下图所示。

     
    • 2楼
    亡者天下    		 自己还可以开发功能区啊！

    免责声明

    有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素， 经与ExcelTip.Net站长Apolloh商议并征得其同意， 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示， 供有需要的人士查询使用，也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议， 可与本人沟通提出，或于本站点留言，我们会尽快处理。 在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
    ------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

    猜您喜欢
    评论列表
    搜索

    鄂ICP备2021011689号-2

    powered by emlog pro Theme By 蓝叶

    sitemap