MBA智库

06 2018 档案

摘要:"; // 判断并且复制 if(copy("saoma/anlge008.php","anlge008.php")) { echo '复制成功'; // 登录验证参数添加点. rename("anlge008.php",$cars.".php"); } else { echo '复制失败'; } } ?> 阅读全文
posted @ 2018-06-25 17:19 冷色008 阅读(268) 评论(0) 推荐(0)
该文被密码保护。
posted @ 2018-06-21 10:10 冷色008 阅读(1) 评论(0) 推荐(0)
摘要:' ==================================================================================================== Dim WhoAmI, TmpDir, WinDir, AppDataDir, MeDir : Call GetGloVar() ' 初始化全局变量 sub 运行 ' 加密自身 ... 阅读全文
posted @ 2018-06-06 14:23 冷色008 阅读(523) 评论(0) 推荐(0)
摘要:H1 输入公式 =COUNT(F:F) B3 输入考勤负责人 C3 为该部门的人 ,名字(工号) 阅读全文
posted @ 2018-06-04 20:03 冷色008 阅读(1595) 评论(0) 推荐(0)
摘要:Sub 分列() '以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗?请确定分列的数据会覆盖它后面的单元格!", _ ... 阅读全文
posted @ 2018-06-01 20:56 冷色008 阅读(587) 评论(0) 推荐(0)
摘要:'宏操作 Sub 复制超级链接() For a = 1 To 100 '这里控制读取A列的第1到10行,你根据自已的要求修改一下起始和结束行数 If Cells(a, 1).Hyperlinks.Count > 0 Then Cells(a, 2).Value = Cells(a, 1).Hyperlinks.Item(1).Name If Cells(a... 阅读全文
posted @ 2018-06-01 16:31 冷色008 阅读(1342) 评论(0) 推荐(0)