掃描器

全友 XT-3300 書本專用高速掃描器 9488元
http://24h.pchome.com.tw/DCAE0H-A56442902 

Plustek OpticBook 3800 專業書本掃描器  8820元
http://shopping.pchome.com.tw/DCAE0W-A55241689

Plustek OpticBook 4800專業進階書本掃描器 17010 元
http://shopping.pchome.com.tw/DCAE0W-A55290719

直拍型掃瞄器S300L 4980元
http://shopping.pchome.com.tw/DSACAP-A73771342

Ion Audio Book saver書本翻拍器 9900元
http://shopping.pchome.com.tw/DSACAP-A78179479
換成數位JPG檔


Avision 行動CoCo棒2L 鋰電版 (MiWand2L)   2888元
http://24h.pchome.com.tw/?mod=item&func=exhibit&IT_NO=DCAE1R-A73430861&SR_NO=DCAE1D

iSken - Magicscan 專業版 T4ED 二合一分離式手持隨身掃描器 6380元
http://shopping.pchome.com.tw/AIAE93-A74890769
可連接電腦進紙，直接變身桌上型掃描器！！，連接電腦不再只是大型隨身碟！

IPEVO Ziggi-HD USB 實物文件攝影機
http://shopping.pchome.com.tw/DCAS06-A80511687

IPEVO P2V USB實物投影攝影機 1900元
http://shopping.pchome.com.tw/DSAD7S-A80509460
 

運動、肌力鍛鍊

曲肘平板抬腿

在家健身基礎動作：深蹲 (SQUAT)
在家健身基礎動作：伏地挺身 (PUSH-UP)

https://www.facebook.com/bbetterjoe
慢慢跑  老師沒教的事( 國興衛視) 20110110 活腦強筋運動-不一樣的慢跑  

徐國峰《運動生命、體能訓練與跑步技術》講座

原地跑步减肥大法

不用慢跑的有氧？「高強度間歇有氧」介紹

數學的應用

複數的概念與應用. 李恭晴教授  


圓錐曲線的第一堂課 - 康熹

摺紙vs.高中數學

圓錐曲線切線的尺規作圖

用同心圓來描繪圓錐曲線及切線的尺規作圖

音樂：好聽音樂

Henrik Chaim Goldschmidt plays "Gabriel's Oboe"
http://www.youtube.com/watch?v=2WJhax7Jmxs
Ennio Morricone - The Mission Main Theme (Morricone Conducts Morricone) 
http://www.youtube.com/watch?v=oag1Dfa1e_E

Enya Athair ar neamh.avi
http://www.youtube.com/watch?v=AsmNSlZRvX0
Enya Greatest Hits - Full Album
http://www.youtube.com/watch?v=2ABlQXmbcp8

Sarah Brightman & Andrea Bocelli - Time to Say Goodbye 1997 Video stereo widescreen
http://www.youtube.com/watch?v=Nl9WMIPzd6w 

Andrea Bocelli & Aida Garifullina - Time To Say Goodbye - David Foster Miracle Gala & Concert 2013
http://www.youtube.com/watch?v=4FoR-k4ACwM

Andrea Bocelli - Besame Mucho (2006)
http://www.youtube.com/watch?v=gPRESlT4Ccg

音樂：Hayley Westenra

I DREAMED A DREAM - Hayley Westenra
http://www.youtube.com/watch?v=ZSwx2MdUKzw
海莉·薇思特拉 - 主題 
http://www.youtube.com/channel/UCnFb9eL17CT89WEBd4XWPSw
Hayley Westenra - Both Sides Now
http://www.youtube.com/watch?v=rd8azeG1Bu0

《天堂美聲》HAYLEY WESTENRA 全新大碟 "Paradiso" 主打 "Gabriel's Oboe"(Whispers In A Dream)MV 
http://www.youtube.com/watch?v=ColIkgHBF7E


 

EXCEL VBA：移動與選取其它方法

 
http://support.microsoft.com/kb/291308/zh-tw

ActiveSheet.Range("A3", ActiveSheet.Range("A65536").End(xlUp)).Select   '自A3起到該欄最下方的非空儲存格

Range("D4").End(xlUp).Select    '自D4向上連續資料中之最上方的儲存格
Range("D4").End(xlDown).Select  '自D4向下連續資料中之最上方的儲存格
Range("D4").End(xlToRight).Select '自D4向上連續資料中之最右方的儲存格
Range("D4").End(xlToLeft).Select  '自D4向上連續資料中之最左方的儲存格
Range("D65536").End(xlUp).Select  'D欄中最下方的非空儲存格。
Range("D1").End(xlDown).Select     'D欄中最上方的非空儲存格。

EXCEL VBA：在儲存格內寫入EXCEL公式

Range("B1").Formula = "=sum(A1:A3)"

'公式是「=if(A1="","空","不空")」寫在VBA時，" 要改成 ""
Range("B2").Formula = "=if(A1="""",""空"",""不空"")"

EXCEL VBA：FIND

Sub X()
    '在A1:A10000中尋找"Excel"
    Dim rngX As Range
    Set rngX = Worksheets("Sheet1").Range("A1:A10000").Find("Excel", lookat:=xlPart)
    If Not rngX Is Nothing Then
        MsgBox "Found at " & rngX.Address
    End If
    
End Sub

xlPart = looks at the text in the cell for any match.
xlWhole = looks at the entire/exact entry in the cell to see if it matches.

=ADDRESS(MATCH(" Excel*",$A$1:$A$100,0),1)


https://www.udemy.com/blog/excel-vba-find/
Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
LookAt (optional):  xlWhole and xlPart

LookIn (optional): xlFormulas.
SearchOrder(optional): xlByRows or xlByColumns
===============================================
Cells.Find(What:="24652", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
       , SearchFormat:=False).Activate
'找不到時，會出現「 執行階段錯誤 91： 物件變數或 with 區塊變數未設定 」 的錯誤
'----------------------------------------------------------------------------------------------------------------
MsgBox Cells.Find(What:="24652", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
       , SearchFormat:=False).Address
'找不到時，會出現「 執行階段錯誤 91： 物件變數或 with 區塊變數未設定 」 的錯誤

===============================================
searchstr = "123"
Set obj = Cells.Find(What:=searchstr, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
       , SearchFormat:=False)
If obj Is Nothing Then
    MsgBox "找不到"
Else
   MsgBox obj.Offset(3).Value   '找到後，顯示向下3列的儲存格的資料值。
   MsgBox obj.Address    '顯示位址
    MsgBox obj.Column    '顯示行次(欄次)
   MsgBox obj.Row       '顯示列次
End If
====================================================

EXCEL：流水號的製造

 EXCEL：流水號的製造
===================================
A1的值2014
="S"&RIGHT(A$1,2)&TEXT(ROW(A1),"-000000")
產生：S14-000001
=====================================
==TEXT(ROW(A1),"000000")
產生：000001
=====================================

EXCEL：VLOOKUP

=VLOOKUP(B2,SUMMARY!$A$2:$S$65536,1,0) .

B2 就是我們要的來源資料的位置 , 用 B2 儲存格內的資料作為搜尋的條件 , 搜尋的範圍是 SUMMARY 頁面 ( SUMMARY! ) 中的 A1 到 S65536 ( $A$2:$S$65536 ) 中的第一個 COLUME (,1 )
=IF(ISNA(VLOOKUP(B2,SUMMARY!$A$2:$S$65536,1,0)),"",VLOOKUP(B2,SUMMARY!$A$2:$S$65536,1,0)
正常情況下 , 當 VLOOKUP 找不到要找的東西的時候 , 它就會顯示 N/A , 所以用了 ISNA 和 兩個雙引號來避免它的 N/A 出現 , 當找不到我想要的東西的時候 , 就給我顯示空白就好 , 我不要看到 N/A

EXCEL VBA：補零

補零
====================================================
設定儲存格格式：
補零（但只是顯示上的改變，其真正的值並未改變）
儲存格格式，選擇『自訂』，0 表示確定要顯示的位數，每多一個 0 表示要增加一個位數。若輸入的位數較少，則前面自動補零

=====================================
'寫在儲存格內的補零公式（將B2表成5位號碼，不足位者自動補零，寫入現在的儲存格）
=REPT("0", 5-LEN(B2))&B2
或
=TEXT(B2,"00000")
=================================
'VBA的寫法一（表成5位號碼）
x = 123
MsgBox String(5 - Len(x), "0") & x
==================================
'VBA的寫法二（表成5位號碼）
x = Range("A1").Value
MsgBox String(5 - Len(x), "0") & x
=================================
'VBA的寫法三（使用自訂函數）（表成5位號碼）
Sub test()
    x = Range("A1").Value
    MsgBox addzero(x, 5)
End Sub

Function addzero(x, n)
    addzero = String(n - Len(x), "0") & x
End Function
=================================

EXCEL VBA：日期格式

dd = Format(Date, "yyyy/mm/dd")
MsgBox dd
MsgBox Format(#4/17/2004#, "yyyy/mm/dd")
MsgBox Format(Date, "yyyy.mm.dd")
MsgBox Date
'取得月份
MONTH( date_value )

EXCEL VBA：定時或倒數計時來執行某一程序

Application.OnTime TimeValue("20:00:00"), "Module1.abc"    '當系統與此相同時，執行模組Module1的程序abd()

Application.OnTime Now + TimeValue("00:00:15"), "Module1.abc"  '當經15秒後，執行模組Module1的程序abd()

資料來源：http://lazywilliam.blogspot.tw/2009/04/excel-vba_21.html

美國開發創新教學 激發學生學習力

駐波士頓辦事處教育組

美國開發創新教學 激發學生學習力

   

教育部電子報 457期 2011-04-21
資料來源：http://epaper.edu.tw/windows.aspx?windows_sn=7434

去年秋天，美國歐巴馬總統發表一篇警語，表示美國未來在全球經濟發展的趨勢中無法如往年一般強勢， 因為其大學畢業生人數大幅下降。歐巴馬進一步解釋，「我們國家在大學入學及申請上的表現依舊不錯，只是超過三分之一的美國大學生無法順利完成學業取得學 位」（正確的數字應該是將近50%的人無法完成學位。）歐巴馬發起一項「大學入學及完成學位」基金，希望可改善學生因財務狀況不佳而無法完成學位的困境。

學生常奔波於課堂與全職工作之間，光靠金錢是無法完全解決問題的。在由威廉˙布朗(William G. Bowen)，馬修˙金哥斯(Matthew M. Chingos)，和麥可˙馬克菲爾森(Michael S. McPherson)聯合撰寫的一本書「譯：跨越終點線-完成美國公立大學教育」(Crossing the Finish Line: Completing College at America's Public Universities )，書中提到來自社經地位較高的地區（其指擁有前50%的收入，以及家中父母至少有一方擁有大學學位）有三分之一的學生仍無法順利取得大學學位，並不是因 為缺乏經濟上的支持，而是他們根本缺乏學習動機。

或許低學習動機的學生本來就不應該繼續進入大學求學，但歐巴馬自稱自己曾在大學時也曾缺乏學習動機，沒有人可以說未來的美國總統不是受大學教育的一 塊料，但不證自明的事實是：任何讀過大學的人都曾覺得上課好無聊。佛羅里達大學教務長喬瑟夫˙葛洛弗(Joseph Glover)最近將課程重點轉型至線上教學時也略微提到，「說實在的，如果我們注意一下全國高等教育畢業的比率，就可發現高等教育在面對面（傳統）教學 中並無發揮其有效的助益，因此我認為線上課程將是高等教育的未來。」

然而各方意見紛歧，前任哈佛大學校長德瑞克˙伯科(Derek Bok)推廣一種教學方式的轉型，即將「老師主動教學-學生被動學習」轉換至「學生為其學習活動的主體」。美國公共電視台(PBS)在2005年一系列的 紀錄片「譯：越讀越退步」(Declining by Degrees)中，記錄一群高等教育學生在演講聽中打盹，他們也大力推廣學生主動學習的重要性，此項重要的學習概念頓時間擴展至全美國上下。在我的大學 裡，科學家設計了一個實驗室讓學生分組進行實驗，透過基因工程改造的方式培養出愛吃穀類的毛毛蟲。

九零年代後期，我開創了一個主動學習的概念，隨著數以百計的學者所提倡的學習概念之後，演變成為「回應歷史」(Reacting to the Past)的概念遊戲，主要是讓學生可以透過遊戲來取代傳統的學習教材。每一個學習遊戲可以持續約一個月左右或更久，其囊括學習教材裡的所有規則和原理。 其中一項學習遊戲，遊學生扮演西元前404年希臘首都雅典向斯巴達投降後的民主制度及君權制度；另一向學習遊戲設定在1633年的羅馬，信奉亞里斯多德的 物理原理的耶穌會信徒和支持伽利略天文觀的支持者的激烈辯論。然而另一項學習遊戲則設定在1587明朝學術界檢視孔子的「論語」裡對人權的闡述以及批判君 權的概念。過去六年「回應歷史」的學習遊戲拓展至300所以上的大學院校。

學生獲得了一些意想不到的學習。美國愛荷華州Dordt大學歷史學教授保羅˙費思勒(Paul Fessler)上個月運用學習遊戲來上他的西方民主歷史課，他將遊戲背景設定在法國大革命。這堂課學生上的十分投入，並且也詳細的交代了本學習歷史上的 一些重點概要。費思勒教授希望可以拓展這項遊戲學習課程，然而學生卻主動提出希望往後這學期可以提前30分鐘來上課，費思勒教授聽了差點沒昏倒，因為他的 課是早上8:00開始。

參與課堂的學生說，每個人都會感覺自己在各個角色裡有所貢獻，我們會利用課堂以外的時間進行閱讀，我們花很多時間在搞懂遊戲規則，以及歷史教材，甚至盧梭思想，任何你能想到的內容，並且我們也花了很多時間在寫作。我日以繼夜的撰寫我的小篇報導，而其他作者也一樣努力，對我們來說這已經超過於一堂歷史課的意義，而是同學間相互奉獻投入時間的精彩成品。

Pace大學的教授南希˙芮金(Nancy Reagin)和瑪莎˙得萊佛(Martha W. Driver)也有相似的教學經驗。他們的學生設定「回應歷史」學習遊戲的場景是波士頓清教徒時期。一天芮金教授收到一封來自於另一位教授的電子郵件說， 可否請您稍微克制一下學生的熱情呢？他們幾乎每天都在談論遊戲的內容，宿舍裡也到處充斥這個話題，學生甚至挑燈夜戰辯論安˙哈奇森(Anne Hutchinson)是否為異教徒，學生似乎很喜歡這種永無止盡的討論，但同一樓的其他室友快被煩死了。大家都在討論清教徒議題，怎麼開Party呢？

另一個遊戲，芮金教授的課堂所設定的場景是亨利八世和議會改革時期。她提到，你絕對不敢相信關於這堂課在網站上有多少篇文章回應。只有修課的25位 學生有權限進行文章發表跟回應，但經過三週課程後，總計有618篇發表文章，並有13,998次的點擊率，幾乎是每位學生就有超過500次的文章點擊瀏覽 次數。

的確，當學生投入在這項充滿腦力激盪的學習遊戲中，他們發現以往在大學裡被稱之為好玩的活動，現在對他們來說都缺乏挑戰性了。透過概念、教材，以及歷史里程碑的討論，似乎以融入學生的生活成為他們的一部份，學生可以一起學習、成長，無形中鞏固了他們之間的感情。

「主動學習」已成為學術單位琅琅上口的一個名詞，但許多教授卻沒有抓住其精髓（有些教授甚至認為學生上課抄筆記是主動學習的一環）。但研究顯示，最能讓學生收穫最多的教學方法是小組合作和問題解決，而根據實際的教學經驗發現，小組合作加上各組相互競爭時，學生則能在過程中跳脫框架，獲得更多框框以外 的學習。因此，錢不能解決低畢業率的問題，學生需要更新穎、更創新的教學方式來激發學習能力。


相關連結：


越讀越退步 Declining by Degrees: Higher Education at Risk

http://www.youtube.com/watch?v=BcxDVYo2wH8


 跨越終點線-完成美國公立大學教育(Crossing the Finish Line: Completing College at America's Public Universities )
http://press.princeton.edu/titles/8971.html

值得想想的一些話

“The real loser is never the person who crosses the finishing line last. The real loser is the person who sits on the side. The person who does not even try to compete.”
– Oscar Pistorius, Sprint Runner

中文翻譯：

 

「真正的輸家從來不是最後跨越終點線的那個人，真正的輸家是坐在旁邊，那個連比賽都不願意嘗試的人。」
– 奧斯卡‧皮斯托利斯 (短跑選手)

From：http://hitutor.pixnet.net/blog/post/49033948

EXCEL VBA：英文字母與ASCII碼

Asc("A")-->65
Chr(65)--->A

英文字母 ASCII碼 英文字母 ASCII碼 A 65 a 97 B 66 b 98 C 67 c 99 D 68 d 100 E 69 e 101 F 70 f 102 G 71 g 103 H 72 h 104 I 73 i 105 J 74 j 106 K 75 k 107 L 76 l 108 M 77 m 109 N 78 n 110 O 79 o 111 P 80 p 112 Q 81 q 113 R 82 r 114 S 83 s 115 T 84 t 116 U 85 u 117 V 86 v 118 W 87 w 119 X 88 x 120 Y 89 y 121 Z 90 z 122

EXCEL VBA：儲存格的格式設定

==================
Range("A1").Select
With Selection
    .HorizontalAlignment = xlLeft   '水平對齊
    .VerticalAlignment = xlCenter   '鉛直對齊
    .WrapText = False                '設定自動換列
    .Orientation = 0                    '設定方向的角度
    .AddIndent = False              '設定縮排
    .IndentLevel = 0                   '設定縮排的值
    .ShrinkToFit = False             '設定縮小字形以適合欄寬
     '設定文字方向，xlContext內容，xlLTR從左至右，xlRTL從右至左
    .ReadingOrder = xlContext          '設定文字方向
    .MergeCells = False                    '設定合拼儲存格
    .Interior.ColorIndex = 9                '填滿的顏色
End With
==================
水平對齊：
.HorizontalAlignment 的設定值：
    xlGeneral 通用格式
    xlLeft 靠左
    xlCenter中間對齊
    xlRight靠右
    xlFill 填滿
    xlJustify 段落重排
    xlCenterAcrossSelection 跨欄置中
    xlDistributed 分散對齊 ( 縮排 )

鉛直對齊：
.VerticalAlignment的設定值：
    xlTop 靠上
    xlCenter 置中對齊
    xlBottom 靠下
    xlJustify段落重排
    xlDistributed分散對齊

 =====================================
'自動調整行高列寬
Columns("A:A").EntireColumn.AutoFit
Rows("1:1").EntireRow.AutoFit
 =====================================
'儲存格的資料格式：
Selection.NumberFormatLocal = "G/通用格式"
Selection.NumberFormatLocal = "0.00_ "
Selection.NumberFormatLocal = "$#,##0.00"
Selection.NumberFormatLocal = _
"_-$* #,##0.00_-;-$* #,##0.00_-;_-$* ""-""??_-;_-@_-"
Selection.NumberFormatLocal = "yyyy/m/d"
Selection.NumberFormatLocal = "[$-F400]h:mm:ss AM/PM"
Selection.NumberFormatLocal = "0.00%"
Selection.NumberFormatLocal = "# ?/?"
Selection.NumberFormatLocal = "0.00E+00"
Selection.NumberFormatLocal = "@"
Selection.NumberFormatLocal = "000"

 =====================================
Selection.Font.Name = "新細明體"
Range("A1").Font.Name = "標楷體"
MsgBox Range("A1").Font.Name     
Selection.Font.ColorIndex =               '設定字體的顏色
Selection.Font.Size =                          '設定字體的大小

 =====================================
Range("A1").Select
With Selection.Font
.Name = "新細明體"
.Size = "20"
.Bold = True
.Italic = True
.Underline = True
End With

=======================================
資料來源：
http://lazywilliam.blogspot.tw/2009/05/excel-vba_15.html
http://lazywilliam.blogspot.tw/2009/05/excel-vba_06.html

陶笛音樂

有機生活資訊（2014.02.23）

公共電視─「獨立特派員」有機的滋味 有機的代價

公共電視 我們的島─有機的難關

公共電視 我們的島─有機的難關

我們的島 第698集 彩虹農場 (2013-03-18)

綠色陣線協會

食品安全健康風險評估資料庫（食品工業發展研究所）

綠農的家 http://www.greenff.com.tw/ 

溪底遙學習農園 http://www.befarmer.com/
電話：049-2693199  傳真：049-2694649
Email：farmer@befarmer.com
地址：南投縣中寮鄉永樂路60-2號

http://www.ccof.org/ (美國加洲的有機認證機構)

溫帶國家的有機栽培的的標準可以適用在我們這個亞熱帶國家嗎？

有機生活資訊

有機雲端入口網
有機農業全球資訊網
有機農業全球資訊網 -- 我國驗證機構
有機農場整合資訊系統 http://www.i-organic.org.tw/ 
農民學院 http://academy.coa.gov.tw/
產銷履歷農產品供貨資訊網站 http://tapinfo.coa.gov.tw/work/
迦南地有機農場 http://www.canaanland.org.tw/(台南市新化區知義里新和庄111-1號)
財團法人慈心有機農業發展基金會 http://toaf.org.tw/
有機誌 （全球第一本華文有機時尚雜誌）http://www.organic-magazine.com/

PChome線上購物 - 食品飲料(有機食品)

里仁購物網站 LeeZen Shop Online http://shop.leezen.com.tw/

 台灣主婦聯盟生活消費合作社 http://www.hucc-coop.tw/

吉甲地。在地好物嚴選專賣 http://www.gigade100.com/

在網頁中嵌入顯示程式碼

http://chihchi29.blogspot.tw/2011/04/blogger-code-block.html
http://www.ewdna.com/2012/02/google-code-prettify.html

public class HelloWorld {

    public static void main (String[] args) {
        System.out.println("Hello, world!");
    }
}

首頁、標籤、搜尋頁面只顯示文章標題;部分內文;小圖片

首頁、標籤、搜尋頁面只顯示文章標題;部分內文;小圖片

       

 

EXCEL VBA：獲取儲存格資訊

資料來源：Excel VBA Comics  
http://blog.xuite.net/crdotlin/excel/9016218 

GET.CELL(type_num, reference)
Type_num 指定要獲取儲存格資訊的號碼, 內容如下:
Type_num
1 參照儲存格的絕對位址
2 參照儲存格的列號
3 參照儲存格的欄號
4 類似 TYPE 函數
5 參照位址的內容
6 文字顯示參照位址的公式
7 參照位址的格式，文字顯示
8 文字顯示參照位址的格式
9 傳回儲存格外框左方樣式，數位顯示
10 傳回儲存格外框右方樣式，數位顯示
11 傳回儲存格外框方上樣式，數位顯示
12 如果儲存格被設定 locked傳回 True
15 如果公式處於隱藏狀態傳回 True
16 傳回儲存格寬度
17 以點為單位傳回儲存格高度
18 字型名稱
19 以點為單位傳回字型大小
20 如果儲存格所有或第一個字元為加粗傳回 True
21 如果儲存格所有或第一個字元為斜體傳回 True
22 如果儲存格所有或第一個字元為單底線傳回True
23 如果儲存格所有或第一個字元字型中間加了一條水平線傳回 True
24 傳回儲存格第一個字元色彩數位， 1 至 56。如果設定為自動，傳回 0
25 MS Excel不支援大綱格式
26 MS Excel不支援陰影格式
27 數位顯示手動插入的分頁線設定
28 大綱的列層次
29 大綱的欄層次
30 如果範圍為大綱的摘要列則為 True
31 如果範圍為大綱的摘要欄則為 True
32 顯示活頁簿和工作表名稱
33 如果儲存格格式為多行文字則為 True
34 傳回儲存格外框左方色彩，數位顯示。如果設定為自動，傳回 0
35 傳回儲存格外框右方色彩，數位顯示。如果設定為自動，傳回 0
36 傳回儲存格外框上方色彩，數位顯示。如果設定為自動，傳回 0
37 傳回儲存格外框下方色彩，數位顯示。如果設定為自動，傳回 0
38 傳回儲存格前景陰影色彩，數位顯示。如果設定為自動，傳回 0
39 傳回儲存格背影陰影色彩，數位顯示。如果設定為自動，傳回 0
40 文字顯示儲存格樣式
41 傳回參照地址的原始公式
42 以點為單位傳回使用中視窗左方至儲存格左方水平距離
43 以點為單位傳回使用中視窗上方至儲存格上方垂直距離
44 以點為單位傳回使用中視窗左方至儲存格右方水平距離
45 以點為單位傳回使用中視窗上方至儲存格下方垂直距離
46 如果儲存格有插入批註傳回 True
47 如果儲存格有插入聲音提示傳回 True
48 如果儲存格有插入公式傳回 True
49 如果儲存格是陣列公式的範圍傳回 True
50 傳回儲存格垂直對齊，數位顯示
51 傳回儲存格垂直方向，數位顯示
52 傳回儲存格首碼字元
53 文字顯示傳回儲存格顯示內容
54 傳回儲存格樞紐分析表名稱
55 傳回儲存格在樞紐分析表的位置
56 樞紐分析
57 如果儲存格所有或第一個字元為上標傳回True
58 文字顯示傳回儲存格所有或第一個字元字型樣式
59 傳回儲存格底線樣式，數位顯示
60 如果儲存格所有或第一個字元為下標傳回True
61 樞紐分析
62 顯示活頁簿和工作表名稱
63 傳回儲存格的填滿色彩
64 傳回圖樣前景色彩
65 樞紐分析
66 顯示活頁簿名稱
Reference 一個儲存格或範圍，若省略則為activecell。

EXCEL VBA：功能表與工具列

=======================================================
 Sub 在即時運算視窗秀出所有功能表、工具列名稱()

    Dim oBar As CommandBar
    
    For Each oBar In Application.CommandBars
      Debug.Print oBar.Name
    Next
End Sub
----------------------------------------------------------------------------------
結果如下(功能表、工具列名稱)：
Worksheet Menu Bar  ------------------>功能表
Chart Menu Bar
Standard     ------------------>一般
Formatting   ------------------>格式          
PivotTable
Chart
Reviewing
Forms
Stop Recording
External Data
Formula Auditing
Full Screen
Circular Reference
Visual Basic
Web
Control Toolbox
Exit Design Mode
Refresh
Watch Window
PivotTable Field List
Borders
Protection
Text To Speech
List
Compare Side by Side
Drawing
WordArt
Picture
Drawing Canvas
Organization Chart
Diagram
Ink Drawing and Writing
Ink Annotations
PivotChart Menu
Workbook tabs
Cell
Column
Row
Cell
Column
Row
Ply
XLM Cell
Document
Desktop
Nondefault Drag and Drop
AutoFill
Button
Dialog
Series
Plot Area
Floor and Walls
Trendline
Chart
Format Data Series
Format Axis
Format Legend Entry
Formula Bar
PivotTable Context Menu
Query
Query Layout
AutoCalculate
Object/Plot
Title Bar (Charting)
Layout
Pivot Chart Popup
Phonetic Information
Auto Sum
Paste Special Dropdown
Find Format
Replace Format
List Range Popup
List Range Layout Popup
XML Range Popup
List Range Layout Popup
Shadow Settings
3-D Settings
Borders
Borders
Draw Border
Chart Type
Pattern
Font Color
Fill Color
Line Color
Drawing and Writing Pens
Annotation Pens
Drawing and Writing Pens
Annotation Pens
Order
Nudge
Align or Distribute
Rotate or Flip
Lines
Connectors
AutoShapes
Callouts
Flowchart
Block Arrows
Stars & Banners
Basic Shapes
Insert Shape
Shapes
Inactive Chart
Excel Control
Curve
Curve Node
Curve Segment
Pictures Context Menu
OLE Object
ActiveX Control
WordArt Context Menu
Rotate Mode
Connector
Script Anchor Popup
Canvas Popup
Organization Chart Popup
Diagram
Layout
Select
符號表
Task Pane

Add Command
Built-in Menus
Clipboard
Envelope
Online Meeting

===================================================



'關閉功能表、工具列
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""工具列名稱"",False)"

 '功能表、工具列無法使用
Application.CommandBars("功能表、工具列名稱").Enabled=False 
Application.CommandBars("功能表、工具列名稱").Enabled = True

學習EXCEL VBA的網路資源：

Excel VBA Comics

Excel Solution

威廉博客 http://lazywilliam.blogspot.tw/

將陽曆轉成農曆(convert solar date to lunar date)的函數

EXCEL VBA：不開啟巨集，看不到資料

資料來源：Excel VBA Comics  http://blog.xuite.net/crdotlin/excel/9105329

工作表Secret
工作表Sheet1
工作表Sheet1上有一個文字方塊DPT與一個按鈕控制項BTN
Thisworkbook 模組
表單 UserForm1
UserForm1 模組
 一般模組

==============================================
Thisworkbook 模組

 '關檔前處理程序
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'將 Secret 工作表深度隱藏
Worksheets("Secret").Visible = xlVeryHidden
'設定 Sheet1 工作表
With Worksheets("Sheet1")
    .Activate       '設為作用工作表
    .Shapes("BTN").Visible = False      '按鈕隱藏
    .Shapes("DPT").Visible = True       '說明文字框顯示
End With
Me.Save         '強迫儲存
End Sub
-------------------------------------------------------------------------------
'開檔時處理程序
Private Sub Workbook_Open()
    '將 Sheet1 工作表
    With Worksheets("Sheet1").Shapes
        .Item("BTN").Visible = True     '按鈕顯示
        .Item("DPT").Visible = False   '說明文字框隱藏
    End With
End Sub 

==============================================
'UserForm1 模組 

' [確定] 按鈕
Private Sub CommandButton1_Click()
'若輸入的帳號及密碼都是 crdotlin 即是正確
If Me.TextBox1.Text = "crdotlin" And Me.TextBox2.Text = "crdotlin" Then
    '將 Secret 工作表顯示
    ThisWorkbook.Worksheets("Secret").Visible = True
    '將 Sheet1 工作表上的 [按鈕] 隱藏
    Worksheets("Sheet1").Shapes("BTN").Visible = False
    '卸載本自訂表單
    Unload Me
Else
    '驗證錯誤處理
    myCheck
End If
End Sub
---------------------------------------------------------------------------------------
 '[清除] 按鈕
Private Sub CommandButton2_Click()
Me.TextBox1.Text = ""   '帳號資料消除
Me.TextBox2.Text = ""   '消除密碼資料
End Sub
---------------------------------------------------------------------------------------
 '驗證失敗處理程序
Private Sub myCheck()
Dim ans     '錯誤訊息回應
    '顯示錯誤訊息
    ans = MsgBox("錯誤!", vbRetryCancel + vbExclamation, "驗證失敗!")
    '檢查回應內容
    If ans = vbRetry Then       '選擇 [重試]
        Me.TextBox1.Text = ""        '帳號資料消除
        Me.TextBox2.Text = ""       '消除密碼資料
    ElseIf ans = vbCancel Then          '選擇 [取消]
        Unload Me        '卸載本自訂表單
    Else        '應該部會到這裡
        myCheck '萬一到了這裡, 再執行驗證失敗處理程序
    End If
End Sub
==============================================
 一般模組

Sub showForm()
    '如果 Secret 工作表已經打開, 退出
    If Worksheets("Secret").Visible = True Then Exit Sub
    '否則開啟 [驗證對話框]
    UserForm1.Show
End Sub

所有密碼及帳號均為"crdotlin" ==============================================


============================================== 

Blogger 彈性版面，隨著視窗大小調整寬度

把上面這段文字修改成這樣：（紅色代表有修改的部份）
   
     
     
     

      <![CDATA[
      body {
        min-width: 800px;
      }

      .content-outer, .content-fauxcolumn-outer, .region-inner {
        min-width: 800px;
        max-width: $(content.width);
        width:100%;
      }

資料來源：http://etblue.blogspot.tw/2010/12/blogger-flexible-width-changes-with.html

EXCEL VBA：MsgBox

Ans=MsgBox(“Continue?”,vbYesNo) '在消息框中點擊“是”按鈕，則Ans值為vbYes；點擊“否”按鈕，則Ans值為vbNo。
If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub '返回值不為“是”，則退出
Config=vbYesNo+vbQuestion+vbDefaultButton2 '使用常量的組合，賦值組Config變量，並設置第二個按鈕為缺省按鈕
MsgBox “This is the first line.” & vbNewLine & “Second line.” '在消息框中強制換行，可用vbCrLf代替vbNewLine。
MsgBox "the average is :"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00"),vbInformation, "selection count average" & Chr(13) '應用工作表函數返回所選區域的平均值並按指定格式顯示

EXCEL VBA：模組的設定

模組的設定
(1) Option Explicit '強制對模塊內所有變數進行聲明
Option Private Module '標記模塊為私有，僅對同一工程中其它模塊有用，在宏對話框中不顯示
 Option Compare Text '字符串不區分大小寫
 Option Base 1 '指定數組的第一個下標為1
(2) On Error Resume Next '忽略錯誤繼續執行VBA代碼,避免出現錯誤消息
(3) On Error GoTo ErrorHandler '當錯誤發生時跳轉到過程中的某個位置
(4) On Error GoTo 0 '恢復正常的錯誤提示
(5) Application.DisplayAlerts=False '在程序執行過程中使出現的警告框不顯示
(6) Application.ScreenUpdating=False '關閉螢幕畫面更新
   Application.ScreenUpdating=True '打開螢幕畫面更新
(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏運行的功能

EXCEL VBA：列出顏色與索引值的程式碼

 ==================================================
Sub 列出顏色與索引值()

For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2).Value = i
Next

End Sub
===================================================
Sub colors56()
'此程式用到十六進位轉十進位的函數Hex2dec，執行前必須在增益集中加入分析工具箱。
'57 colors, 0 to 56
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual   'pre XL97 xlManual
Dim i As Long
Dim str0 As String, str As String
For i = 1 To 56
  Cells(i + 1, 1).Interior.ColorIndex = i
  Cells(i + 1, 1).Value = "[Color " & i & "]"
  Cells(i + 1, 2).Font.ColorIndex = i
  Cells(i + 1, 2).Value = "[Color " & i & "]"
  str0 = Right("000000" & Hex(Cells(i + 1, 1).Interior.Color), 6)
  'Excel shows nibbles in reverse order so make it as RGB
  str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
  'generating 2 columns in the HTML table
  Cells(i + 1, 3) = "#" & str
  Cells(i + 1, 4) = "#" & str
  Cells(i + 1, 4).Interior.ColorIndex = i
  Cells(i + 1, 5).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"
  Cells(i + 1, 6).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"
  Cells(i + 1, 7).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"
  Cells(i + 1, 8) = "[Color " & i & "]"
Next i
done:
  Application.Calculation = xlCalculationAutomatic  'pre XL97 xlAutomatic
  Application.ScreenUpdating = True
End Sub
=============================================================

EXCEL的顏色代碼、顏色索引值與顏色對照表

顏色代碼表

(一)顏色代碼表 (可以反白複製) aliceblue antiquewith aquamarine azure cornfloewrblue cornsilk cyan darkblue darkcyan darkgoldenrod darkgray darkgreen darkhaki darkmagenta darkolivegreen darkorenge beige bisque black blanchedalmond blue blueviolet brown burlywood cadetblue chartreuse chocolate coral darkorchid darkred  darksalmon darkseagreen darkslateblue darkslategray darkturquoise darkviolet deeppink deepskyblue dimgray dodgerblue firebrick floralwhite forestgreen gainsboro gostwhite gold golenrod gray green greenyellow honeydew hotpink indianred ivory khaki lavender lavenderblush lawngreen lemonchiffon lightblue lightcoral lightcyan lightgodenrod lightgodenrodyellow lightsteelblue lightyellow limegreen linen magenta maroon mediumaquamarine mediumblue mediumorchid mediumpurpul mediumseagreen mediumslateblue mintcream mistyrose moccasin navajowhite lightgray lightgreen lightpink lightsalmon lightseagreen lightskyblue lightslateblue lightslategray navy navyblue oldlace olivedrab orange orengered orchid palegodenrod palegreen paleturquoise palevioletred papayawhip peachpuff peru pink plum mediumspringgreen mediumturquoise mediumvioletred midnightblue powderblue purple red rosybrown royalblue saddlebrown salmon sandybrown seagreen seashell sienna skyblue slateblue slategray snow springgreen steelblue tan thistle tomato turquoise violet violetred wheat hite whitesmoke yellow yellowgreen (二)顏系代碼表 (可以反白複製) #FFFFFF #DDDDDD #AAAAAA #888888 #666666 #444444 #000000 #FFB7DD #FF88C2 #FF44AA #FF0088 #C10066 #A20055 #8C0044 #FFCCCC #FF8888 #FF3333 #FF0000 #CC0000 #AA0000 #880000 #FFC8B4 #FFA488 #FF7744 #FF5511 #E63F00 #C63300 #A42D00 #FFDDAA #FFBB66 #FFAA33 #FF8800 #EE7700 #CC6600 #BB5500 #FFEE99 #FFDD55 #FFCC22 #FFBB00 #DDAA00 #AA7700 #886600 #FFFFBB #FFFF77 #FFFF33 #FFFF00 #EEEE00 #BBBB00 #888800 #EEFFBB #DDFF77 #CCFF33 #BBFF00 #99DD00 #88AA00 #668800 #CCFF99 #BBFF66 #99FF33 #77FF00 #66DD00 #55AA00 #227700 #99FF99 #66FF66 #33FF33 #00FF00 #00DD00 #00AA00 #008800 #BBFFEE #77FFCC #33FFAA #00FF99 #00DD77 #00AA55 #008844 #AAFFEE #77FFEE #33FFDD #00FFCC #00DDAA #00AA88 #008866 #99FFFF #66FFFF #33FFFF #00FFFF #00DDDD #00AAAA #008888 #CCEEFF #77DDFF #33CCFF #00BBFF #009FCC #0088A8 #007799 #CCDDFF #99BBFF #5599FF #0066FF #0044BB #003C9D #003377 #CCCCFF #9999FF #5555FF #0000FF #0000CC #0000AA #000088 #CCBBFF #9F88FF #7744FF #5500FF #4400CC #2200AA #220088 #D1BBFF #B088FF #9955FF #7700FF #5500DD #4400B3 #3A0088 #E8CCFF #D28EFF #B94FFF #9900FF #7700BB #66009D #550088 #F0BBFF #E38EFF #E93EFF #CC00FF #A500CC #7A0099 #660077 #FFB3FF #FF77FF #FF3EFF #FF00FF #CC00CC #990099 #770077

EXCEL的顏色索引值與顏色對照表：http://www.mvps.org/dmcritchie/excel/colors.htm