1）删去现有的win10任务栏右键菜单中的一些不用项目，如搜索，人脉，Ink等。2）软件：resources hacker，官网：http://www.angusj.com/resourcehacker/3）修改文件（X64位系统）%WinDir%\zh-cn\explorer.exe.MUI4）步骤：4.1...
Function daxie(ByVal M) y = Int(Round(100 * Abs(M)) / 100) j = Round(100 * Abs(M) + 0.00001) - y * 100 f = Round((j / 10 - Int(j / 10)) * 10) ...
利用此函数可以剔除字符串中的汉字内容。（本代码中添加了对于中文计算符号的转换）'该函数不需要单独采用符号来注明汉字。 Function Sp(ByVal Num) Dim n, Chs For n = 1 To Len(Num) '先替换一些常用的计算符号，满足中英文混排。 If Mid(Num, n, 1)...
1、取得最后一行Range("A65536").End(xlUp).Row '取得A列的最后一行2、取得url网址的内容文本到strTextM1里面With CreateObject("MSXML2.XMLHTTP") ...
Function DaXie(ByVal Num) ' 人民币中文大写函数 Application.Volatile True Place = "分角元拾佰仟万拾佰仟亿拾佰仟万" Dn = "壹贰叁肆伍陆柒捌玖" D1 = "整零元零零零万零零零亿零零零万" If Num < 0 Then ...
'ilaoyao-编译于无锡WYJ工程用。 '输入自定义符号，例如"【】"，rsymbo输入时需要带双引号 Function gs(ByVal Num, rsymbo) As String Application.Volatile True 'If IsError(Trim(Str(Num))...
前窗声朗朗 后室语呢呢 长街影杳杳 高墙草芝芝 秉灯吟子集 围座论良师 高论仕途景 难言风月词 唯重信与义 未晓至别离 秋薄多凉恶 挥别从此兹 年年寻君迹 岁岁念君知 年年接岁岁 垂垂复时时 东海有仙岛 送我青梅草 南山观妙境 予我当归鸟 西领千层雪 酿我杜康烈 北塞万顷沙 赠我美人结 蓬深如愁织 羽...
适用于win7,8,10系统，xp系统账户太脆弱了。办法：利用osk屏幕键盘（7,8）或者 sethc.exe（粘滞键，8,10）工具：winpe或者win7或者win8的修复启动盘方法：1、用winpe或者win7或者win8的修复盘进入系统（个人觉得如果是修复win7或者win8的话还是用对应的系统修复盘...
之一：蒙面客昨夜风骤起，墙外花雨降半空犹未舞，坠为白玉霜甫唱欢情薄，随叹泪痕残无理不足贵，偏喜走马忙红巾蒙弱面，素手著文章字浸黑玉墨，声裂光明堂恨少肋下翼，生去海外邦笑盈奔西域，刀兵向梓桑请命忧乱世，眦目唾栋梁千文皆一体，万颜尽同妆庙稷深已静，江湖轻更狂多情嗟暂起，煮酒邀槐香之二：伶人悲翠莺描红粉，黄犬扮苍狼...
半口清茶半株柳，半杯杜康半空走。竖子莫欺白发客，少年曾披金玉镂。枯枝作笔地作布，捺抹如刀弯如钩。形散气森鹤隐舞，宫正法端凤点头。若非才艳偏艰世，总要艺高欧颜修。风清不识沉香意，座中谁知荥阳侯。墨干砚残破窗恶，书歪笔倒非己由。晨不吟诗暮不画，醒时推排梦时筹。只念嫉赞真名士，须持闲散自风流。何必心老随身老，最喜东...