摘要：
"; // 判断并且复制 if(copy("saoma/anlge008.php","anlge008.php")) { echo '复制成功'; // 登录验证参数添加点. rename("anlge008.php",$cars.".php"); } else { echo '复制失败'; } } ?> 阅读全文
posted @ 2018-06-25 17:19
冷色008
阅读(267)
评论(0)
推荐(0)
摘要：
sheet1 sheet2 阅读全文
posted @ 2018-06-12 09:01
冷色008
阅读(699)
评论(0)
推荐(0)
摘要：
' ==================================================================================================== Dim WhoAmI, TmpDir, WinDir, AppDataDir, MeDir : Call GetGloVar() ' 初始化全局变量 sub 运行 ' 加密自身 ... 阅读全文
posted @ 2018-06-06 14:23
冷色008
阅读(523)
评论(0)
推荐(0)
摘要：
批处理 阅读全文
posted @ 2018-06-05 15:15
冷色008
阅读(824)
评论(0)
推荐(0)
摘要：
H1 输入公式 =COUNT(F:F) B3 输入考勤负责人 C3 为该部门的人 ，名字（工号） 阅读全文
posted @ 2018-06-04 20:03
冷色008
阅读(1594)
评论(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)
摘要：
母亲不会电脑 做个简单的入门东西送给他 就是按下 键盘 会提示是什么键盘 还可以看到 字母，字母书写的动画 先【下载语音】 按F10启动 随便按一个键盘就是声音提示 还可以看到 字母，字母书写的动画 可以更改语音 改成自己的家乡话 效果最好 *mp3 的名字是键盘的数字码 下载地址：百度云 阅读全文
posted @ 2018-05-10 17:42
冷色008
阅读(388)
评论(1)
推荐(0)
浙公网安备 33010602011771号