Wireless lan
https://wlanlessonslearned.wordpress.com/2014/12/15/translating-mw-dbm-mhz-and-channels/
港股即時
Economic Calendar
Thursday, September 21, 2017
Monday, September 11, 2017
VBA
' ------------------------------------------------------------
' 查看目前開啟excel檔案數量
Dim OpenCnt as Integer
OpenCnt = Application.Workbooks.Count
' ------------------------------------------------------------
' 依序查已開檔名 - 方法一
Dim i As Integer
For i = 1 To Workbooks.Count
MsgBox i & " " & Workbooks(i).Name
Next
' ------------------------------------------------------------
' 依序查已開檔名 - 方法二
Dim my Sheet As WorkSheet
For Each mySheet In Worksheets
MsgBox mySheet.Name
Next mySheet
' ------------------------------------------------------------
' 開啟特定檔案 - 方法一
filename = "C:\VBA\test.xls"
Workbooks.Open filename
' ------------------------------------------------------------
' 開啟特定檔案 - 方法二
Dim filename As String
filename = "C:\VBA\test.xls"
Dim sn As Object
Set sn = Excel.Application
sn.Workbooks.Open filename
' sn.Workbooks(filename).Close ' 關閉
Set sn = Nothing
' ------------------------------------------------------------
' 關閉指定檔案, 不提示訊息
Dim filename As String
filename = "Test.xls" ' 這裡只可以給短名,給全名會錯
' 假設 Test.xls 已於開啟狀態
Application.DisplayAlerts = False ' 關閉警告訊息
Workbooks(filename).Close
Application.DisplayAlerts = True ' 再打開警告訊息
' ------------------------------------------------------------
' 關閉所有開啟檔案, 但留下主視窗
Workbooks.Close
' ------------------------------------------------------------
' 關閉 excel 程式
Application.Quit
' ------------------------------------------------------------
' 直接進行存檔
Dim filename As String
filename = "a.xls" ' 只可為短檔名
WorkBooks(filename).Save
' ------------------------------------------------------------
' 指定檔名進行另存新檔,並關閉
' 假設要將 "a.xls" 存成 "C:\b.xls"
Application.DisplayAlerts = False ' 關閉警告訊息
Workbooks("a.xls").SaveAs "C:\b.xls" ' 另存新檔
Workbooks("b.xls").Close ' 關閉 b.xls
Application.DisplayAlerts = True ' 開啟警告訊息
' ------------------------------------------------------------
' 指定當前活頁簿
Dim Caption as String
Caption = "a.xls"
Workbooks(Caption).Activate ' 將視窗切到 a.xls
' ------------------------------------------------------------
Data Type Cheat
End with:
$ : String
% : Integer (Int32)
& : Long (Int64)
! : Single
# : Double
@ : Decimal
Start with:
&H : Hex
&O : Octal
' ------------------------------------------------------------
' 查看目前開啟excel檔案數量
Dim OpenCnt as Integer
OpenCnt = Application.Workbooks.Count
' ------------------------------------------------------------
' 依序查已開檔名 - 方法一
Dim i As Integer
For i = 1 To Workbooks.Count
MsgBox i & " " & Workbooks(i).Name
Next
' ------------------------------------------------------------
' 依序查已開檔名 - 方法二
Dim my Sheet As WorkSheet
For Each mySheet In Worksheets
MsgBox mySheet.Name
Next mySheet
' ------------------------------------------------------------
' 開啟特定檔案 - 方法一
filename = "C:\VBA\test.xls"
Workbooks.Open filename
' ------------------------------------------------------------
' 開啟特定檔案 - 方法二
Dim filename As String
filename = "C:\VBA\test.xls"
Dim sn As Object
Set sn = Excel.Application
sn.Workbooks.Open filename
' sn.Workbooks(filename).Close ' 關閉
Set sn = Nothing
' ------------------------------------------------------------
' 關閉指定檔案, 不提示訊息
Dim filename As String
filename = "Test.xls" ' 這裡只可以給短名,給全名會錯
' 假設 Test.xls 已於開啟狀態
Application.DisplayAlerts = False ' 關閉警告訊息
Workbooks(filename).Close
Application.DisplayAlerts = True ' 再打開警告訊息
' ------------------------------------------------------------
' 關閉所有開啟檔案, 但留下主視窗
Workbooks.Close
' ------------------------------------------------------------
' 關閉 excel 程式
Application.Quit
' ------------------------------------------------------------
' 直接進行存檔
Dim filename As String
filename = "a.xls" ' 只可為短檔名
WorkBooks(filename).Save
' ------------------------------------------------------------
' 指定檔名進行另存新檔,並關閉
' 假設要將 "a.xls" 存成 "C:\b.xls"
Application.DisplayAlerts = False ' 關閉警告訊息
Workbooks("a.xls").SaveAs "C:\b.xls" ' 另存新檔
Workbooks("b.xls").Close ' 關閉 b.xls
Application.DisplayAlerts = True ' 開啟警告訊息
' ------------------------------------------------------------
' 指定當前活頁簿
Dim Caption as String
Caption = "a.xls"
Workbooks(Caption).Activate ' 將視窗切到 a.xls
' ------------------------------------------------------------
Data Type Cheat
End with:
$ : String
% : Integer (Int32)
& : Long (Int64)
! : Single
# : Double
@ : Decimal
Start with:
&H : Hex
&O : Octal
' ------------------------------------------------------------
Monday, September 4, 2017
SQL (Structured Query Language)
SQL四大語言:
- 資料定義語言 (DDL - Data Definition Language)
- 定義語言到底是要定義什麼東西,CREATE、ALTER與DROP這就是定義TABLE名稱
- 資料操縱語言 (DML - Data Manipulation Language)
- 操作語言就是要操作你的資料,當你有大量的資料要輸入怎麼做,這時候就有INSERT、UPDATE、DELETE,這三個東西其中兩個東西很可怕,因為命令打錯資料就是消失,所以UPDATE、DELETE使用時要非常的謹慎。
- 資料查詢語言 (DQL - Data Query Language)
- 當你都新增好資料後,當然就會需要做查詢動作
- 資料控制語言 (DCL - Data Control Language)
- (DTL- Data Transaction Language)
Wednesday, August 16, 2017
Android 選單
https://developer.android.com/guide/topics/ui/menus.html?hl=zh-tw#options-menu
Code:
1 protected static final int MENU_ABOUT = Menu.FIRST;
2 protected static final int MENU_Quit = Menu.FIRST+1;
3
4 @Override
5 public boolean onCreateOptionsMenu(Menu menu) {
6 super.onCreateOptionsMenu(menu);
7 menu.add(0, MENU_ABOUT, 0, "關於...");
8 menu.add(0, MENU_Quit, 0, "結束");
9 return true;
10 }
11
12 @Override
13 public boolean onOptionsItemSelected(MenuItem item)
14 {
15 super.onOptionsItemSelected(item);
16 switch(item.getItemId()){
17 case MENU_ABOUT:
18 openOptionsDialog();
19 break;
20 case MENU_Quit:
21 finish();
22 break;
23 }
24 return true;
25 }
Code:
1 protected static final int MENU_ABOUT = Menu.FIRST;
2 protected static final int MENU_Quit = Menu.FIRST+1;
3
4 @Override
5 public boolean onCreateOptionsMenu(Menu menu) {
6 super.onCreateOptionsMenu(menu);
7 menu.add(0, MENU_ABOUT, 0, "關於...");
8 menu.add(0, MENU_Quit, 0, "結束");
9 return true;
10 }
11
12 @Override
13 public boolean onOptionsItemSelected(MenuItem item)
14 {
15 super.onOptionsItemSelected(item);
16 switch(item.getItemId()){
17 case MENU_ABOUT:
18 openOptionsDialog();
19 break;
20 case MENU_Quit:
21 finish();
22 break;
23 }
24 return true;
25 }
Friday, August 11, 2017
Monday, July 3, 2017
Thursday, June 29, 2017
Subscribe to:
Posts (Atom)


