第二筆記本

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

話說同學的姐姐和姐夫開車到鄉下去玩，
車子開到一條四處毫無人煙的鄉間小路上，
眼下沒有任何人家、商家……
姐姐突然覺得胃腸絞痛，想要拉肚子，不知如何是好……
一路上又沒有人家可以借廁所用……
『啊!!不然妳就拉在路邊的田裡，我幫妳把風，
反正……天色有點暗，應該不會有人看到的啦 !!』
姐夫很聰明的說。

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

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

若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, _
"--------------------------------------------", _
"-------------------CONTINUE-----------------")
ActiveSheet.PageSetup.CenterFooter = IIf(nI = nPC, _
"--------------------------------------------", _
"----------------TO BE CONTINUE--------------")
ActiveSheet.PrintOut From:=nI, To:=nI
Next
End Sub
[節錄自網管人論壇]

SUMPRODUCT((A1:A5="夜")*(B1:B5="夜"))

用巨集[b1]=Evaluate(Replace([a1], "=", ""))
[節錄自網管人論壇]

若A1=年份,B1=月份 ===> 則DAY(DATE(A1,B1+1,1)-1)=當月有幾天
[節錄自網管人論壇]

ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
[節錄自網管人論壇]

Q:如何取出 76年到職的人數
比如說 A
1 到職日期
2 76/08/02
3 76/05/04
4 74/01/01
5 77/09/09
6 76/05/08

A:若你是民國年的日期格式：
=SUMPRODUCT(--(YEAR(A1:A6)=1987))
[節錄自網管人論壇]