- Sep 13 Wed 2017 21:41
-
為相片加上GPS資訊 on MAC OS
- May 30 Sat 2015 23:21
-
讓ASUS T100可以關閉螢幕，還可以連接網路或執行程式
在左下開始->"搜尋程式及檔案"輸入regedit，開啟修改機碼的視窗
找到HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Power\CsEnabled
CsEnabled點兩下後，把1改成0
這樣再去"電源計畫"那邊點選"變更計畫設定"，就只會出現"關閉顯示器"的時間調整了
原本的休眠跟關機就沒了
找到HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Power\CsEnabled
CsEnabled點兩下後，把1改成0
這樣再去"電源計畫"那邊點選"變更計畫設定"，就只會出現"關閉顯示器"的時間調整了
原本的休眠跟關機就沒了
- Dec 18 Thu 2014 20:08
-
[EXCEL] 圖表趨勢線產生的公式
參考網址:https://spreadsheetpage.com/index.php/tip/chart_trendline_formulas/
最近在分析資料時會需要用到EXCEL圖表產生的趨勢線(Trendline)，這功能很方便可以自動產出趨勢線的公式及誤差(R)，但是圖表產生的公式參數用VBA好像取不出來...(倒)
找到另一個近似的方法
最近在分析資料時會需要用到EXCEL圖表產生的趨勢線(Trendline)，這功能很方便可以自動產出趨勢線的公式及誤差(R)，但是圖表產生的公式參數用VBA好像取不出來...(倒)
找到另一個近似的方法
- Dec 18 Thu 2014 20:02
-
[Python] 印出變數的type
參考網址:https://linux.byexamples.com/archives/342/python-how-to-identify-the-type-of-your-variable/
下面這個不能放在print後面
type(var)
所以要用下面這個，就可以在run time時印出變數的type
下面這個不能放在print後面
type(var)
所以要用下面這個，就可以在run time時印出變數的type
- Dec 15 Mon 2014 10:37
-
EXCEL VBA enable/disable controls on workbook or UserForm
若想要在VBA運作時，先關掉所有的conrtrols，等運作完再打開可以參考以下的做法
Controls項目昰在UserForm上
Private Sub CommandButton_Click()
'Disable All Controls while running
DisableAllControls Me
'Do anything you want...
'Enable All Controls after finish
EnableAllControls Me
End Sub
Function EnableAllControls(frm As UserForm)
Dim ctrl As Controls
For Each ctrl In frm.Control
If TypeName(ctrl) = "CommandButton" Or TypeName(ctrl) = "ListBox" Or TypeName(ctrl) = "CheckBox" Or TypeName(ctrl) = "TextBox" Then
ctrl.Enabled = True
End If
Next
Set ctrl = Nothing
End Function
Function DisableAllControls(frm As UserForm)
Dim ctrl As Controls
For Each ctrl In frm.Control
If TypeName(ctrl) = "CommandButton" Or TypeName(ctrl) = "ListBox" Or TypeName(ctrl) = "CheckBox" Or TypeName(ctrl) = "TextBox" Then
ctrl.Enabled = False
End If
Next
Set ctrl = Nothing
End Function
Controls項目昰在UserForm上
Private Sub CommandButton_Click()
'Disable All Controls while running
DisableAllControls Me
'Do anything you want...
'Enable All Controls after finish
EnableAllControls Me
End Sub
Function EnableAllControls(frm As UserForm)
Dim ctrl As Controls
For Each ctrl In frm.Control
If TypeName(ctrl) = "CommandButton" Or TypeName(ctrl) = "ListBox" Or TypeName(ctrl) = "CheckBox" Or TypeName(ctrl) = "TextBox" Then
ctrl.Enabled = True
End If
Next
Set ctrl = Nothing
End Function
Function DisableAllControls(frm As UserForm)
Dim ctrl As Controls
For Each ctrl In frm.Control
If TypeName(ctrl) = "CommandButton" Or TypeName(ctrl) = "ListBox" Or TypeName(ctrl) = "CheckBox" Or TypeName(ctrl) = "TextBox" Then
ctrl.Enabled = False
End If
Next
Set ctrl = Nothing
End Function
1
