' ------------------------------------------------------------
' 查看目前開啟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
' ------------------------------------------------------------
港股即時
Economic Calendar
Monday, September 11, 2017
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
Tuesday, June 20, 2017
Ethereum 以太坊
以太坊主頁
https://ethereum.org/
以太坊中文白皮書
https://github.com/ethereum/wiki/wiki/%5B%E4%B8%AD%E6%96%87%5D-%E4%BB%A5%E5%A4%AA%E5%9D%8A%E7%99%BD%E7%9A%AE%E4%B9%A6
https://ethereum.org/
以太坊中文白皮書
https://github.com/ethereum/wiki/wiki/%5B%E4%B8%AD%E6%96%87%5D-%E4%BB%A5%E5%A4%AA%E5%9D%8A%E7%99%BD%E7%9A%AE%E4%B9%A6
簡介
以太坊(Ethereum)是像網路一樣的基礎建設,一個開源具有智能合約的公共區塊鏈平台,能讓所有人在以太坊的基礎上搭建各種區塊鏈應用,而以太幣(ether)則是基於以太坊技術的其中一種虛擬加密貨幣(Cryptcurrency),作為各種以太坊project應用開發的首次代幣眾籌ICO (Initial Coin Offerings)的燃料。
以太坊希望實踐的是像TCP/IP協議這樣的標準,能讓以太坊區塊鍊協議內置程式語言,兼容各種區塊鏈的應用,不用像過去那樣各自為政分別定義自己的區塊鏈協議,只能支持少數應用且彼此互不兼容,而讓開發者能夠在以太坊定義好的區塊鏈協議用程式語言進行高效快速的開發應用。也因為他支持程式語言讓以太坊能有無限寬廣的可能性,可以建構複雜的智能合約(Smart Contract)、去中心化的自治組織DAO (Decentralized Autonomus Organization)、去中心化的自主應用DApps (Decentralized Autonomous Apps)、或是其他的虛擬加密貨幣。以太坊就像是一台全球電腦,任何人都可以上傳與執行應用程式。
Subscribe to:
Posts (Atom)


