细品RibbonX(1-59) (转)

xiapian89

楼煮，图挂了哇，求图~~~

hjh700913

不错，正在学习中！

lizhi507

感谢楼主的分享，太有用了，不回帖支持下都不好意思

lolmuta

Ribbon 真是博大精深啊…

jnwysh

收藏藏 学习

VBA万岁

jiulongpo 发表于 2012-7-27 21:05
接 细品RibbonX(56)：使用Visual Studio开发Excel商务应用程序(2)

收藏学习中......

VBA万岁

jiulongpo 发表于 2012-7-27 20:58
接 细品RibbonX(55)：在Visual Studio中开发Excel商务应用程序(1)

附件如下:

VBA万岁

VBA万岁 发表于 2015-10-23 13:32
附件如下:

我用VBA+XML做时失败，代码如下：
XML代码：

1. <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   
2.     <ribbon>
   
3.         <tabs>
   
4.             <tab id="myTab" label="专用等式" keytip="MT">
   
5. 
   
6.                 <group id="Default" label="开始">
   
7.                   <labelControl id="StartLabel1"
   
8.                         label="选择一个"/>
   
9.                   <labelControl id="StartLabel2"
   
10.                         label="开始点"/>
    
11.                   <labelControl id="StartLabel3"
    
12.                         label="用于计算."/>
    
13.                 </group>
    
14. 
    
15. 
    
16.                 <group id="Equations" label="等式">
    
17.                   <toggleButton id="Loan"
    
18.                         label="贷款"
    
19.                         onAction="SetupLoan"
    
20.                         getPressed="SelectedEquation"/>
    
21.                   <toggleButton id="Annuity"
    
22.                         label="年金"
    
23.                         onAction="SetupAnnuity"
    
24.                         getPressed="SelectedEquation"/>
    
25.                   <toggleButton id="EffectiveRate"
    
26.                         label="有效利率"
    
27.                         onAction="SetupEF"
    
28.                         getPressed="SelectedEquation"/>
    
29.                 </group>
    
30. 
    
31. 
    
32.                 <group id="DataEntry" getLabel="GetDataEntryLabel">
    
33.                   <editBox id="Rate"
    
34.                         label="利率"
    
35.                         onChange="GetRateText"/>
    
36.                   <dropDown id="Term"
    
37.                          label="期数"
    
38.                          getVisible="TermVisible"
    
39.                          getItemCount="TermCount"
    
40.                          getItemID="TermItemID"
    
41.                          getItemLabel="TermItemLabel"
    
42.                          onAction="GetSelectedTerm"/>
    
43.                   <editBox id="Payment"
    
44.                         label="期初付款"
    
45.                         getVisible="PaymentVisible"
    
46.                         onChange="GetPaymentText"/>
    
47.                   <editBox id="Amount"
    
48.                         getLabel="AmountLabel"
    
49.                         getVisible="AmountVisible"
    
50.                         onChange="GetAmountText"/>
    
51.                 </group>
    
52. 
    
53. 
    
54.                 <group id="Finishcalculate" label="完成">
    
55.                   <toggleButton id="Startcac"
    
56.                         label="开始计算"
    
57.                         onAction="Calculate"/>
    
58. 
    
59.                 </group>
    
60. 
    
61.             </tab>
    
62.         </tabs>
    
63.     </ribbon>
    
64. </customUI>
    

复制代码

VBA代码：

1.     Public CalcType
   
2.     Public Rate
   
3.     Public Term
   
4.     Public Payment
   
5.     Public Amount
   
6.    
   
7.     Sub SetupLoan(control As IRibbonControl, ByVal pressed As Boolean)
   
8.         ' 设置计算类型
   
9.         CalcType = "Loan"
   
10. 
    
11.         ' 设置按下状态
    
12.         pressed = True
    
13. 
    
14.         ' 使整个功能区无效
    
15.         ribbon.Invalidate
    
16.     End Sub
    
17. 
    
18.     Sub SetupAnnuity(control As IRibbonControl, ByVal pressed As Boolean)
    
19.         ' 设置计算类型
    
20.         CalcType = "Annuity"
    
21. 
    
22.         ' 设置按下状态
    
23.         pressed = True
    
24. 
    
25.         ' 使整个功能区无效
    
26.         ribbon.Invalidate
    
27.     End Sub
    
28. 
    
29.     Sub SetupEF(control As IRibbonControl, ByVal pressed As Boolean)
    
30.         ' 设置计算类型
    
31.         CalcType = "Effective Rate"
    
32. 
    
33.         ' 设置按下状态
    
34.         pressed = True
    
35. 
    
36.         ' 使整个功能区无效
    
37.         ribbon.Invalidate
    
38.     End Sub
    
39. 
    
40.     Function SelectedEquation(control As IRibbonControl) As Boolean
    
41.         ' 基于当前的等式确定按下状态
    
42.         Select Case CalcType
    
43.             Case "Loan"
    
44.                 If control.ID = "Loan" Then
    
45.                     SelectedEquation = True
    
46.                 Else
    
47.                     SelectedEquation = False
    
48.                 End If
    
49.             Case "Annuity"
    
50.                 If control.ID = "Annuity" Then
    
51.                     SelectedEquation = True
    
52.                 Else
    
53.                     SelectedEquation = False
    
54.                 End If
    
55.             Case "Effective Rate"
    
56.                 If control.ID = "EffectiveRate" Then
    
57.                     SelectedEquation = True
    
58.                 Else
    
59.                     SelectedEquation = False
    
60.                 End If
    
61.             Case Else
    
62.                 SelectedEquation = False
    
63.         End Select
    
64.     End Function
    
65. 
    
66.     Function TermVisible(control As IRibbonControl) As Boolean
    
67.         ' 应用程序不会使用该字段进行有效利率计算
    
68.         If CalcType = "Effective Rate" Then
    
69.             TermVisible = False
    
70.         Else
    
71.             TermVisible = True
    
72.         End If
    
73.     End Function
    
74. 
    
75.     Function PaymentVisible(control As IRibbonControl) As Boolean
    
76.         ' 当处理年金计算时应用程序仅使用该字段
    
77.         If CalcType = "Annuity" Then
    
78.             PaymentVisible = True
    
79.         Else
    
80.             PaymentVisible = False
    
81.         End If
    
82.     End Function
    
83. 
    
84.     Function AmountVisible(control As IRibbonControl) As Boolean
    
85.         ' 应用程序不会使用该字段进行有效利率计算
    
86.         If CalcType = "Effective Rate" Then
    
87.             AmountVisible = False
    
88.         Else
    
89.             AmountVisible = True
    
90.         End If
    
91.     End Function
    
92. 
    
93. 
    
94.     Function GetDataEntryLabel(control As IRibbonControl) As String
    
95.         ' 通过计算类型的选择决定组标签
    
96.         Select Case CalcType
    
97.             Case "Loan"
    
98.                 GetDataEntryLabel = "输入贷款信息"
    
99.             Case "Annuity"
    
100.                 GetDataEntryLabel = "输入年金信息"
     
101.             Case "Effective Rate"
     
102.                 GetDataEntryLabel = "输入有效利率信息"
     
103.             Case Else
     
104.                 GetDataEntryLabel = "没有实现!"
     
105.         End Select
     
106.     End Function
     
107. 
     
108.     Function AmountLabel(control As IRibbonControl) As String
     
109.         ' 通过计算类型的选择决定数量标签
     
110.         ' 由于有效利率计算不使用该控件,因此应用程序不给它提供标签
     
111.         Select Case CalcType
     
112.             Case "Loan"
     
113.                 AmountLabel = "贷款金额"
     
114.             Case "Annuity"
     
115.                 AmountLabel = "每月年金付款"
     
116.             Case Else
     
117.                 AmountLabel = "没有实现!"
     
118.         End Select
     
119.     End Function
     
120. 
     
121.     Sub GetRateText(control As IRibbonControl, ByVal text As String)
     
122.         ' 保存文本的输入值
     
123.         Rate = Val(text)
     
124.     End Sub
     
125. 
     
126.     Sub GetSelectedTerm(control As IRibbonControl, ByVal selectedId As String, ByVal selectedIndex As Int32)
     
127.         ' 存储默认值
     
128.         Term = 0
     
129. 
     
130.         ' 保存贷款项
     
131.         If CalcType = "Loan" Then
     
132.             Select Case selectedIndex
     
133.                 Case 0
     
134.                     Term = 10
     
135.                 Case 1
     
136.                     Term = 15
     
137.                 Case 2
     
138.                     Term = 20
     
139.                 Case 3
     
140.                     Term = 30
     
141.             End Select
     
142.         End If
     
143. 
     
144.         ' 保存年金项
     
145.         If CalcType = "Annuity" Then
     
146.             Select Case selectedIndex
     
147.                 Case 0
     
148.                     Term = 5
     
149.                 Case 1
     
150.                     Term = 7
     
151.                 Case 2
     
152.                     Term = 10
     
153.                 Case 3
     
154.                     Term = 15
     
155.                 Case 4
     
156.                     Term = 20
     
157.             End Select
     
158.         End If
     
159.     End Sub
     
160. 
     
161.     Sub GetPaymentText(control As IRibbonControl, ByVal text As String)
     
162.         ' 保存文本的输入值
     
163.         Payment = Int32.Parse(text)
     
164.     End Sub
     
165. 
     
166.     Sub GetAmountText(control As IRibbonControl, ByVal text As String)
     
167.         ' 保存文本的输入值
     
168.         Amount = Int32.Parse(text)
     
169.     End Sub
     
170. 
     
171.     Sub Calculate(control As IRibbonControl)
     
172.         ' 选择计算并调用
     
173.         Select Case CalcType
     
174.             Case "Loan"
     
175.                 CalculatePMT(Rate,Term,Amount)
     
176.             Case "Annuity"
     
177.                 CalculateFV(Rate, Term, Payment, Amount)
     
178.             Case "Effective Rate"
     
179.                 CalculateEFFECT (Rate)
     
180.         End Select
     
181.     End Sub
     
182. 
     
183. 
     
184.     ' 计算贷款数量
     
185.     Sub CalculatePMT(ByVal Rate As Double, ByVal NPer As Integer, ByVal PV As Integer)
     
186.         ' 计算利率
     
187.         PeriodicRate = (Rate / 100) / 12
     
188. 
     
189.         ' 计算期数
     
190.         Periods = NPer * 12
     
191. 
     
192.         ' 执行计算
     
193.         ActiveCell = "=PMT(" & PeriodicRate & "," + Periods & "," + PV & ",0,0)"
     
194.     Application.Calculation = xlCalculationAutomatic
     
195.     'Application.Calculation = xlCalculationManual
     
196.         'Application.ActiveWindow.ActiveCell.Calculate()
     
197.     End Sub
     
198. 
     
199.     ' 计算年金数量
     
200.     Sub CalculateFV(ByVal Rate As Double, ByVal NPer As Integer, ByVal PMT As Integer, ByVal PV As Integer)
     
201.         ' 计算利率
     
202.         PeriodicRate = (Rate / 100) / 12
     
203. 
     
204.         ' 计算期数
     
205.         Periods = NPer * 12
     
206. 
     
207.         ' 执行计算
     
208.         ActiveCell = "=FV(" + PeriodicRate & "," + Periods & "," + PMT & "," + PV & ",0)"
     
209.     Application.Calculation = xlCalculationAutomatic
     
210.     'Application.Calculation = xlCalculationManual
     
211.         'Application.ActiveWindow.ActiveCell.Calculate()
     
212.     End Sub
     
213. 
     
214.     ' 计算有效利率
     
215.     Sub CalculateEFFECT(ByVal Rate As Double)
     
216.         ' 计算利率
     
217.         PeriodicRate = Rate / 100
     
218. 
     
219.         ' 执行计算
     
220.         ActiveCell = "=EFFECT(" + PeriodicRate & ",12)"
     
221.     Application.Calculation = xlCalculationAutomatic
     
222.     'Application.Calculation = xlCalculationManual
     
223.         'Application.ActiveWindow.ActiveCell.Calculate()
     
224.     End Sub
     

复制代码

VBA万岁

VBA万岁 发表于 2015-10-23 16:39
我用VBA+XML做时失败，代码如下：
XML代码：

附上用VSTO制作的文件：

VBA万岁

jiulongpo 发表于 2012-7-27 16:38
接 细品RibbonX(16)：RibbonX开发基础问答

附上本例测试文件如下：