目前分類:excel (19)

瀏覽方式: 標題列表 簡短摘要
  • Jul 17 Wed 2019 09:34
  • 置頂 memo

  • 這是一篇加密文章,請輸入密碼
  • 密碼提示:blog裡面的
  • 請輸入密碼:

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

文章標籤

pixso 發表在 痞客邦 留言(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"


文章標籤

pixso 發表在 痞客邦 留言(0) 人氣()

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


pixso 發表在 痞客邦 留言(0) 人氣()

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

[節錄自網管人]

pixso 發表在 痞客邦 留言(0) 人氣()

application.calculation=xlmanual
application.calculation=xlAutomatic

pixso 發表在 痞客邦 留言(0) 人氣()

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

[感謝網管人論壇的oobird指教]

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

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

pixso 發表在 痞客邦 留言(0) 人氣()

1.打開分析工具箱增益集
2.networkdays(開始日,結束日)

=(B1-A1)-INT(B1-A1)-IF(HOUR(B1)>HOUR(A1),0,1)+networkdays(A1,B1)
格式設為:d"日" hh:mm"時"
[節錄自網管人Excel討論區]

pixso 發表在 痞客邦 留言(0) 人氣()

自訂格式:

aaa =>週六

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


文章標籤

pixso 發表在 痞客邦 留言(1) 人氣()