第二筆記本

有一個男生好想吃公司的一個女同事的豆腐,可惜這位女生已經有男朋友,
這個男生就想出一個條件給這個女生考慮:

"我放下一千元在地上,
我只可以在你彎腰到你拾一千元的時間摸你,
你拾完我就即刻停手..."
這個女生就問她的男朋友啦, 她男朋友就說:
"有一千元啊, 你就當在捷運遇到色狼囉, 拿錢拿快一點,
他最多摸你幾下罷~~"
最後這個女生答應這個要求啦,
而她的男朋友亦在公司樓下等她, 過了 30 分鐘這個女生還未下來...
男朋友打電話給這個女生問發生什麼事啦,
這個女仔就說:...
"...這個混蛋用硬幣呀 !"

話說同學的姐姐和姐夫開車到鄉下去玩，
車子開到一條四處毫無人煙的鄉間小路上，
眼下沒有任何人家、商家……
姐姐突然覺得胃腸絞痛，想要拉肚子，不知如何是好……
一路上又沒有人家可以借廁所用……

疲憊不堪的丈夫對妻子說：不管誰打電話來，都說我不在。一會兒，電話鈴聲響了，
妻子拿起話筒小聲地說：喂！我先生現在在家啦！
我不是交代過你，要說我不在嗎？丈夫怒氣沖沖地吼道。

電話是打給我的。妻子回答。
------------------
真實鬼壓床
話說,那一年我一位表弟阿明仔去服兵役。
經過集合、聽訓、被上頭操的半死後，總算到了夢幻般美好的就寢時間(但是很短)。
豈料,921後受侵襲的宿舍竟還沒完全修好！也沒辦法大家只好住進漏水、有裂縫、陰暗且不時發出噪音﹝例：門的砰砰聲、床搖晃的嘎吱聲等﹞的寢室。
半夜,明仔睡的正死時,突然感到胸前有一陣重重東西壓上來的感覺，
便想起阿公說過「當兵時常有鬼壓床」，便照阿公吩咐唸
起「阿彌陀佛」！
但是...........竟然.............沒效!!
聽軍營中的老兵說“有的鬼怪妖孽法力比較強，一般經文可能無效”，該不會就這麼衰給自己碰上了吧!
但是明仔對佛經一竅不通，只會唸「阿彌陀佛」!!
就這樣，明仔ㄍ一ㄥ到日出，本以為沒事了，但那股壓迫感仍然存在，只覺得胸口悶、呼呼困難，心想自己大概快嗝屁了，阿明不禁流淚，便張開雙眼，想說都快掛了，在臨終前還要再看世界一眼........卻發現超級恐怖的事情發生了........
...........
.. ......
............
............
全軍營的弟 兄都在看著他，說:
............
............
「哇勒！！！天花板壓下來你都沒感覺喔？！？！？！」

影子豬剛被女友拋棄，碰巧在大街上撞見前女友和新歡調情，他越看越氣，想羞辱他們一下。於是很有禮貌上前打了個招呼，並很鄙視地對女友新歡說：“我用過的舊貨你也不嫌棄！”正當他為自己創意得意的時候，前女友卻笑出聲道：“外面一寸是舊的，裏面全是嶄新的！”

若A1,A2分別是年份與月份,則
CEILING((DATE(A1,B1,1)-2)/7,1)*7+2+7 可算出當月的第二個星期一是幾號,
若要找的是星期二，公式里的2改为3，星期日为1，其他类推。
若要找的是第一个星期，最后面的"+7"不要，第二个星期是"+7"，第三个星期"+14"...
[感謝網管人論壇的oobird指教]

SUMPRODUCT({1,2,3,4,5},{1,0,1,0,1},{1,1,0,1,1})=6
SUMPRODUCT({1,2,3,4,5})=15

SUMPRODUCT(LARGE(A1:A10,ROW(A1:A5)))

若A1,B1都是時間,則
--TEXT(B1-A1,"hh") 可算出A1~B1之間有幾個小時(無條件捨去)
其中,hh是把時間格式轉成小時格式,--轉換成數字格式
[節錄自網管人論壇]

若a1,b1都是年/月/日,
datedif(a1,b1,"m") : a1~b1之間有幾個月
datedif(a1,b1,"d") : a1~b1之間有幾天
[節錄自網管人論壇]

Sub d2p()
nPC = ExecuteExcel4Macro("Get.Document(50)")
For nI = 1 To nPC
ActiveSheet.PageSetup.CenterHeader = IIf(nI = 1, _
"--------------------------------------------", _