第二筆記本

Sub 轉折公式化()

  Range("AA52") = "供下列判斷的dir"
  Range("AB52") = "供下列判斷的上界"
  Range("AC52") = "供下列判斷的下界"
  Range("AD52") = "dir"
  Range("AE52") = "新的上界"
  Range("AF52") = "新的下界"
  Range("AG52") = "新的上界的列號"
  Range("AH52") = "新的下界的列號"
  Range("AI52") = "轉折的列號"
  Range("AJ52") = "轉折值"

  Range("AA54") = 1 '1:上  2:下
  Range("AB54") = 0 '初始上界
  Range("AC54") = 999999 '初始下界
  Range("AD54") = 0.05 '股票用,代表漲跌倍數 ; 若為期貨 則應設為 0

Sub 關機()
    Shell shutdown - s - t1800
End Sub

Sub 取消關機()
  Shell ("shutdown -a") ' 取消關機
  Shell ("cmd") ' 取消關機
End Sub

Sub test_at()
  Dim s1 As String
  s1 = "at 14:10 " & Chr(13) & "shutdown -s -t120" & Chr(13)
  Shell (s1)

End Sub
at 16:15 "shutdown -s -t180"

計算D,G兩欄差值的絕對值的總和
=SUMPRODUCT(ABS(D213:D242-G213:G242))/(MAX(D213:D242)-MIN(G213:G242)+1)*100

With Workbooks("a.xls")
　.Saved = True
　.Close
End With
關閉用：
application.quit

[節錄自網管人]

application.calculation=xlmanual
application.calculation=xlAutomatic

若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))
[節錄自網管人論壇]

1.打開分析工具箱增益集
2.networkdays(開始日,結束日)
或
=(B1-A1)-INT(B1-A1)-IF(HOUR(B1)>HOUR(A1),0,1)+networkdays(A1,B1)
格式設為：d"日" hh:mm"時"
[節錄自網管人Excel討論區]

自訂格式：

aaaa =>星期六
ddd =>Sat
dddd =>Saturday
eee 或 rr =>民國年(ex. 輸入2007 -> 顯示96)
gg =>"民國"
ggg =>"中華民國"