小说网 找小说 无限小说 烟雨红尘 幻想小说 酷文学 深夜书屋

2007年4月10日

EXCEL 判断一个单元格中是否有图片

摘要： 比如判断[D8]单元格里有无图片： Sub MACRO1()Dim SH As Shape, HASPIC As BooleanFor Each SH In ActiveSheet.ShapesIf Application.Intersect(Range(SH.TopLeftCell.Addres... 阅读全文

posted @ 2007-04-10 11:24 王峰炬 阅读(1048) 评论(0) 推荐(0)

dir()递归 遍历子目录

摘要： dir()递归即可：Private Sub Command1_Click()Listfiles "d:/JAVA", List1End SubSub Listfiles(ByVal mydir As String, ByVal filelist As ListBox)Dim i As Long, ... 阅读全文

posted @ 2007-04-10 11:19 王峰炬 阅读(575) 评论(0) 推荐(0)

EXCEL 中 判断某个自定义序列是否存在

摘要： Sub Macro1()Dim customlist As String, i As Longcustomlist = "全部自定义序列" & vbCrLf & String(30, "-") & vbCrLfFor i = 1 To Application.CustomListCountcust... 阅读全文

posted @ 2007-04-10 11:17 王峰炬 阅读(237) 评论(0) 推荐(0)

全硬盘高速查找指定文件

摘要： Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal lpInPath As String, ByVal lpOutPath As String) As LongPr... 阅读全文

posted @ 2007-04-10 11:03 王峰炬 阅读(138) 评论(0) 推荐(0)

导航