分类
杂谈

杂谈——鹿

阁主之前有幸见识到了一群小鹿,感觉有趣,即录制了上述两段小视频,以飨诸位。

视频中的鹿均属于野生,所不同之处,在于视频2的鹿是在公园之中,经常有人投喂;视频1中鹿则食于山林,不喜人近。

分类
VBA

VBA调试——逐语句/逐过程/跳出

VBA作为excel的三大神器之一,初学者经常会遇到各种错误无从下手。语法错误好解决,有些程序逻辑上的错误就需要慢慢调试,慢慢培养思维习惯了。而调试VBA代码,是发现错误,分析错误,解决错误的重要一环。

诸多VBA课程都侧重于从语法/小练习/小案例上开始讲起,这当然便于循序渐进,保持学习兴趣,但是排查错误作为编制程序,尤其是新手编制程序必经的一环,大都放在最后捎带脚提一下,阁主觉得有必要在这里对VBA的调试功能做个简单的介绍,尽量让对VBA感兴趣的朋友可以独立排除程序中的错误。

阁主在这里说下 逐语句/逐过程/跳出 三个调试指令在使用过程中的区别。

逐语句:以单个语句为单位,逐条执行.
遇到调用的自定义子函数或子过程,会进入子过程和子函数逐条执行。

逐过程:在光标所在过程以单个语句为单位,逐条执行.
遇到调用自定义子函数或子过程,会自动执行到子函数或子过程返回后的下一条语句。

跳出:光标所在过程执行到返回上一层。

'“逐语句/逐过程/跳出”三个调试指令的区别
Sub caller()                        '父过程            ①

    Debug.Print "调用子过程callee开始" '                ②
    
    callee                          '调用子过程        ③ 
    
    Debug.Print "调用子过程callee结束"  '              ④
    
End Sub                                '             ⑤

Sub callee(Optional ByVal time = 5) '子过程           ⑥

    Debug.Print time                '                ⑦   
    
End Sub                             '                ⑧

'主要说的是逐语句/逐过程/跳出 三个调试指令在使用过程中的区别。

'逐语句:以单个语句为单位,逐条执行.
'        遇到调用的自定义子函数或子过程,会进入子过程和子函数逐条执行。
'         ①②③(⑥⑦⑧)④⑤

'逐过程:在光标所在过程以单个语句为单位,逐条执行.
'        遇到调用自定义子函数或子过程,会自动执行到子函数或子过程返回后的下一条语句。
'        ①②③④⑤

'跳出:光标所在过程执行到返回上一层。

'        ①②③(⑥⑦(跳出)④⑤

 

分类
VBA

VBA应用——按颜色求和

阁主在工作中,偶尔会碰到需要对标记颜色后的数据进行求和的情况,但是EXCEL中又没有合适的函数可以用来进行按颜色求和,于是,阁主用VBA写了一个函数,以后用起来就方便了。

使用方法:

1、打开VBA编辑器。开发工具→Visual Basic。开发工具栏默认不显示,在选项中设置其可见。

2、插入模块。打开Visual Basic编辑器后,插入→模块,双击新插入的模块打开代码编辑窗口。

3、粘贴代码。复制下方代码粘贴到代码编辑窗口

4、在单元格中调用函数。函数有两个参数,第一个是需要求和的区域,第二个参数为求和所参照的颜色标准。

=SUMCOLOR(A1:D10,A1)

 

Public Function SUMCOLOR(CEL As Range, CEL2 As Range)
    Dim s As Range
    For Each s In CEL
        If s.Interior.Color = CEL2.Interior.Color Then
            SUMCOLOR = SUMCOLOR + s.Value
        End If
    Next
End Function
Public Function CELLCOLOR(CEL As Range)
    Dim colorArray()
    ReDim colorArray(CEL.Rows.Count - 1, CEL.Columns.Count - 1)
    For i = 0 To UBound(colorArray)
        For j = 0 To UBound(colorArray, 2)
            colorArray(i, j) = CEL.Cells(i + 1, j + 1).Interior.Color
        Next
    Next
    CELLCOLOR = colorArray
End Function

 

分类
机械知识

工作日志——激光打标故障

激光打标机一般包括:激光发生器、光路偏转装置(振镜)、聚焦透镜组成。
日前,阁主公司遇到一种故障,激光打标成了一条线。
经过咨询相关厂家和拆开检查,确认问题是两个振镜中的一个没有正常工作。
但是,是振镜部分的故障还是前端控制电路的故障还不清楚。如果可能的话,周一拆开检查检查。有些小期待🙂,长长见识。

分类
杂谈

杂谈——远行

今天初六,阁主的假期余额已经不足,只好打点行囊,踏上北去的列车,颠簸十一小时去谋生活。

这个假期,虽然短暂,却弥足珍贵。过的很充实。虽然,回家前的计划并没有很好的完成,但也是有意想不到的收获的。

1、阁主终于摆脱了0驾龄的历史。从此也算是开过车的人了。虽然是货车🚚。

2、阁主设置的订票提醒短信经受住了实践的检验,成功帮助阁主抢到了想要的车票。

3、见了见老朋友,结识了新朋友。

2018,继续努力。

分类
杂谈

金桔柠檬茶

金桔柠檬茶是金桔与柠檬一起冲泡的茶,以金桔和柠檬为主料,做法简单,口味独特。金桔,它还有抗炎、去痰、抗溃疡、助消食、降血压、增强心脏功能和理气止咳等功效,对支气管炎有较显着的疗效作用。

喝起来酸酸的,透着些甜味儿,正如人生。

分类
杂谈

杂谈——家

昨天早上八点四十,阁主终于下了汽车,见到了一早等候的父亲,和那辆小货车。

作为一名拿本七年半,驾龄为0的“老司机”,阁主也禁不住父亲的鼓动,坐上了驾驶室。

(●—●)生平第一次有证驾驶,一个换证一年半的新手老司机战战兢兢,搜肠刮肚绞尽脑汁的回忆七年前的动作要领。

打火启动,踩离合挂档,半松离合,松手刹,回轮。动作一气呵成,然后挂上了二档飞速往前开(づ ●─● )づ

在旁边C1本实习期没结束的父亲指导下,总算把车开到了家附近,需要过最后一个Z字弯。只见阁主右满舵,右舵满,左满舵,左满舵,左满舵……只见阁主双脚紧蹬,耳边传来发动机的轰鸣,右边眼瞅着电线杆子扑面而来。哥慌了!阁主意识到刹车踩成油门了。。

所幸的是,阁主左脚踩了离合,也已经把七圈(右满到左满)打完,堪堪躲过电线杆子,车身也已经回正。经此一吓,阁主尝试的心也就淡了。悻悻然离开驾驶室,交还控制权。

回到家,把千里迢迢背回来的行车记录仪拿出来,安装到车上。折折腾腾的,下午才装好。

总结:得找机会练车。

分类
杂谈

软件推荐——铁路伴侣

年前,有一次回家,在北京西看到一个牌子,上面在宣传一款软件——《铁路伴侣》。作为好奇心可以灭绝喵星球的阁主必然不会视而不见啦。果断下载之,发现虽然还不太完善,但是很多地方还是很有帮助的。需要坐火车的朋友可以下载一个。

软件分4个栏目:

  • 我的行程
  • 旅程服务
  • 名站风采
  • 个人中心

我的行程栏

我的行程栏目可以扫描车票二维码添加行程信息,也可以手工选择发到站和车次时间。添加行程信息后能够查看候车室,检票口,正晚点等信息。

旅程服务栏

旅程服务栏有车站大屏信息,排队时间,换乘通道等信息。

名站风采

个人中心

亮点:

1 正晚点显示。个人觉得,这个正晚点显示还是比较靠谱的。因为火车就算晚点也是在调度之内的。阁主猜测,这些数据可能是调度方面的数据。

2 候车室和检票口显示。提前知晓候车室和检票口,就可以合理安排路线和时间,尤其对于赶时间的旅客非常方便。

3 车站大屏信息。车站大屏信息接合前面的正晚点信息,可以合理安排行程,结合换乘通道信息,方便中转旅客出行。

4 换乘通道信息。方便进行站内换乘,提高中转效率,节约时间。

分类
杂谈

杂谈——归乡

十一年前,机缘巧合下我第一次踏足北京。之后,在这里度过了三千多个日日夜夜。

上学的时候,放假早,可以早些回家,和家人多待些时日。走上工作岗位后,有些亲戚一年见上一面已属不易。

客居他乡生白发,归来何处觅旧知。时光荏苒,岁月蹉跎。

昔日少年,胸怀壮志,正心修身齐家治国平天下。今届而立,岁月蹉跎,工作加班挣钱完活讨老婆。

蓦然回首安逸久,朋辈已然绝尘走。迷茫了半年,不知道要做些什么。

举目四望,众友已然独当一面,阁主依旧在底层蹉跎岁月。

吾将何往?

www.cuijiange.com这个域名,阁主已经拿了5年,却没怎么用过。这次去,终于用起来了。

2018,把PHP学习学习,尝试着结合自己的工作内容,建立一个交互式网站。

学习微信小程序,结合php,尝试将现有的方法完善。

回头看,复习基础知识。曾经的敲门砖,还是得拾起来。

希望,告别单身。

分类
计算机知识日志

软件应用——设置12306付款通知

每年春运订票,都是费时费力费心的事儿。在放票的第一波能够抢到的人毕竟是少数,后面如何捡漏就成了关键。

阁主每年捡漏用的软件是木鱼的12306订票助手,有一个订票web通知的功能。可以在下订单后将自定义信息发送到指定的网址。这样,我们就不用时刻盯着屏幕了。只要在接到短信后及时付款就行了。

实现流程:

①软件生成一个post请求到制定网址,提交订单号/日期/车次/订票账户等信息。这一步,需要设置12306订票助手软件,启用订票web通知。

②建立php服务器,处理这个post请求,并调用腾讯云短信服务发送通知。

<?php
    require __DIR__ . "/vendor/autoload.php";
    use Qcloud\Sms\SmsSingleSender;
    // 短信应用SDK AppID
    $appid = 14001234567; // 1400开头
    // 短信应用SDK AppKey
    $appkey = "7654321012345677892342138";
    // 需要发送短信的手机号码
    $phoneNumbers = ["15001234567"];
    // 短信模板ID,需要在短信应用中申请
    $templateId = 88888;  // NOTE: 这里的模板ID`7839`只是一个示例,真实的模板ID需要在短信控制台中申请
    $order=$_POST["order"];
    $date=$_POST["date"];
    $acc=$_POST["acc"];
    $code=$_POST["code"];
    //将软件提交的数据组合成消息文本
    $msg="验证码".$order.",".$acc."您预订成功,订单信息".$date."日".$code."次,请及时确认。";	
    //验证码{1},{2}您预订成功,订单信息{3}日{4}次,请及时确认。
    // 签名
    $smsSign = "淬剑阁"; // NOTE: 这里的签名只是示例,请使用真实的已申请的签名,签名参数使用的是`签名内容`,而不是`签名ID`
    // 单发短信
    try {
        $ssender = new SmsSingleSender($appid, $appkey);
        $result = $ssender->send(0, "86", $phoneNumbers[0],
            $msg, "", "");
        $rsp = json_decode($result);
        echo $result;
    } catch(\Exception $e) {
        echo var_dump($e);
    }
?>