肚兜嘟嘟好

政府推動電子發票(aka 雲端發票)許久，為響應全球節能減碳以及配合財政部發票政策，商家紛紛將傳統發票逐進變成升級成電子發票，
但對一般消費者而言，還是會拿到長長的一張紙本發票、兩聯與三聯式發票，又或是電子發票證明聯，這也是為什麼電子發票推行許久，仍有許多人搞不清楚電子發票的運作模式?
首先要會使用看得懂，
必須先登入財政部「電子發票整合服務平台」的【首頁】後，可以在右邊「歸戶設定」【新增載具】。

 
資料出處：http://blog.excelhome.net/user1/sunxh/archives/2006/589.html 
VBA語句集200句 
我將學習VBA過程中常用的語句進行了歸納,希望能對Excel愛好者和VBA初學者有所幫助.
VBA語句集 
(第1輯)
定製模塊行為 
(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中止宏運行的功能
工作簿 
(8) Workbooks.Add() '創建一個新的工作簿 
(9) Workbooks(「book1.xls」).Activate '激活名為book1的工作簿 
(10) ThisWorkbook.Save '保存工作簿 
(11) ThisWorkbook.close '關閉當前工作簿 
(12) ActiveWorkbook.Sheets.Count '獲取活動工作薄中工作表數 
(13) ActiveWorkbook.name '返回活動工作薄的名稱 
(14) ThisWorkbook.Name 『返回當前工作簿名稱 
ThisWorkbook.FullName 『返回當前工作簿路徑和名稱 
(15) ActiveWindow.EnableResize=False 『禁止調整活動工作簿的大小 
(16) Application.Window.Arrange xlArrangeStyleTiled 『將工作簿以平鋪方式排列 
(17) ActiveWorkbook.WindowState=xlMaximized 『將當前工作簿最大化
工作表 
(18) ActiveSheet.UsedRange.Rows.Count 『當前工作表中已使用的行數 
(19) Rows.Count 『獲取工作表的行數(註：考慮向前兼容性) 
(20) Sheets(Sheet1).Name= 「Sum」 '將Sheet1命名為Sum 
(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一個新工作表在第一工作表前 
(22) ActiveSheet.Move After:=ActiveWorkbook. _ 
Sheets(ActiveWorkbook.Sheets.Count) '將當前工作表移至工作表的最後 
(23) Worksheets(Array(「sheet1」,」sheet2」)).Select '同時選擇工作表1和工作表2 
(24) Sheets(「sheet1」).Delete或 Sheets(1).Delete '刪除工作表1 
(25) ActiveWorkbook.Sheets(i).Name '獲取工作表i的名稱 
(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '切換工作表中的網格線顯示，這種方法也可以用在其它方面進行相互切換，即相當於開關按鈕 
(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings 『切換工作表中的行列邊框顯示 
(28) ActiveSheet.UsedRange.FormatConditions.Delete 『刪除當前工作表中所有的條件格式 
(29) Cells.Hyperlinks.Delete 『取消當前工作表所有超鏈接 
(30) ActiveSheet.PageSetup.Orientation=xlLandscape 
或ActiveSheet.PageSetup.Orientation=2 '將頁面設置更改為橫向 
(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName 『在頁面設置的表尾中輸入文件路徑 
ActiveSheet.PageSetup.LeftFooter=Application.UserName 『將用戶名放置在活動工作表的頁腳
單元格/單元格區域 
(32) ActiveCell.CurrentRegion.Select 
或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select 
'選擇當前活動單元格所包含的範圍，上下左右無空行 
(33) Cells.Select 『選定當前工作表的所有單元格 
(34) Range(「A1」).ClearContents '清除活動工作表上單元格A1中的內容 
Selection.ClearContents '清除選定區域內容 
Range(「A1:D4」).Clear '徹底清除A1至D4單元格區域的內容，包括格式 
(35) Cells.Clear '清除工作表中所有單元格的內容 
(36) ActiveCell.Offset(1,0).Select '活動單元格下移一行，同理，可下移一列 
(37) Range(「A1」).Offset(ColumnOffset:=1)或Range(「A1」).Offset(,1) 『偏移一列 
Range(「A1」).Offset(Rowoffset:=-1)或Range(「A1」).Offset(-1) 『向上偏移一行 
(38) Range(「A1」).Copy Range(「B1」) '複製單元格A1，粘貼到單元格B1中 
Range(「A1:D8」).Copy Range(「F1」) '將單元格區域複製到單元格F1開始的區域中 
Range(「A1:D8」).Cut Range(「F1」) '剪切單元格區域A1至D8，複製到單元格F1開始的區域中 
Range(「A1」).CurrentRegion.Copy Sheets(「Sheet2」).Range(「A1」) '複製包含A1的單元格區域到工作表2中以A1起始的單元格區域中 
註：CurrentRegion屬性等價於定位命令，由一個矩形單元格塊組成，周圍是一個或多個空行或列 
(39) ActiveWindow.RangeSelection.Value=XX '將值XX輸入到所選單元格區域中 
(40) ActiveWindow.RangeSelection.Count '活動窗口中選擇的單元格數 
(41) Selection.Count '當前選中區域的單元格數 
(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,」」) 『返回單元格中超級鏈接的地址並賦值 
(43) TextColor=Range(「A1」).Font.ColorIndex 『檢查單元格A1的文本顏色並返回顏色索引 
Range(「A1」).Interior.ColorIndex 『獲取單元格A1背景色 
(44) cells.count 『返回當前工作表的單元格數 
(45) Selection.Range(「E4」).Select 『激活當前活動單元格下方3行，向右4列的單元格 
(46) Cells.Item(5,」C」) 『引單元格C5 
Cells.Item(5,3) 『引單元格C5 
(47) Range(「A1」).Offset(RowOffset:=4,ColumnOffset:=5) 
或 Range(「A1」).Offset(4,5) 『指定單元格F5 
(48) Range(「B3」).Resize(RowSize:=11,ColumnSize:=3) 
Rnage(「B3」).Resize(11,3) 『創建B3：D13區域 
(49) Range(「Data」).Resize(,2) 『將Data區域擴充2列 
(50) Union(Range(「Data1」),Range(「Data2」)) 『將Data1和Data2區域連接 
(51) Intersect(Range(「Data1」),Range(「Data2」)) 『返回Data1和Data2區域的交叉區域 
(52) Range(「Data」).Count 『單元格區域Data中的單元格數 
Range(「Data」). Columns.Count 『單元格區域Data中的列數 
Range(「Data」). Rows.Count 『單元格區域Data中的行數 
(53) Selection.Columns.Count 『當前選中的單元格區域中的列數 
Selection.Rows.Count 『當前選中的單元格區域中的行數 
(54) Selection.Areas.Count 『選中的單元格區域所包含的區域數 
(55) ActiveSheet.UsedRange.Row 『獲取單元格區域中使用的第一行的行號 
(56) Rng.Column 『獲取單元格區域Rng左上角單元格所在列編號 
(57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) 『在活動工作表中返回所有符合條件格式設置的區域 
(58) Range(「A1」).AutoFilter Field:=3,VisibleDropDown:=False 『關閉由於執行自動篩選命令產生的第3個字段的下拉列表
名稱 
(59) Range(「A1：C3」).Name=「computer」 『命名A1：C3區域為computer 
或Range(「D1：E6」).Name=「Sheet1!book」 『命名局部變量，即Sheet1上區域D1：E6為book 
或 Names(「computer」).Name=「robot」 『將區域computer重命名為robot 
(60) Names(「book」).Delete 『刪除名稱 
(61) Names.Add Name:=「ContentList」，_ 
RefersTo:=「=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))」 『動態命名列 
(62) Names.Add Name:=「Company」,RefersTo:=「CompanyCar」 『命名字符串CompanyCar 
(63) Names.Add Name:=「Total」,RefersTo:=123456 『將數字123456命名為Total。注意數字不能加引號，否則就是命名字符串了。 
(64) Names.Add Name:=「MyArray」,RefersTo:=ArrayNum 『將數組ArrayNum命名為MyArray。 
(65) Names.Add Name:=「ProduceNum」,RefersTo:=「=$B$1」,Visible:=False 『將名稱隱藏 
(66) ActiveWorkbook.Names(「Com」).Name 『返回名稱字符串
公式與函數 
(67) Application.WorksheetFunction.IsNumber(「A1」) '使用工作表函數檢查A1單元格中的數據是否為數字 
(68) Range(「A:A」).Find(Application.WorksheetFunction.Max(Range(「A:A」))).Activate 
'激活單元格區域A列中最大值的單元格 
(69) Cells(8,8).FormulaArray=「=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)」 『在單元格中輸入數組公式。注意必須使用R1C1樣式的表達式
圖表 
(70) ActiveSheet.ChartObjects.Count '獲取當前工作表中圖表的個數 
(71) ActiveSheet.ChartObjects(「Chart1」).Select 『選中當前工作表中圖表Chart1 
(72) ActiveSheet.ChartObjects(「Chart1」).Activate 
ActiveChart.ChartArea.Select 『選中當前圖表區域 
(73) WorkSheets(「Sheet1」).ChartObjects(「Chart2」).Chart. _ 
ChartArea.Interior.ColorIndex=2 『更改工作表中圖表的圖表區的顏色 
(74) Sheets(「Chart2」).ChartArea.Interior.ColorIndex=2 『更改圖表工作表中圖表區的顏色 
(75) Charts.Add 『添加新的圖表工作表 
(76) ActiveChart.SetSourceData Source:=Sheets(「Sheet1」).Range(「A1:D5」), _ 
PlotBy:=xlColumns 『指定圖表數據源並按列排列 
(77) ActiveChart.Location Where:=xlLocationAsNewSheet 『新圖表作為新圖表工作表 
(78) ActiveChart.PlotArea.Interior.ColorIndex=xlNone 『將繪圖區顏色變為白色 
(79) WorkSheets(「Sheet1」).ChartObjects(1).Chart. _ 
Export FileName:=「C：MyChart.gif」,FilterName:=「GIF」 『將圖表1導出到C盤上並命名為MyChart.gif
窗體 
(80) MsgBox 「Hello!」 '消息框中顯示消息Hello 
(81) Ans=MsgBox(「Continue?」,vbYesNo) '在消息框中點擊「是」按鈕，則Ans值為vbYes；點擊「否」按鈕，則Ans值為vbNo。 
If MsgBox(「Continue?」,vbYesNo)<>vbYes Then Exit Sub '返回值不為「是」，則退出 
(82) Config=vbYesNo+vbQuestion+vbDefaultButton2 '使用常量的組合，賦值組Config變量，並設置第二個按鈕為缺省按鈕 
(83) MsgBox 「This is the first line.」 & vbNewLine & 「Second line.」 '在消息框中強制換行，可用vbCrLf代替vbNewLine。 
(84) MsgBox "the average is :"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00"),vbInformation, "selection count average" & Chr(13) '應用工作表函數返回所選區域的平均值並按指定格式顯示 
(85) Userform1.Show 『顯示用戶窗體 
(86) Load Userform1 『加載一個用戶窗體,但該窗體處於隱藏狀態 
(87) Userform1.Hide 『隱藏用戶窗體 
(88) Unload Userform1 或 Unload Me 『卸載用戶窗體 
(89) (圖像控件).Picture=LoadPicture(「圖像路徑」) 『在用戶窗體中顯示圖形 
(90) UserForm1.Show 0 或 UserForm1.Show vbModeless 『將窗體設置為無模式狀態 
(91) Me.Height=Int(0.88*ActiveWindow.Height) 『窗體高度為當前活動窗口高度的0.88 
Me.Width=Int(0.88*ActiveWindow.Width) 『窗體寬度為當前活動窗口高度的0.88
事件 
(92) Application.EnableEvents=False '禁用所有事件 
Application.EnableEvents=True '啟用所有事件 
註：不適用於用戶窗體控件觸發的事件 
對象 
(93) Set ExcelSheet = CreateObject("Excel.Sheet") 『創建一個Excel工作表對象 
ExcelSheet.Application.Visible = True '設置 Application 對象使 Excel 可見 
ExcelSheet.Application.Cells(1, 1).Value = "Data" '在表格的第一個單元中輸入文本 
ExcelSheet.SaveAs "C:\TEST.XLS" '將該表格保存到C:\test.xls 目錄 
ExcelSheet.Application.Quit '關閉 Excel 
Set ExcelSheet = Nothing '釋放該對象變量 
(94) 『聲明並創建一個Excel對象引用 
Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook 
Dim xlSheet As Excel.WorkSheet 
Set xlApp = CreateObject("Excel.Application") 
Set xlBook = xlApp.Workbooks.Add 
Set xlSheet = xlBook.Worksheets(1) 
(95) 『創建並傳遞一個 Excel.Application 對象的引用 
Call MySub (CreateObject("Excel.Application")) 
(96) Set d = CreateObject(Scripting.Dictionary) 『創建一個 Dictionary 對象變量 
(97) d.Add "a", "Athens" '為對象變量添加關鍵字和條目
其他 
(98) Application.OnKey 「^I」,」macro」 '設置Ctrl+I鍵為macro過程的快捷鍵 
(99) Application.CutCopyMode=False 『退出剪切/複製模式 
(100) Application.Volatile True '無論何時工作表中任意單元格重新計算，都會強制計算該函數 
Application.Volatile False '只有在該函數的一個或多個參數發生改變時，才會重新計算該函數
By fanjy in 2006-6-4

箭頭(->)與點(.)
1. in C++ Struct:

VBA（全名為 Visual Basic for Applications）
是一種 Windows 下的巨集程式語言
其語法承襲傳統的 Visual Basic
在微軟 Office 之中的各種軟體（如 Word、Excel 等）
都可以直接使用，不需要另外安裝

①選己所愛。 
    從事一項你所喜歡的工作，工作本身就能給你一種滿足感，你的職業(工作)也會從此變得非常有趣。古語說『興趣』是最好的老師，是成功之母。有調查顯示：興趣與成功機率有明顯的正相關性。所以大家在計劃計自己的職業生涯時，一定要注意：考慮自己的特點，留意自己的興趣，選己所愛、所喜歡的職業。 
②選己所長。 
    任何職業都會要求從業者要掌握一定的技能，具備一定的能力。一個人不可能掌握所有技能，一定是有所專長，所以你在進行職業選擇時一定要選己所長，這樣才有利於發揮自己的優勢。運用比較優勢原理充分分析別人與自己，盡量選擇衝突較少的優勢行業。 
③選世所需。 
社會的需求不斷演化著，舊的需求不斷消失，新的需求不斷產生。新興、熱門的職業也不斷產生。所以在設計你自己的職業生涯時，一定要分析社會需求， 選擇『現在和未來』所需。最重要的是，眼光要放得長遠，能夠準確預測未來行業或者職業發展方向，再做出選擇。不但能針對社會的需求，更是一個長遠的事業。

[LINE] 把未讀的訊息放到聊天清單最上方

 

 

 

 

 

認識貴金白金 、純銀與黃金這些外表美觀、不易氧化生鏽並且保值能力強的金屬，我們普遍稱為貴金屬，想當然爾，所費不貲。而其中以黃金的流通最為普及和普遍，更贏得有世界貨幣的美譽稱呼，黃金的價值有多高，首先我們要來認識計算的重量單位:

世界各地所不同的重量單位，造就了黃金的計量單位也有所不同。

問: 有顏色的布塊水洗後褪色/日晒後褪色，分別是什麼變化(物理or化學)？

在汽車尚未發明之前，輪胎的運用是在馬車和自行車上，但一開始輪胎的顏色可是白色，因為是從橡膠樹或稱巴西護謨樹的採集而來的乳膠，只是為何現在的輪胎都是黑色？理由很簡單，就是增加了可提供摩擦力和耐用度的碳煙。

1868年生於美國康乃迪克州的Charles Goodyear發明硫化橡膠，並將之裝在馬車與自行車上，結果減少震動和顛簸，並大大降低輪子的故障率，隨後蘇格蘭人John Boyd Dunlop於1888年將橡膠管黏成圓形並充氣後裝在自行車輪子上，這是充氣輪胎的開端。而法國Michelin兄弟則在1892年發明可以快速拆卸的充氣橡膠自行車胎，1910年美國BF Goodrich更將碳煙加入橡膠中，以增加摩擦力與耐用度，從此輪胎的顏色也從白變成黑。



不過某些食品、醫藥、化學、精密機械廠所使的堆高機，輪胎顏色卻不是黑色，而是白色或淺綠色，因為在這些生產工廠需要最乾淨的環境，如果和黑色輪胎相比白色輪胎比較不會在地板留下痕跡。

木材乾餾後的產物： 



氣態：一氧化碳、水蒸氣(最初逸出的氣體,無法燃燒) 

、二氧化碳(不可燃)、氫、甲烷 



液態：焦油、醋酸(弱酸性液體)、甲醇(含量少) 



固態：碳(木炭) 

當年(民國71-74)這題目有兩種問法: 
1.有一圓盤, 中心鑽一孔, 加熱後, 孔會變大或縮小? 
2.有一圓環, 加熱後, 該環內徑會變大或縮小? 
當年全班幾乎分成兩邊, 一邊認為都會變大, 另一邊的同學認為都會變小, 
有趣的是, 每到下課, 就有一些人會被說服而易幟, 搞到後來, 大家有一共識了: 希望聯考不要考出來.

"盲點"~~每個人左右眼都有"盲點",那是在視網膜上視神經的出口,叫做視神經盤,在這一個位置上沒有分布感光細胞,因此是看不到東西的,叫做"盲點".
"盲點"在視野之中,因為雙眼視力重疊,所以感覺不到"盲點"存在.