王峰炬

摘要： How to remove all characters between two brackets? Such as "12345 (rtetnj) dsfd (fddsgd) dsf "----> "12345 dsfd dsf " Use regexp syntaxes ,it'... 阅读全文

摘要： Function trans(number As String) As String Dim x As String, y As String x = Split(number, ".")(0) Const upcase = "○一二三四五六七八九 十百千万十百千万亿十百千万十百千万" ... 阅读全文

摘要： 庭前芳草皆生意 树上流莺作比邻 秀水绕门蓝作带... 阅读全文

摘要： Background for "Life Magazine, December, 1941" Below are reproductions of several pages from the issue of Life magazine (December, 1941) that Fost... 阅读全文

摘要： Function pinyin(ByVal r As Range) As StringConst hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝ABCDEFGHJKLMNOPQRSTWXYZZ"Dim i As Long, j As Byte, temp As StringFor... 阅读全文

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

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

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

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

摘要： 添加部件Library MODICtl C:/PROGRA~1/COMMON~1/MICROS~1/MODI/11.0/MDIVWCTL.oca Microsoft Office Document Imaging 11.0 Type Library Private Sub C... 阅读全文