分类目录归档:唧唧歪歪(BM流水账大全)

Final Audit小结(二)

今天有几个同事从中石化的项目上release了,经理突然宣布给大家几天倒休。这样走多少有点突然,换作是我的话,肯定会有依依不舍的感觉。毕竟在Sinopec这个项目上整整战斗了两个多月,在三楼的大会议室里,六七十人一起做合并,同为战友啊。就这么突然说再见了,虽然还会在Office见面,但被大项目Book的归属感是从别处得不到的。下礼拜该轮到我从中石化release了,争取走之前把任务交接好,多做一些事情,给后面Follow擦屁股的人减轻点负担。

其实中石化下site之前,还去了趟徐州盘点油库。之前听老妈的姐们儿的女儿说盘点有多苦多苦,天有多冷多冷,油罐有多高多高,我是一点没感觉。盘点的时候徐州的天气很好,整个油库也很干净整洁,加上顺着狭窄的铁楼梯爬上十几米高的油罐顶儿上往下看一点儿也不晕,所以我还是挺享受这个过程的。毕竟是一种难得的经历么,别处无法体会。当初在回答Par问我为什么选择KP的时候,我就说了"KPMG makes my life COLORFUL"。一个人仰在宾馆的大床上,猥琐的看着FashionTV,然后翻翻隔天要用的资料,再拿出自己编的《中石化下游油库盘点表》沾沾自喜一下,多么滋润惬意的生活~ 我其实挺厌倦一成不变的生活的,千篇一律的生活还不如直接杀了我。当初之所以没有选择去更安逸的企业也是因为一想到以后每天都要面对财务室那些刚进入更年期的颇显狂躁的大妈的八卦的搬弄是非的嘴脸我就受不了,所以削尖了脑袋也要往事务所钻。所庆幸的是当初颇费周折但最终还是如愿的来到了KP。不知道当初为什么没给我直接面Par的机会,而我也是入职以后才知道我那个大牛叉in-charge当初在我实习的Performance Assessment Form上给我填了2分,相当于Top Pay的水平啊~

话题扯远了。

我到南京的时候正好是周六,其实不是“正好”,其实是自己故意安排的,就想多混一天差补,嘿嘿嘿……,其实也是为了提前到那里,看看有什么需要准备的,毕竟Team其他人已经在客户那儿做了一个礼拜的SOX了。不过杜总和郑姐在澳门豆捞给我接风后,让我好好休息两天,做好打硬仗的准备。我也偷得一身闲,跑到侵华日军南京大屠杀遇难同胞纪念馆接受爱国主义教育。侵华日军南京大屠杀遇难同胞纪念馆关于那段惨痛的历史,我不想说的更多,只是希望更多人能铭记那些死难的同胞,到南京有机会一定到纪念馆看看。门口的“倒下的300000人”的抽象雕塑,第一展厅的警钟声&满墙的死难者名字,“万人坑”遗骨现场,每十二秒一次的水滴,巨大的档案资料墙,绝对震撼你的心灵。纪念馆的墙上写着“让白骨可以入睡,让冤魂能够安眠,把屠刀化铸警钟,把逝名刻作史鉴,让孩童不再惊恐,让母亲不再泣叹,让战争远离人类,让和平洒满人间”。愿望很美好,文字更委婉,不过我知道每一位参观纪念馆的中国人都会更加委婉的骂一句:“操你妈!小日本!”

其实南京是我除了北京最有好感的一个城市。一个“北”京,一个“南”京,或许是几朝古都间的惺惺相惜,或许就是一种莫名的喜欢。在纪念馆买了本《东史郎日记》作为留念。之后错误的选择了嘈杂的夫子庙游玩,悻悻,回宾馆宅到周一,开始中石化现场审计。

Excel Tricks:自用Macro

虽然做了Auditor,但不能荒废我计算机专业的底子。做了这么多项目了,编了几个常用的宏,放上来分享。如果你不知道如何自定义按钮并绑定宏的话,基本上就可以忽略此篇文章了……不过要是想用下面的宏的话,我可以帮忙免费安装~看~我人多好~
(由于WP的问题,所有的引号都被自动转换为中文格式,请需要者自行修改)

1.将所选单元格标定为绿色,一般做Highlight用。当然了,可以定义多种颜色来区别不同属性的单元格,就比如我,自定义了五种颜色:黄,红,蓝,橙,蓝……

Sub 单元格染成绿色()
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
End With
End Sub

2.将所选单元格的格式在`General`和`底稿专用格式`之间切换。这里的`底稿专用格式`指不保留小数位,标记千分位,负数用括弧红字表示的格式,例如(43,672,135)。这种格式标记贷方数非常合适,非常Pro~

Sub 单元格显示格式()
If Selection.NumberFormat <> "General" Then
With Selection
.NumberFormat = "General"
End With
ElseIf Selection.NumberFormat = "General" Then
With Selection
.NumberFormat = "_(* #,##0_);[Red]_(* (#,##0);_(* ""-""??_)"
End With
ElseIf Selection.NumberFormat = "_(* #,##0_);[Red]_(* (#,##0);_(* ""-""??_)" Then
With Selection
.NumberFormat = "General"
End With
End If
End Sub

3.让所选单元格中的文字自动适应定义的单元格的宽,也就是自动换行。这个省去了为选定`Format Cells`中`Wrap text`的若干次点击。

Sub 自动换行()
If TypeName(Selection) = "Range" Then
Selection.WrapText = Not ActiveCell.WrapText
Selection.VerticalAlignment = xlTop
End If
End Sub

下面三个宏都是从KP开发的强大的Excel插件EQUXI中提取的精华:

4.将所选单元格中的数字的符号进行变换。这个很有用了,就是正变负,负变正了,说Pro一点就是,借变贷,贷变借了。再配合第2个宏使用,那简直是完美~

Sub 正负号转换()
On Error GoTo ErrorHandler
Dim my_cell As Range, s As String, r As Range
Set r = Application.Intersect(ActiveSheet.Cells.SpecialCells(xlCellTypeConstants), Selection)
If Not r Is Nothing Then
For Each my_cell In r
If IsNumeric(my_cell.Value) Then my_cell.Value = -my_cell.Value
Next my_cell
End If
ErrorHandler:
End Sub

5.将所选单元格中的数字加总后粘贴到粘贴板。有时候需要加总不连续单元格中的数,这个宏就省去了若干麻烦的过程,只需一次点击就能完成多步,直接粘贴数值就好了~

Sub 所选区域加总后复制到粘贴板()
On Error Resume Next
Dim my_range As Range
Dim i As Double
Dim Clipbrd As New DataObject
Set myRange = Selection.Cells.SpecialCells(xlCellTypeVisible)
i = Application.Sum(myRange)
Clipbrd.SetText i
Clipbrd.PutInClipboard
Set myRange = Nothing
End Sub

6.打开当前文件所在文件夹

Sub 打开当前文件所在文件夹()
Const PROC_NAME As String = "OpenExplorerDirectory"
On Error Resume Next
Shell "explorer.exe /n,/e," & Application.Substitute(ActiveWorkbook.FullName, ActiveWorkbook.Name, ""), vbMaximizedFocus
On Error GoTo 0
End Sub