元者，始也。混沌初开，为元；万象更新，为元；新年伊始，为元；孕育新生，为元；百业待兴，为元；破冰始足，亦为元。新年伊始日，邀新朋，结为伴，敬山神，祈平安，纳祥瑞，乃我族之俗，已逾千载矣。
承世俗，传民意，路人之家公益休闲俱乐部于丙申年元日邀众者谒本府标山行登拜之事；树新风，举大旗，路人之家公益休闲俱乐部倡公益励身志远离豪饮聚赌引全民健身之风，此举于众者信，应者不绝。
丙申年元日巳时二刻，四车一十八人于东明村部聚。叙别喧，笑颜开，互祝新年福；展旌旗，倍抖擞，携手向新高。
丙申元日，烈焰腾空，寒冬送暖；碧绫绸宇，心旷神怡。群旗卷起无缝巾，信步撇开登山杖，于天桥进。
长白山蜿蜒千里经由昌图有一山，去之东南九里，拔地一百三十丈。有二峰，距百米，南峰怪石嶙峋，褐，状如蜘，亦称蜘蛛峰。两峰间有宽约半步石墙相通，恰如一石桥屹于太清，仅可一人匐过，悬崖峭壁，故称之为天桥。
此天桥，远观之，如广寒经络，辗转延绵，时隐时现；仰视之，如九天宫栏，高大雄伟，气势如虹；近俯之，如鹊桥银河，呼之欲动，惊人心魄。凭巅远眺，空旷无垠，思绪万里；俯首足下，百草茂密，娇嫩如毡。山间，雀鸣鹰翔，鼠跃獾嬉。春归，万物复苏，林芽吐蕾，
more...
虫子 生活 浏览0 次
花溪地，地花溪，四季怡人两相依
路人家，家路人，八方互助一阖门
—路人之家公益休闲俱乐部首航花溪地有感
凛冽的寒风已然归去，和煦的春风悄然入怀。
震撼的爆竹声中金猴送走了玉羊，悠扬的柳枝摇曳影里皴裂取代了寒黄，在这个新年伊始万象更新的时节，人们盘算着一年的光景，憧憬着一个美好的收成。
花溪地，集世界奇珍于一堂，采天下异草于一弄，这里有北疆的荷花杜鹃，这里有南国的椰树棕榈。这里没有雪花飞舞，但是，这里却有只适合在雪中生长的干枝梅；这里没有阴雨缠绵，但是，这里却有只能在阴湿环境生长的郁金香；这里，没有春夏秋冬，这里却有适合春夏秋冬生长的植物；这里，没有地北天南，这里却有只能在地北天南存活的珍卉。游人逸过，花落如溪，沁人心脾。花因人而娇嫩，人因花而陶醉，人依花，留下永恒的瞬间；花依人，构建和谐的共存。路人之家公益休闲俱乐部的首次远航就选在了这里—辽中花溪地温泉。
环境固然重要，更为一绝的要数这里的温泉，咱先不说它的温度适应各类人群从高到低有若干的档次，就拿它的种类来说，也是极具考究，有牛奶泉，有红酒泉，还有玫瑰泉，等等共29个品类。花间椰下，一泓潭，气缭绕，或香，或醇，或馨，三五成群于池中，有的静
more...
虫子 生活 浏览0 次
巧取汉字打头的字串内容
处理表格数据时遇到问题：从网页表格中复制来的数据，地址一列中出现类似于“4AWZCX万载老林业局2”的无用字符前缀。现在希望提取第一个汉字及其之后的所有内容（图1），寻求高效分离中英文及数字的实操方法。
excel提取汉字
巧取汉字打头的字串内容
1. 借助自动填充
如果使用Excel 2016，可以借助自动填充功能实现。打开“Excel选项”对话框，切换到“高级”面板（图2），在右侧窗格检查勾选“为单元格值启用记忆式键入”和“自动快速填充”复选框；接下来在B2单元格手工输入“万载老林业局2”，在B3单元格手工输入“永”，此时即可看到自动匹配提示，直接按下回车键即可（图3）。
巧取汉字打头的字串内容
excel公式巧取汉字打头的字串内容
小提示：
如果使用更低版本的Excel，可使用下面两种方法。
2. 利用数组公式
在编辑栏输入公式“=MID(A2,MATCH(1=1,LENB(MID(A2,ROW($1:$25),1))=2,),25)”，按下Ctrl+Shift+Enter组合键转换为数组公式，执行之后即可从A2单元格提
more...
虫子 软件技巧 excel 浏览0 次
由于工作需要，要对大量的身份证号码进行校验，人工核对非常麻烦，就有了此篇文章，在vb中利用程序作了个dll文件，让wps进行调用，
程序的主要代码来源于网络，主要代码如下：
Function IDcheck(ID) ‘身份证号码校验函数
Dim s, i As Integer
Dim e, z As String
Part1: ‘—————————-身份证号码合法性检查—————————————
If Not (Len(ID) = 18 Or Len(ID) = 15) Then ‘位数检验
IDcheck = “位数错误”
Exit Function
Else
If Len(ID) = 15 Then ID = Left(ID, 6) & “19” & Right(ID, 9)
If IsNumeric(Left(ID, 17)) = False Or InStr(ID, “.”) > 0 Then ‘字符检验
IDcheck = “字符错误”
Exit Function
End If
On Error Resume Next ‘日期检验
If DateValue(Mid(ID, 7, 4) & “-” & Mid(ID, 11, 2) & “-” & Mid(ID, 13, 2)) < 1 Or _
DateValue(Mid(ID, 7, 4) & “-” & Mid(ID, 11, 2) & “-
more...
虫子 程序设计, 软件技巧 excel 浏览8 次
过程给你：
Private Declare Function timeGetTime Lib “winmm.dll” () As Long
Sub Delay(Byval DelayTime As Long) ‘单位是毫秒
DelayTime =DelayTime + Timegettime
Do While Timegettime < DelayTime
DoEvents
Loop
End Sub
调用的时候这样写：
…
Delay 1000 ‘延时一秒
…
用这个过程比较好，不会造成程序“假死”的现象。
vb_delay_time_function
more...
虫子 程序设计, 软件技巧 vb 浏览0 次