时鹏亮的Blog

办理上海居转户，审查的一个重要因素就是社保，如何查询自己多年的社保基数及社保缴费金额呢？按照以下步骤即可

Win10设置了共享文件夹，比如我期望是家里的局域网使用，无需密码，比如电视直接通过SMB方式访问。
那么如何设置Win10共享文件夹局域网无密码访问呢？

上了一定年纪的，要多利用自己积累的资源，也要多学习把身边能做的事情、能赚的钱赚到位，评估好自己的各项能力，有的放矢。有目标的行动，而不可整天到处漫无目的像个苍蝇一样，弄这弄那，至少概率上说不会有太多取得成绩的概率。

From：生财有术-刘大猫

有时我们的单元格可能存在一长串的数字，Excel默认会将该单元格显示成科学计数法。而我们预期是想展示成字符串。
那么VBA如何设置指定单元格的长串数字正常显示而不是显示科学计数法呢？

If IsNumeric(Cells(hang, 10).Values) Then
    Ce[......]

我们在提升自己时，最关键的点是找到那些能给自己增加社会竞争力的优势，然后不断强化，而不是去改所谓的缺点，除非那个缺点是致命的，因为我们人生有限，你改完了所有缺点到死那天，也不过是个“合格”的一般人罢了，有意思吗?

From：生财有术-贾万兴

偶尔我们指定了行高度后，需要对应行的单元格自动换行，那么VBA如何实现指定范围的行中的单元格自动换行呢？
如下代码即可：

Range("A" & hang & ":R" & hang).WrapText = True[......]

赚钱无非两种：看的比别人远，跑的比别人快。

From：生财有术-赵宝名

有时需要指定行高，VBA如何实现呢？一行代码即可：

Rows(hang).RowHeight = 110

上述代码即实现了指定hang的高度为110[……]

有这么个需求，Excel有一列是图片地址，现在需要将图片地址下载成图片。
那么如何处理呢？想来必然是要用VBA宏的。网上搜了下实现，demo代码如下：

Sub URLPictureInsert()
Dim Pshp As ShapeDim xRg As RangeDim xCol A[......]

Wireshark抓包，有时碰到服务端启用了gzip压缩后，就无法看到封包的正常内容请求了。那么Wireshark如何查看gzip内容呢？
方法如下：

代码-工作经验-成长积累