OptionExplicit
SubsetFormat()
DimSelectionCellAsRange
SetSelectionCell=Worksheets("Sheet1").Range("A1:D4")
WithSelectionCell
.Borders.Weight=4
.Font.Size=10
.Font.Name="宋体"
.Interior.ColorIndex=34
EndWith
EndSub
分类：
编程语言 时间：
2015-06-05 17:55:26
阅读次数：
171
众所周知，对AutoCAD进行二次开发用到的主要工具有：ObjectArx,VBA,VLisp。但它们的优缺点是显而易见的:ObjectArx功能强大,编程效率高,但它的缺点是编程者必须掌握VC++,而这门语言非常的难学;VBA和VLisp虽然简单易上手,但它们对于开发大型的程序好象无能为力。那究竟...
Sub csv() Dim Fs, myFile As Object Dim myfileline As String 'txtfile的行数据 Dim sht As Worksheet For Each sht In ThisWorkbook.Sheets ns = sht.Cells(1, 8....
分类：
编程语言 时间：
2015-05-31 10:46:35
阅读次数：
277
Dim Foldar As StringPrivate Sub btn(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then Search End IfEnd SubSub Search() With Applicat...
分类：
编程语言 时间：
2015-05-29 19:43:29
阅读次数：
122
SubCheckNum()
iCount=0
iRow=ActiveSheet.Range("s65535").End(xlUp).Row‘取最后一行
iCol=ActiveSheet.Range("dz2").End(xlToLeft).Column‘取最后一列
MsgBox"iRow为："&iRow
MsgBox"iCol为："&iCol
Form=0ToiRow
Forj=0ToiCol‘列循环
IfActiveSheet.Cells(m,j)="..
分类：
编程语言 时间：
2015-05-29 18:33:22
阅读次数：
655
sd增强中的xvbap yvbap vbap内表存放不同的值（ser-exit：FORM USEREXIT_SAVE_DOCUMENT）
创建订单时：
XVBAP --> 存放当前所有的item，内容为新值
YVBAP --> 空，表明没有修改过任何item，当然也不存在旧值
VBAP --> 循环item时的，存放当前item的内容
修改订单时：
XVBAP --> 存放当前所有的item，内容为新值
YVBAP --> 仅存放修改过的item，并且存放的是修改...
分类：
编程语言 时间：
2015-05-29 09:57:36
阅读次数：
654
步骤如下：1、打开VBA（ALT+F11）2、右键模块=》插入=》模块3、粘贴以下代码：Public Function CutStr(chkStr As String) As String'截取字符串中第一个数字符 Dim i As Long For i = 1 To Len(chkStr)...
分类：
数据库 时间：
2015-05-25 14:21:45
阅读次数：
169
完场比分_Excel_Vba,
数据地址：
http://bf.win007.com/NBA_SC.aspx...
分类：
编程语言 时间：
2015-05-24 14:15:43
阅读次数：
112
解决办法：32 位系统删除：HKEY_LOCAL_MACHINE\Software\Microsoft\VSTO Designtime Setup\64位系统删除：HKEY_LOCAL_MACHINE\Software\Wow6432Node\Microsoft\VSTO Designtime Se...
分类：
其他好文 时间：
2015-05-22 22:27:12
阅读次数：
152
