作者：绿色风
分类：
时间：2022-08-18
浏览：149
楼主
wise |
Q:VSTO中如何使用UNION？
A：其VSTO代码如下：
- Public Class Sheet1
- Private Sub Sheet1_Startup() Handles Me.Startup
- Dim rngA, rngB, UnionRange As Excel.Range
- rngA = Range("A2", "B3")
- rngA.Value = "wise"
- rngB = Range("A5", "B6")
- rngB.Value = "Ken"
- UnionRange = Application.Union(rngA, rngB)
- '和VBA中的Union差异不大，不过需要使用Application
- UnionRange.Font.Color = System.Drawing.ColorTranslator.ToOle(Drawing.Color.Blue)
- '填充颜色差异很大，System.Drawing.ColorTranslator将颜色翻译成 GDI+ Color 结构并从该结构翻译颜色。 此类不能被继承。
- 'ToOle将指定的 Color 结构翻译成 OLE 颜色。
- End Sub
- End Class
从本代码可以看出，和VBA的Union的用法差异不大。 |
2楼
nzkboy |
哪里有VSTO的教程呀，刚开始学，但没有一点理论指导呀 |
3楼
wise |
Q:VSTO中如何使用Intersect？
A：其VSTO代码如下：- Public Class Sheet1
- Private Sub Sheet1_Startup() Handles Me.Startup
- Dim rngA, rngB, intersection As Excel.Range
- rngA = Globals.Sheet1.Range("A1", "B2")
- rngB = Globals.Sheet1.Range("B2", "D8")
- intersection = Application.Intersect(rngA, rngB)
- If intersection Is Nothing Then
- MsgBox("Not OK")
- Else
- MsgBox("OK")
- End If
- End Sub
- End Class
除了Union的使用外，其类似的Intersect的差异也不大。 |
4楼
wise |
目前该方面的资料很少，呵呵，不过ET以后慢慢地积累起来的 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一