- 博客(9)
- 收藏
- 关注
RSS订阅原创 EXCEL 判断一个单元格中是否有图片
比如判断[D8]单元格里有无图片：Sub MACRO1()Dim SH As Shape, HASPIC As BooleanFor Each SH In ActiveSheet.ShapesIf Application.Intersect(Range(SH.TopLeftCell.Address, SH.BottomRightCell.Address), [D8]) Is Nothing T
2007-04-10 11:24:00
8108
原创 dir()递归 遍历子目录
dir()递归即可：Private Sub Command1_Click()Listfiles "d:/JAVA", List1End SubSub Listfiles(ByVal mydir As String, ByVal filelist As ListBox)Dim i As Long, dirlevel As Long, fname As String, dirlist() As Str
2007-04-10 11:19:00
5552
原创 EXCEL 中 判断某个自定义序列是否存在
Sub Macro1()Dim customlist As String, i As Longcustomlist = "全部自定义序列" & vbCrLf & String(30, "-") & vbCrLfFor i = 1 To Application.CustomListCountcustomlist = customlist & "【" & Format(i, "00") & "】" &
2007-04-10 11:17:00
1472
原创 全硬盘高速查找指定文件
Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal lpInPath As String, ByVal lpOutPath As String) As LongPrivate Declare Function GetDriveType Lib "kernel32"
2007-04-10 11:03:00
3694
原创 VB中显示TIF（扫描文件）的方法
添加部件Library MODICtl C:/PROGRA~1/COMMON~1/MICROS~1/MODI/11.0/MDIVWCTL.oca Microsoft Office Document Imaging 11.0 Type LibraryPrivate Sub Command1_Click()MiDocView1.FileName = "c:/00
2007-04-08 15:05:00
2865
原创 WORD 文档中的艺术字
如何判断艺术字的样式,字体,字号？Sub macro1() Dim myShape As Shape, s(4) As String For Each myShape In ActiveDocument.Shapes If myShape.Type = msoTextEffect Then s(0) = "名称：" & myShape.Name
2007-04-08 15:01:00
1951
原创 获取EXE文件安装后的路径
WINRAR安装路径Sub GetWINRARPath()Dim WSH As ObjectSet WSH = CreateObject("Wscript.Shell")MsgBox "WINRAR安装路径：" & WSH.RegRead("HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/App Paths
2007-04-08 14:58:00
1378
原创 最小公倍数
“辗转相除法”求解最小公倍数Function LCM(ParamArray nums()) As LongDim temp1 As Long, temp2 As Long, I As LongLCM = nums(0)For I = 1 To UBound(nums)temp1 = LCMtemp2 = nums(I)LCM = LCM * temp2Do
2007-04-08 14:52:00
794
原创 按行获取文本文件的内容
不知是不是VB里最简单的方法？Sub getlines(byval filename as string,byref lines() as string)If Len(Dir(filename)) = 0 Then Exit SubOpen filename For Input As #1 打开文件。lines = Split(StrConv(InputB(LOF(1
2007-04-08 14:47:00
909
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人