古城明月照西凉廿五方晓相见欢相见欢，在雷阳人如织锦车马忙香茗舍前初探望不敢相认少年郎推座呼唤笑靥起奔走不理乱红妆执手仍感情义浅未语先怜鬓间霜从前巷陌坊前事陡觉浮生岁月长举杯敢夺须眉勇抚琴亦有女儿香流年不改木兰志闻歌善舞曲霓裳绿涛昔年漫漫去梧桐已栖凤求凰余生不访蓬莱客再约剪烛画西窗
经年奋笔苦，一日终不负从此扶摇起，海天任极目喜偿高堂愿，折桂蟾宫前轻展鸿鹄志，逐鹿得中原燕雀堂下嬉，凤鸣九重深花繁闲客赏，根固枝骨横莫忘挑灯诵，放浪迹与形富贵技中见，技始少年能2016.07.25
春暖应知寒未尽花开所为蝶相恋抱身虚名肩上鼎似视初窥洞外天自古登峰步步稳从来穿石滴滴难不过乌江惜面薄终须卧薪悬胆前2018.04.04
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))...
前窗声朗朗 后室语呢呢 长街影杳杳 高墙草芝芝 秉灯吟子集 围座论良师 高论仕途景 难言风月词 唯重信与义 未晓至别离 秋薄多凉恶 挥别从此兹 年年寻君迹 岁岁念君知 年年接岁岁 垂垂复时时 东海有仙岛 送我青梅草 南山观妙境 予我当归鸟 西领千层雪 酿我杜康烈 北塞万顷沙 赠我美人结 蓬深如愁织 羽...