- 博客(3)
- 资源 (3)
- 收藏
- 关注
原创 简易电子章制作小模块(VBA)
Sub 图章() Application.DisplayAlerts = False Application.ScreenUpdating = False On Error Resume Next Application.Worksheets.Add Cells.ColumnWidth = 8.4 Cells.RowHeight = 14.2 ActiveS
2010-12-11 13:04:00 3811
原创 遇到一个很奇怪的问题,现在仍然没想到是怎么弄的。(有图无真相)
我们财务部用的是用友ERP-U890财务模块。今天导出账簿发现一个很有意思的问题,百思不得其解。上图:大家注意看定义的名称。一般用过EXCEL的人都知道,在EXCEL里定义名称不能以数字开头,可是现实表明是可以的。而且这个名称通过VBA代码进行删除也是不能成功的。在名称管理器中是可以进行删除的。奇了怪了,百思不得其解,百度、GOOGLE了半天无真相。很想知道用友软件是如何做到的。虽然用友的ERP是垃圾,但是也能发现一些有意思的事情。呵呵。我用的是winxp ,office2010,用友U890,后台SQL
2010-12-11 11:08:00 2600
原创 小经验分享
<br />Sub 取不重复值() Dim Cel As Range Dim itm As Variant, i As Variant Dim MyList As New Collection Dim SelectArea As Range 'Application.ScreenUpdating = False On Error Resume Next For Each Cel In Selection If Cel <> "" Then MyList.Add Cel.Va
2010-12-11 10:55:00 707
超酷VBA工程加锁解锁器 By ldhyob
2011-03-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人